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 progn
#-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