Commit 9b03abce authored by Dave Cooper's avatar Dave Cooper

Merge branch 'hotfix/p014'

parents 09e8fd2d 33e7ebc7
(in-package :com.genworks.lisp)
;;
;; temporary-folder is potentially platform-specific so it is defined here.
;;
(#+allegro
excl:without-package-locks
#-allegro progn
(#+allegro
excl:without-redefinition-warnings
#-allegro progn
(defparameter glisp::*temporary-folder* (user-homedir-pathname))
(eval-when (:compile-toplevel :load-toplevel :execute) (export 'glisp::*temporary-folder* :glisp))
(defun temporary-folder (&key (create? t))
(let ((folder (merge-pathnames "tmp/" glisp::*temporary-folder*)))
(when create? (ensure-directories-exist folder))))))
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