blob: ea78d4f651a2b46a8c6d499d91bf1fde23007838 [file] [log] [blame]
(defun add-two (a)
(+ a 2))
(defun calls-gc (whatever)
(print whatever)
(gc))
(defun main ()
(let1 (a (add-two 3))
(print "a is")
(print a))
; These allocations should be freed
(list 12 34 56)
(list "a" "b" "c" "d")
; But these should not
(let1 (unused-but-bound (cons 5 6))
(let1 (val '(a b c d e))
(calls-gc val))))