X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=00cbc54efe98a64f8ab6cd244cdcd6923e28fa8b;hb=57c91e4719ca9d0f9b8bef3b713ba40088a275f6;hp=eff57513b56e3208daa281b057faf9a30e86ffc3;hpb=fb2d28ba0ccab2afb9e68b4de722ba2179bcea8e;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index eff5751..00cbc54 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -335,7 +335,8 @@ error if any of PACKAGES is not a valid package designator."
 ;;; most other operations, are unspecified for deleted packages. We
 ;;; just do the easy thing and signal errors in that case.
 (macrolet ((def (ext real)
-             `(defun ,ext (x) (,real (find-undeleted-package-or-lose x)))))
+             `(defun ,ext (package-designator)
+                (,real (find-undeleted-package-or-lose package-designator)))))
   (def package-nicknames package-%nicknames)
   (def package-use-list package-%use-list)
   (def package-used-by-list package-%used-by-list)