Loading find-system.lisp +34 −35 Original line number Diff line number Diff line Loading @@ -386,9 +386,8 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. (let ((primary-name (primary-system-name name))) (unless (equal name primary-name) (find-system primary-name nil))) (if-let (x (and *immutable-systems* (gethash name *immutable-systems*) (cdr (system-registered-p name)))) x (or (and *immutable-systems* (gethash name *immutable-systems*) (cdr (system-registered-p name))) (multiple-value-bind (foundp found-system pathname previous previous-time) (locate-system name) (assert (eq foundp (and (or found-system pathname previous) t))) Loading Loading
find-system.lisp +34 −35 Original line number Diff line number Diff line Loading @@ -386,9 +386,8 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. (let ((primary-name (primary-system-name name))) (unless (equal name primary-name) (find-system primary-name nil))) (if-let (x (and *immutable-systems* (gethash name *immutable-systems*) (cdr (system-registered-p name)))) x (or (and *immutable-systems* (gethash name *immutable-systems*) (cdr (system-registered-p name))) (multiple-value-bind (foundp found-system pathname previous previous-time) (locate-system name) (assert (eq foundp (and (or found-system pathname previous) t))) Loading