commit 6b47b6dc729a3453a832efe1d60e5edf2b519ad9
author swissChili <swisschili@fastmail.com> Wed Jun 30 22:08:55 2021 -0700
committer swissChili <swisschili@fastmail.com> Wed Jun 30 22:08:55 2021 -0700
tree 6e5b464a978ba36399cc54ecae5d4a7ebf44a74d
parent 5db22a0b70369f7c585d3fda895c910bf5d78d30

Add list, quote

src/lisp/test.lisp

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index 3c8f9ea..ea78d4f 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -11,11 +11,10 @@
     (print a))
 
   ; These allocations should be freed
-  (cons 12 (cons 34 (cons 45 nil)))
+  (list 12 34 56)
+  (list "a" "b" "c" "d")
   
   ; But these should not
   (let1 (unused-but-bound (cons 5 6))
-    (let1 (val (cons 1 (cons 2 (cons 3 nil))))
+    (let1 (val '(a b c d e))
       (calls-gc val))))
-
-'(hello)
\ No newline at end of file