Commit cb00a919 authored by Eric Timmons's avatar Eric Timmons Committed by Robert Goldman
Browse files

Remove a loop* (see !172)

parent 9d819a5f
...@@ -140,11 +140,11 @@ previously-loaded version of ASDF." ...@@ -140,11 +140,11 @@ previously-loaded version of ASDF."
(if (consp x) (values (car x) (cadr x)) (values x :asdf)) (if (consp x) (values (car x) (cadr x)) (values x :asdf))
(find-symbol* s p nil))) (find-symbol* s p nil)))
(asyms (l) (mapcar #'asym l))) (asyms (l) (mapcar #'asym l)))
(loop* :for (name superclasses slots) :in redefined-classes (loop :for (name superclasses slots) :in redefined-classes
:for sym = (find-symbol* name :asdf nil) :for sym = (find-symbol* name :asdf nil)
:when (and sym (find-class sym)) :when (and sym (find-class sym))
:do #+ccl (eval `(defclass ,sym ,(asyms superclasses) ,(asyms slots))) :do #+ccl (eval `(defclass ,sym ,(asyms superclasses) ,(asyms slots)))
#-ccl (setf (find-class sym) nil))))) ;; mkcl #-ccl (setf (find-class sym) nil))))) ;; mkcl
;;; Self-upgrade functions ;;; Self-upgrade functions
(with-upgradability () (with-upgradability ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment