[stamp-cvs] CVS stamp

[rstrandh]

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))))