adding some functions

2025-04-09 20:46:40 -07:00
parent 268b8f2ee2
commit 2cb940a546
5 changed files with 342 additions and 69 deletions
--- a/lisp/tools.lsp
+++ b/lisp/tools.lsp
@@ -25,6 +25,6 @@ the stream, which follows the 'format directives."
 (defun i2c-scan2 (port) 
  (dotimes (addr 127)
    (with-i2c (str port addr)
-      (format t "~2,0'x: " addr)
+      (format t "~,20'x: " addr)
      (if str (print t)
 	(print nil)))))