From b78faaaf2d849724b57f468761a798c2423132a8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 31 Jan 1991 12:28:06 +0000 Subject: [PATCH] Fixed SHADOW to accept a single stringlinke thing as well as list. --- code/package.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/package.lisp b/code/package.lisp index 5fc4bed1a..9d13464bf 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -1180,7 +1180,8 @@ not already present." (let* ((package (package-or-lose package)) (internal (package-internal-symbols package))) - (dolist (name (mapcar #'string symbols)) + (dolist (name (mapcar #'string + (if (consp symbols) symbols (list symbols)))) (multiple-value-bind (s w) (find-symbol name package) (when (or (not w) (eq w :inherited)) (setq s (make-symbol name)) -- GitLab