Commit e0a01254 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

explicitly set working directory in doit.lsp

parent bfd458cd
...@@ -6,6 +6,11 @@ ...@@ -6,6 +6,11 @@
#+allegro (setq *enclose-printer-errors* nil) #+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 ;;; Remove compiled files
(let* ((fn (compile-file-pathname "doit.lsp")) (let* ((fn (compile-file-pathname "doit.lsp"))
(type (pathname-type fn)) (type (pathname-type fn))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment