From 9d5732af5fd08f1798d24916711d9499ba921d2d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Thu, 17 Sep 2015 11:42:25 +0200 Subject: [PATCH] cltest: set logical pathname to sandbox MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański <daniel@turtleware.eu> --- universe.lsp | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/universe.lsp b/universe.lsp index 38a4d10f..e0f00e32 100644 --- a/universe.lsp +++ b/universe.lsp @@ -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* -- GitLab