Skip to content
Snippets Groups Projects
Commit 5f64a206 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

compileit: fix pathname

parent 8668d930
No related branches found
No related tags found
No related merge requests found
...@@ -29,6 +29,9 @@ ...@@ -29,6 +29,9 @@
(when *load-pathname* (when *load-pathname*
(mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1))) (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)) (time (regression-test:do-tests))
#+allegro :exit #+allegro :exit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment