From 00f1dfe790d3567fc68384b48074a9b0c1ac0ee7 Mon Sep 17 00:00:00 2001 From: Kyle Isom Date: Mon, 7 Apr 2025 21:41:44 +0000 Subject: [PATCH] symbol-def (#1) 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: https://git.wntrmute.dev/kyle/ulisp-picocalc/pulls/1 Co-authored-by: Kyle Isom Co-committed-by: Kyle Isom --- lisp/tools.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/tools.lsp b/lisp/tools.lsp index 39b809d..a74e398 100644 --- a/lisp/tools.lsp +++ b/lisp/tools.lsp @@ -17,12 +17,12 @@ the stream, which follows the 'format directives." (return)) (write-byte data writer)))))) -(defun i2c-scan (port) +(defun i2c-scan (port) (dotimes (addr 127) (with-i2c (str port addr) (when str (print addr))))) -(defun i2c-scan2 (port) +(defun i2c-scan2 (port) (dotimes (addr 127) (with-i2c (str port addr) (format t "~,20'x: " addr)