(defun test-gc-eval ()
  (eval '(progn
          (list "hello" "world")
          (gc))))

(defun main ()
  ;; Allocate some garbage
  (let1 (used "this should NOT be freed")
	    (list 1 2 3 4)
        (list "this" "is" "a" "list")
        (gc)
        (print (list "Current allocations" "GC runs"))
        (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