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