From 3a86d993f884b5baacb5f34b7cc19d045448e860 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" Date: Wed, 14 Sep 2022 11:20:13 -0500 Subject: [PATCH] Fix error on lisps w/o package-local-nicknames. Reference to `uiop/package-local-nicknames` will fail on such lisps. Broke the tests on clisp. --- uiop/package.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/uiop/package.lisp b/uiop/package.lisp index 3c28e5d3..b3bfb4cb 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))) -- GitLab