Commit 9d5732af authored by Daniel Kochmański's avatar Daniel Kochmański

cltest: set logical pathname to sandbox

Signed-off-by: 's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 7970c255
......@@ -399,16 +399,20 @@
(declare (optimize safety))
(ignore-errors
(setf (logical-pathname-translations "CLTESTROOT")
`(("**;*.*.*" ,(make-pathname :directory '(:absolute :wild-inferiors)
:name :wild :type :wild)))))
`(("**;*.*.*" ,(merge-pathnames
"sandbox/"
(make-pathname :directory '(:absolute :wild-inferiors)
:name :wild :type :wild))))))
(ignore-errors
(setf (logical-pathname-translations "CLTEST")
`(("**;*.*.*" ,(make-pathname
:directory (append
(pathname-directory
(truename (make-pathname)))
'(:wild-inferiors))
:name :wild :type :wild)))))
`(("**;*.*.*" ,(merge-pathnames
"sandbox/"
(make-pathname
:directory (append
(pathname-directory
(truename (make-pathname)))
'(:wild-inferiors))
:name :wild :type :wild))))))
))
(defparameter *logical-pathnames*
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment