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