;;; Test GC: Run Tests With Frequent GCs
;;;
;;; File:		test-with-gc.in
;;; Author:		course
;;; Version:		2

(defun make-list (n)
  (cond ((= n 0) nil) (t (cons n (make-list (- n 1))))))

(gc)

(make-list 5)

(gc)

(set-gc-limit 10)

(make-list 50)

(gc)

(set-gc-limit 200)


; disable reseting gc-limit
;
(defun set-gc-limit (x) nil)

(run '|test-primitives.in|)

(gc)

(run '|test-defs.in|)

(gc)

'DONE-TILL-NEXT-YEAR!