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

Replace a trivial if-let by or.

parent c713e0a0
Loading
Loading
Loading
Loading
+34 −35
Original line number Diff line number Diff line
@@ -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)))