Commit cffbda7a authored by eddyz87's avatar eddyz87 Committed by Francois-Rene Rideau
Browse files

Adds support for SBCL specific :local-nicknames defpackage clause in package-inferred-system.

parent b680c2e5
...@@ -75,6 +75,10 @@ the DEFPACKAGE-FORM uses it or imports a symbol from it." ...@@ -75,6 +75,10 @@ the DEFPACKAGE-FORM uses it or imports a symbol from it."
(dolist (p arguments) (dep (string p)))) (dolist (p arguments) (dep (string p))))
((:import-from :shadowing-import-from) ((:import-from :shadowing-import-from)
(dep (string (first arguments)))) (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))))) ((:nicknames :documentation :shadow :export :intern :unintern :recycle)))))
:from-end t :test 'equal)) :from-end t :test 'equal))
......
...@@ -16,3 +16,9 @@ ...@@ -16,3 +16,9 @@
;; Test that primary system name returns the correct value when called with a ;; Test that primary system name returns the correct value when called with a
;; package-inferred-system object. ;; package-inferred-system object.
(assert-equal "package-inferred-system-test" (primary-system-name (find-system :package-inferred-system-test/a/x))) (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)))
(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")
(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))
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