Commit 4c64c1fd authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix defpackage handling of :nicknames (and not :nickname !!!). Test included.

parent c214ef22
......@@ -354,7 +354,7 @@
(clause-second-element (clause)
(list (second clause))))
;; Provide each nickname of the package.
(loop :for nickname :in (clause-contents :nickname)
(loop :for nickname :in (clause-contents :nicknames)
:do (signal-provider nickname 'defpackage))
;; Signal uses of packages.
(loop :for use :in (append (clause-contents :use)
(cl:in-package :asdf-dependency-grovel-test)
(defpackage test-defpackage (:use :cl) (:nicknames :t-dfpkg-1 :t-dfpkg-2 :t-dfpkg-3))
(defpackage test-defpackage (:use :cl) (:nicknames :tdp))
(defpackage :my-package-user
(:use )
(:use :cl :t-dfpkg-2))
(defpackage use-test-defpackage (:use :common-lisp :tdp))
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