Fixed the order in which MAKE-LOAD-FORM statements are compiled

This commit is contained in:
jjgarcia 2008-07-11 15:08:28 +00:00
parent 29c0dec388
commit 6c788d733e

View file

@ -445,7 +445,7 @@
(defun add-load-time-values (form)
(let ((previous (append (and (consp *load-time-values*)
(nreverse *load-time-values*))
*make-forms*)))
(nreverse *make-forms*))))
(when previous
(setf *load-time-values* nil
*make-forms* nil)