Commit 0776495b authored by Daniel Kochmański's avatar Daniel Kochmański

change directory portably

Signed-off-by: default avatarDaniel Kochmański <daniel@turtleware.eu>
parent 4fadd0b3
......@@ -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)
......
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