Author: hhubner Date: 2006-11-17 06:31:08 -0500 (Fri, 17 Nov 2006) New Revision: 2073

Modified: trunk/projects/bos/m2/m2.lisp Log: Provide default initarg for paidp

Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2006-11-16 15:05:14 UTC (rev 2072) +++ trunk/projects/bos/m2/m2.lisp 2006-11-17 11:31:08 UTC (rev 2073) @@ -187,6 +187,7 @@ (expires :read :documentation "universal time which specifies the time the contract expires (is deleted) when it has not been paid for" :initform nil)) (:default-initargs :m2s nil + :paidp nil :download-only nil :color (random-elt *claim-colors*) :cert-issued nil