;;; Test GC: Run Tests Without GCs to be Compared With
;;; Run of Tests with Frequent GCs
;;;
;;; File:		test-without-gc.in
;;; Author:		course
;;; Version:		2

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

(make-list 5)

(make-list 50)

(run '|test-primitives.in|)

(gc)

(run '|test-defs.in|)

(gc)

'DONE-TILL-NEXT-YEAR!