| (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 |