[bknr-cvs] hans changed trunk/

[BKNR Commits]

Revision: 3678
Author: hans
URL: http://bknr.net/trac/changeset/3678

Fix a few more methods for INITIALIZE-PERSISTENT-INSTANCE to
include &KEY.

U   trunk/bknr/modules/text/article.lisp
U   trunk/projects/lisp-ecoop/src/participant.lisp
U   trunk/projects/unmaintained/raw-data/mcp/bluetooth.lisp
U   trunk/projects/unmaintained/raw-data/mcp/sensors.lisp

Modified: trunk/bknr/modules/text/article.lisp
===================================================================
--- trunk/bknr/modules/text/article.lisp	2008-07-29 12:13:33 UTC (rev 3677)
+++ trunk/bknr/modules/text/article.lisp	2008-07-29 12:21:03 UTC (rev 3678)
@@ -36,7 +36,7 @@
 					(article-subject article) " "
 					(article-text article))))
 
-(defmethod initialize-persistent-instance :after ((article article))
+(defmethod initialize-persistent-instance :after ((article article) &key)
   (setf (article-search-vector article)
 	(article-to-search-vector article)))
 

Modified: trunk/projects/lisp-ecoop/src/participant.lisp
===================================================================
--- trunk/projects/lisp-ecoop/src/participant.lisp	2008-07-29 12:13:33 UTC (rev 3677)
+++ trunk/projects/lisp-ecoop/src/participant.lisp	2008-07-29 12:21:03 UTC (rev 3678)
@@ -7,7 +7,7 @@
    (submission :read :documentation "Submission that this document belongs to"))
   (:default-initargs :type "application/pdf" :submission (error ":submission argument missing while creating document")))
 
-(defmethod initialize-persistent-instance :after ((document document))
+(defmethod initialize-persistent-instance :after ((document document) &key)
   (with-slots (submission) document
     (push document (submission-documents submission))))
 
@@ -92,7 +92,7 @@
   #'(lambda (&rest more)
       (apply fun (append args more))))
 
-(defmethod initialize-persistent-instance :after ((participant participant))
+(defmethod initialize-persistent-instance :after ((participant participant) &key)
   (make-email-list))
 
 (defun make-email-list ()

Modified: trunk/projects/unmaintained/raw-data/mcp/bluetooth.lisp
===================================================================
--- trunk/projects/unmaintained/raw-data/mcp/bluetooth.lisp	2008-07-29 12:13:33 UTC (rev 3677)
+++ trunk/projects/unmaintained/raw-data/mcp/bluetooth.lisp	2008-07-29 12:21:03 UTC (rev 3678)
@@ -88,7 +88,7 @@
   ((device :initarg :device :reader bluetooth-event-device))
   (:metaclass persistent-class))
 
-(defmethod initialize-persistent-instance :after ((event bluetooth-event))
+(defmethod initialize-persistent-instance :after ((event bluetooth-event) &key)
   (with-slots (device) event
     (push event (bluetooth-device-events device))
     (setf (sample-event-value event) (or (bluetooth-device-name device) (bluetooth-device-mac-address device)))))

Modified: trunk/projects/unmaintained/raw-data/mcp/sensors.lisp
===================================================================
--- trunk/projects/unmaintained/raw-data/mcp/sensors.lisp	2008-07-29 12:13:33 UTC (rev 3677)
+++ trunk/projects/unmaintained/raw-data/mcp/sensors.lisp	2008-07-29 12:21:03 UTC (rev 3678)
@@ -60,7 +60,7 @@
 (defmethod sample-event-table-name ((sensor sensor))
   (format nil "sample_event_~(~A~)" (sensor-type sensor)))
 
-(defmethod initialize-persistent-instance :after ((sensor sensor))
+(defmethod initialize-persistent-instance :after ((sensor sensor) &key)
   (let ((id (store-object-id sensor)))
     (with-slots (name unit type) sensor
       (postgres-execute