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