Still preparing for the big shift to property lists.

2023-04-02 12:57:26 +01:00 · 2023-04-02 12:57:26 +01:00 · 50d4b4348e
commit 50d4b4348e
parent b61e7c3e8c
26 changed files with 435 additions and 445 deletions
--- a/resources/sexpr/length.lsp
+++ b/resources/sexpr/length.lsp
@ -1 +1,6 @@
-(SETQ LENGTH '(LAMBDA (L) (COND ((EQ NIL L) 0) (T (ADD1 (LENGTH (CDR L)))))))
+(SETQ LENGTH 
+    '(LAMBDA (L) 
+        (COND 
+            ((EQ NIL L) 0)
+             ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L))))
+             (T 0))))