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
...@@ -94,9 +94,8 @@ the DEFPACKAGE-FORM uses it or imports a symbol from it." ...@@ -94,9 +94,8 @@ the DEFPACKAGE-FORM uses it or imports a symbol from it."
"Return the name of the SYSTEM providing PACKAGE-NAME, if such exists, "Return the name of the SYSTEM providing PACKAGE-NAME, if such exists,
otherwise return a default system name computed from PACKAGE-NAME." otherwise return a default system name computed from PACKAGE-NAME."
(check-type package-name string) (check-type package-name string)
(if-let ((system-name (gethash package-name *package-inferred-systems*))) (or (gethash package-name *package-inferred-systems*)
system-name (string-downcase package-name)))
(string-downcase package-name)))
;; Given a file in package-inferred-system style, find its dependencies ;; Given a file in package-inferred-system style, find its dependencies
(defun package-inferred-system-file-dependencies (file &optional system) (defun package-inferred-system-file-dependencies (file &optional system)
......
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