Commit 9271b956 authored by Robert Goldman's avatar Robert Goldman Committed by Robert Goldman
Browse files

Set package-local-nicknames in os.lisp

parent 3f09b871
......@@ -75,7 +75,7 @@ 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))))
#+(or abcl ccl clasp ecl sbcl)
#+package-local-nicknames
((:local-nicknames)
(loop* :for (local-nickname actual-package-name) :in arguments :do
(dep (string actual-package-name))))
......
......@@ -140,6 +140,14 @@
(unless (member :lispworks6 *features*)
(pushnew :lispworks7+ *features*)))))
;;; package local nicknames feature
;;; ABCL and CCL already define this feature appropriately.
;;; Seems to be unconditionally present for SBCL, ACL, and clasp
;;; Don't know about ecl, or others
(eval-when (:load-toplevel :compile-toplevel :execute)
#+(or sbcl clasp allegro)
(pushnew :package-local-nicknames *features*))
#.(or #+mcl ;; the #$ doesn't work on other lisps, even protected by #+mcl, so we use this trick
(read-from-string
"(eval-when (:load-toplevel :compile-toplevel :execute)
......
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