(progn ;; SBCL hates to get (truename #p"") when D-P-D is itself #p"". See https://bugs.launchpad.net/sbcl/+bug/1472414 (DBG "4" (setf *default-pathname-defaults* (nil-pathname)) ;; make things relative to GETCWD (chdir asdf-directory)) ;; note: may or may not change *default-pathname-defaults* to an absolute pathname. (check-true-dpd-asdf) (DBG "5" *default-pathname-defaults* (chdir test-directory)) ;; note: may or may not change *default-pathname-defaults* to an absolute pathname. (check-true-dpd-test) ;; On implementations where chdir doesn't side-effect D-P-D, we can have D-P-D be relative to GETCWD... ;; except on allegro, that hates this trick.