Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
a37ed108
Commit
a37ed108
authored
Oct 01, 2016
by
Elias Pipping
Committed by
Robert Goldman
Oct 04, 2016
Browse files
Cleanup: Use or instead of if-let when possible
parent
078b09e0
Changes
1
Hide whitespace changes
Inline
Side-by-side
package-inferred-system.lisp
View file @
a37ed108
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment