adding some functions

lisp/pkg.lsp

@@ -21,4 +21,4 @@
 (defun add-to-package (filename list)
    (with-sd-card (str filename 1)
      (dolist (f lst)
-         (symbol-def f str))))
+         (symdef str))))

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)))))