| swissChili | a890aed | 2022-07-30 17:13:07 -0700 | [diff] [blame] | 1 | (defun main () |
| 2 | ;; Allocate some garbage | ||||
| 3 | (let1 (used "this should NOT be freed") | ||||
| 4 | (list 1 2 3 4) | ||||
| 5 | (list "this" "is" "a" "list") | ||||
| 6 | (gc) | ||||
| 7 | (print (list "Current allocations" "GC runs")) | ||||
| 8 | (print (gc-stats)))) | ||||
| 9 | |||||
| 10 | ;; Note: This should print that it is freeing both lists, but not the | ||||
| 11 | ;; string | ||||