diff --git a/doit.lsp b/doit.lsp index 0b00d237ceb79bc54ff24ce4b9ed07a270a657b8..4da2803dd7453802352e31d52eb446afe203644b 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)