Commit 946798d8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak a loop so it works on Genera.

parent 8239fb7b

operate.lisp

+2 −2
Changes for operate.lisp: 2 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -226,8 +226,8 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms.")) 
  (defun restart-upgraded-asdf ()

    ;; If we're in the middle of something, restart it.

    (when *asdf-cache*

      (let ((l (loop* :for (x y) :being :the hash-keys :of *asdf-cache*

                      :when (eq x 'find-system) :collect y)))

      (let ((l (loop :for k :being :the hash-keys :of *asdf-cache*

                     :when (eq (first k) 'find-system) :collect (second k))))

        (clrhash *asdf-cache*)

        (dolist (s l) (find-system s nil)))))

  (register-hook-function '*post-upgrade-restart-hook* 'restart-upgraded-asdf))