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