moving to project folder

lisp/tools.lsp

@@ -1,30 +0,0 @@
-(defun pprintf (sym str)
-  "(pprintf sym str)
-Pretty-print the function pointed to by sym to
-the stream, which follows the 'format directives."
-  (let ((form (eval sym)))
-    (format str "(defun ~a ~a~%~{  ~a~^~%~})"
-       (string sym)
-       (cadr form)
-       (cddr form))))
-
-(defun copy-file (source dest)
-  (with-sd-card (writer dest 2)
-    (with-sd-card (reader source)
-      (loop
-	(let ((data (read-byte reader)))
-	  (when (null data)
-	    (return))
-	  (write-byte data writer))))))
-
-(defun i2c-scan (port) 
-  (dotimes (addr 127)
-    (with-i2c (str port addr)
-      (when str (print addr)))))
-
-(defun i2c-scan2 (port) 
-  (dotimes (addr 127)
-    (with-i2c (str port addr)
-      (format t "~2,0'x: " addr)
-      (if str (print t)
-	(print nil)))))