From 2b51192453051bf0195adc23cf23140bf302e8f7 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 15 Jun 1990 12:43:46 +0000
Subject: [PATCH] Changed %set-search-list to allow anything pathnamable
 instead of just simple-strings.

---
 code/search-list.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/code/search-list.lisp b/code/search-list.lisp
index ffa7c6244..673f7bf8c 100644
--- a/code/search-list.lisp
+++ b/code/search-list.lisp
@@ -39,12 +39,13 @@
     (nstring-downcase dev)
     (setf (gethash dev *search-list-table*)
 	  (mapcar #'(lambda (x)
-		      (declare (simple-string x))
-		      (let* ((len (length x))
-			     (char (schar x (1- len))))
-			(if (or (char= char #\:) (char= char #\/))
-			    x
-			    (concatenate 'simple-string x "/"))))
+		      (let ((x (namestring x)))
+			(declare (simple-string x))
+			(let* ((len (length x))
+			       (char (schar x (1- len))))
+			  (if (or (char= char #\:) (char= char #\/))
+			      x
+			      (concatenate 'simple-string x "/")))))
 		  new-value)))
   new-value)
 
-- 
GitLab