diff --git a/defpackage.lsp b/defpackage.lsp index b067d5f8eeb9824066e87ddfaba8ddc9afbcb972..e46958bef00309e1ba47e118ec4dfbe9627eb303 100644 --- a/defpackage.lsp +++ b/defpackage.lsp @@ -59,6 +59,31 @@ )))))) 0) +;;; Test :nicknames option with more than one occurrence. +;;; Do not check use-list, because it is implementation dependent +;;; Try several ways of specifying a nickname. +(deftest defpackage.2b + (loop + for n in '("I" #:|I| #\I) count + (not + (ignore-errors + (progn + (safely-delete-package "H") + (let ((p (ignore-errors + (eval `(defpackage "H" + (:nicknames ,n) + (:nicknames "J")))))) + (and + (packagep p) + (equal (package-name p) "H") + (equal (package-used-by-list p) nil) + (equal (sort (copy-list (package-nicknames p)) + #'string<) + '("I" "J")) + (equal (package-shadowing-symbols p) nil) + (null (documentation p t)))))))) + 0) + ;; Test defpackage with documentation option ;; Do not check use-list, because it is implementation dependent (deftest defpackage.3