From 0776495bd58cc7bd2b554563dd653d1e197cad62 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 17 Sep 2015 09:26:43 +0200
Subject: [PATCH] change directory portably
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 doit.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/doit.lsp b/doit.lsp
index 0b00d237..4da2803d 100644
--- a/doit.lsp
+++ b/doit.lsp
@@ -70,7 +70,9 @@
 (when *load-pathname*
   (mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
 
-(ext:chdir #P"sandbox/")
+;; We could use uiop:chdir here, but what about new implementations?
+(setf *default-pathname-defaults* (truename #P"sandbox/"))
+
 (time (regression-test:do-tests)))
 
 #+allegro (cl-user::exit)
-- 
GitLab