Properly indent some code path

[TD_LISP.git] / lists.lsp

diff --git a/lists.lsp b/lists.lsp
index e11271ce83790a635c00705994704ddd3fc18474..273dee0dfd8f0fcd0b4812f8509b74a2c2e12d9c 100755 (executable)
--- a/lists.lsp
+++ b/lists.lsp
@@ -18,4 +18,28 @@
 
 (println (list-length L))
 
+(println (length L))
+
+type list ::= empty-list | first * list
+
+(setq x 1)
+(println (+ x 1))
+
+(set 'x 1 'y 2)
+(let ((x 3) (y 4))
+  (println x)
+  (println (list x y)))
+(println "x="x" y="y)
+
+(setq x 3 y 4)
+(let ((x 1) (y 2))
+  (println "x="x" y="y))
+(println "x="x" y="y)
+
+(setq x 3 y 4)
+(let ((y 2))
+  (setq x 5 y 6)
+  (println "x="x" y="y))
+(println "x="x" y="y)
+
 (exit)