(defconstant NUMBER_OF_PEOPLE 10) (defvar *i* 0) (defun rewrite (n) n) (defun memory (n) n) (format t "Beginning system reset.....") (if (y-or-n-p "ALL RESET?") (loop while (<= *i* NUMBER_OF_PEOPLE) do (rewrite (memory *i*)) (defparameter *i* (1+ *i*))))car car car car cdr cdr cdr cdr car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply