diff --git a/code/search-list.lisp b/code/search-list.lisp index ffa7c6244a28a82bc677d9df8c8961cffb9fe72f..673f7bf8cae48cedf93d9860af9c35f4e154bb8b 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)