Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
asdf
Commits
cffbda7a
Commit
cffbda7a
authored
Aug 01, 2019
by
eddyz87
Committed by
Francois-Rene Rideau
Aug 01, 2019
Browse files
Adds support for SBCL specific :local-nicknames defpackage clause in package-inferred-system.
parent
b680c2e5
Changes
4
Hide whitespace changes
Inline
Side-by-side
package-inferred-system.lisp
View file @
cffbda7a
...
...
@@ -75,6 +75,10 @@ the DEFPACKAGE-FORM uses it or imports a symbol from it."
(
dolist
(
p
arguments
)
(
dep
(
string
p
))))
((
:import-from
:shadowing-import-from
)
(
dep
(
string
(
first
arguments
))))
#+
sbcl
((
:local-nicknames
)
(
loop*
:for
(
local-nickname
actual-package-name
)
:in
arguments
:do
(
dep
(
string
actual-package-name
))))
((
:nicknames
:documentation
:shadow
:export
:intern
:unintern
:recycle
)))))
:from-end
t
:test
'equal
))
...
...
test/package-inferred-system-test.script
View file @
cffbda7a
...
...
@@ -16,3 +16,9 @@
;; Test that primary system name returns the correct value when called with a
;; package-inferred-system object.
(assert-equal "package-inferred-system-test" (primary-system-name (find-system :package-inferred-system-test/a/x)))
;; Test that SBCL's :local-nicknames are recognized
#+sbcl
(progn
(load-system :package-inferred-system-test/local-nicknames-1)
(assert-equal "g" (symbol-call :package-inferred-system-test/local-nicknames-1 :f)))
test/package-inferred-system-test/local-nicknames-1-dep.lisp
0 → 100644
View file @
cffbda7a
(
defpackage
package-inferred-system-test/local-nicknames-1-dep
(
:use
:cl
)
(
:export
#:g
))
(
in-package
:package-inferred-system-test/local-nicknames-1-dep
)
(
defun
g
()
"g"
)
test/package-inferred-system-test/local-nicknames-1.lisp
0 → 100644
View file @
cffbda7a
(
defpackage
package-inferred-system-test/local-nicknames-1
(
:use
:cl
)
(
:local-nicknames
(
:dep
:package-inferred-system-test/local-nicknames-1-dep
))
(
:export
#:f
))
(
in-package
:package-inferred-system-test/local-nicknames-1
)
(
defun
f
()
(
dep:g
))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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