Skip to content
Snippets Groups Projects
Commit 7c6f4de3 authored by wlott's avatar wlott
Browse files

Don't use namestring unless the thing is a pathname. This is because

(namestring "default:") => "".
parent cbf59f40
No related branches found
No related tags found
No related merge requests found
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
(nstring-downcase dev) (nstring-downcase dev)
(setf (gethash dev *search-list-table*) (setf (gethash dev *search-list-table*)
(mapcar #'(lambda (x) (mapcar #'(lambda (x)
(let ((x (namestring x))) (let ((x (if (pathnamep x) (namestring x) x)))
(declare (simple-string x)) (declare (simple-string x))
(let* ((len (length x)) (let* ((len (length x))
(char (schar x (1- len)))) (char (schar x (1- len))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment