Commit a37ed108 authored by Elias Pipping's avatar Elias Pipping Committed by Robert Goldman
Browse files

Cleanup: Use or instead of if-let when possible

parent 078b09e0
Loading
Loading
Loading
Loading
+2 −3
Original line number Diff line number Diff line
@@ -94,8 +94,7 @@ the DEFPACKAGE-FORM uses it or imports a symbol from it."
    "Return the name of the SYSTEM providing PACKAGE-NAME, if such exists,
otherwise return a default system name computed from PACKAGE-NAME."
    (check-type package-name string)
    (if-let ((system-name (gethash package-name *package-inferred-systems*)))
      system-name
    (or (gethash package-name *package-inferred-systems*)
        (string-downcase package-name)))

  ;; Given a file in package-inferred-system style, find its dependencies