Update of /project/stamp/cvsroot/stamp In directory clnet:/tmp/cvs-serv8795

Modified Files: stamp.lisp Log Message: Changed defconstant to defparameter to simplify compilation during development.

--- /project/stamp/cvsroot/stamp/stamp.lisp 2007/01/03 11:27:56 1.3 +++ /project/stamp/cvsroot/stamp/stamp.lisp 2007/01/04 03:37:26 1.4 @@ -363,7 +363,10 @@ (second parsed-data) (third parsed-data))))))

-(defconstant +boundary+ "---- text follows this line ----") +;;; this should be a defconstant, but it is not very +;;; practical during development, because of the number +;;; of times the file gets reloaded. -- RS 2007-01-04 +(defparameter +boundary+ "---- text follows this line ----")

(defun make-temporary-filename () (let ((base (format nil "/tmp/stamp-~A" (get-universal-time))))