Skip to content
Snippets Groups Projects
Commit 9d5732af authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

cltest: set logical pathname to sandbox

parent 7970c255
No related branches found
No related tags found
No related merge requests found
...@@ -399,16 +399,20 @@ ...@@ -399,16 +399,20 @@
(declare (optimize safety)) (declare (optimize safety))
(ignore-errors (ignore-errors
(setf (logical-pathname-translations "CLTESTROOT") (setf (logical-pathname-translations "CLTESTROOT")
`(("**;*.*.*" ,(make-pathname :directory '(:absolute :wild-inferiors) `(("**;*.*.*" ,(merge-pathnames
:name :wild :type :wild))))) "sandbox/"
(make-pathname :directory '(:absolute :wild-inferiors)
:name :wild :type :wild))))))
(ignore-errors (ignore-errors
(setf (logical-pathname-translations "CLTEST") (setf (logical-pathname-translations "CLTEST")
`(("**;*.*.*" ,(make-pathname `(("**;*.*.*" ,(merge-pathnames
:directory (append "sandbox/"
(pathname-directory (make-pathname
(truename (make-pathname))) :directory (append
'(:wild-inferiors)) (pathname-directory
:name :wild :type :wild))))) (truename (make-pathname)))
'(:wild-inferiors))
:name :wild :type :wild))))))
)) ))
(defparameter *logical-pathnames* (defparameter *logical-pathnames*
......
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