Add GC segments to differentiate C stack space from Lisp
diff --git a/src/lisp/test-gc.lisp b/src/lisp/test-gc.lisp
index a41e146..af4795f 100644
--- a/src/lisp/test-gc.lisp
+++ b/src/lisp/test-gc.lisp
@@ -1,3 +1,8 @@
+(defun test-gc-eval ()
+ (eval '(progn
+ (list "hello" "world")
+ (gc))))
+
(defun main ()
;; Allocate some garbage
(let1 (used "this should NOT be freed")
@@ -5,7 +10,9 @@
(list "this" "is" "a" "list")
(gc)
(print (list "Current allocations" "GC runs"))
- (print (gc-stats))))
+ (print (gc-stats)))
+ (print "testing gc in eval")
+ (test-gc-eval))
;; Note: This should print that it is freeing both lists, but not the
;; string