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