kyle/ulisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

symbol-def (#1)

Browse Source 
Started branch to add `pform`, ended up pulling in `symbol-def` from the forums. Also adds the editor code from the T-Deck.

Reviewed-on: kyle/ulisp-picocalc#1
Co-authored-by: Kyle Isom <kyle@imap.cc>
Co-committed-by: Kyle Isom <kyle@imap.cc>
This commit is contained in:
Kyle Isom
2025-04-07 21:41:44 +00:00
parent dbb3a95bc9
commit 00f1dfe790
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/tools.lsp
View File

@@ -17,12 +17,12 @@ the stream, which follows the 'format directives."
(return)) (return))
(write-byte data writer)))))) (write-byte data writer))))))
(defun i2c-scan (port) (defun i2c-scan (port)
(dotimes (addr 127) (dotimes (addr 127)
(with-i2c (str port addr) (with-i2c (str port addr)
(when str (print addr))))) (when str (print addr)))))
(defun i2c-scan2 (port) (defun i2c-scan2 (port)
(dotimes (addr 127) (dotimes (addr 127)
(with-i2c (str port addr) (with-i2c (str port addr)
(format t "~,20'x: " addr) (format t "~,20'x: " addr)