Commit 33e7ebc7 authored by Dave Cooper's avatar Dave Cooper

added p014 - control glisp:temporary-folder with a parameter.

parent 09e8fd2d
(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