- (merge-pathnames (make-pathname :name nil
- :type nil
- :version nil
- :directory '(:relative "test-output"))
- (make-pathname :directory (pathname-directory *path*))))
+ (apply-output-translations *source-directory*))
+
+(setf *default-pathname-defaults* (translate-logical-pathname *default-pathname-defaults*))
+
+(defun compile-load (x)
+ (flet ((in-dir (dir type)
+ (translate-logical-pathname (subpathname dir x :type type))))
+ (load (compile-file (in-dir *source-directory* "lisp")
+ :output-file (in-dir *output-directory* "fasl")))))