Skip to content
Snippets Groups Projects
Commit 2b511924 authored by wlott's avatar wlott
Browse files

Changed %set-search-list to allow anything pathnamable instead of just

simple-strings.
parent 8aa816ed
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
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