From 5f64a2062fe0ed204b80ad1798f54eb9c84150ca Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Thu, 17 Sep 2015 12:32:24 +0200 Subject: [PATCH] compileit: fix pathname MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański <daniel@turtleware.eu> --- compileit.lsp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compileit.lsp b/compileit.lsp index 4185f56c..c68978c0 100644 --- a/compileit.lsp +++ b/compileit.lsp @@ -29,6 +29,9 @@ (when *load-pathname* (mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1))) +;; We could use uiop:chdir here, but what about new implementations? +(setf *default-pathname-defaults* (truename #P"sandbox/")) + (time (regression-test:do-tests)) #+allegro :exit -- GitLab