diff --git a/doit.lsp b/doit.lsp index c3be0b96f5643a87caf624de47166b1d58019762..8a982e273c12a73197d2bc0313645eb0aa3ed12a 100644 --- a/doit.lsp +++ b/doit.lsp @@ -6,6 +6,11 @@ #+allegro (setq *enclose-printer-errors* nil) +(let ((wd (or *compile-file-pathname* *load-pathname*))) + (when wd + (setf *default-pathname-defaults* + (make-pathname :name nil :type nil :version nil :defaults wd)))) + ;;; Remove compiled files (let* ((fn (compile-file-pathname "doit.lsp")) (type (pathname-type fn))