From e0a012548e039614fb173ad852bde74f5da254b9 Mon Sep 17 00:00:00 2001 From: Attila Lendvai <attila@lendvai.name> Date: Fri, 9 Dec 2016 14:09:06 +0100 Subject: [PATCH] explicitly set working directory in doit.lsp --- doit.lsp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/doit.lsp b/doit.lsp index c3be0b96..8a982e27 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)) -- GitLab