diff --git a/uiop/package.lisp b/uiop/package.lisp index 3c28e5d32e9f5c173ef2557d70c55c064de847e1..b3bfb4cb4dc2e0552ab45aa79d89b14d86aa8671 100644 --- a/uiop/package.lisp +++ b/uiop/package.lisp @@ -668,6 +668,7 @@ or when loading the package is optional." (find-package* (second x) t) (mapcar #'string x)) + #+package-local-nicknames (defun install-package-local-nicknames (destination-package new-nicknames) (let ((new-nicknames (mapcar (lambda (x) (validate-nickname-pair x (package-name destination-package)))