diff --git a/code/search-list.lisp b/code/search-list.lisp index 673f7bf8cae48cedf93d9860af9c35f4e154bb8b..1fc6e541fc890465d2514849121c67ae697e9d4c 100644 --- a/code/search-list.lisp +++ b/code/search-list.lisp @@ -39,7 +39,7 @@ (nstring-downcase dev) (setf (gethash dev *search-list-table*) (mapcar #'(lambda (x) - (let ((x (namestring x))) + (let ((x (if (pathnamep x) (namestring x) x))) (declare (simple-string x)) (let* ((len (length x)) (char (schar x (1- len))))