don't use more than 100,000 cons pairs

gistfile1.lisp

; <sbp> this is why lisp engineers aren't allowed to pilot submarines

(setq *all-conses* (make-array 100000))
(dotimes (ii 100000) (setf (aref *all-conses* ii) (cons nil nil)))
(setq *conses-index* 0)

(defun cons (hd tl)
  (let ((the-cons (aref *all-conses* *conses-index*)))
    (setq *conses-index* (1+ *conses-index*))
    (setf (car the-cons) hd)
    (setf (cdr the-cons) tl)
    the-cons))