[bknr-cvs] r2073 - trunk/projects/bos/m2

[bknr at bknr.net]

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