;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; a little test for zone cleanup ;; (bind-func MyLittleCleanupTest (lambda () (let ((tmp2:i8* (alloc 8))) (zone_cleanup (println "Clean up before leaving zone!")) tmp2)))