(defun make-collector (&optional list)
"Return a new collector object whose initial contents is LIST. Note that
LIST will be destroyed if anything else is collected."
(let ((head (cons nil list)))
(setf (car head) (if list (last list) head))))
(defun make-collector (&optional list)
"Return a new collector object whose initial contents is LIST. Note that
LIST will be destroyed if anything else is collected."
(let ((head (cons nil list)))
(setf (car head) (if list (last list) head))))