Changeset 3678

Show
Ignore:
Timestamp:
07/29/08 14:21:03 (4 months ago)
Author:
hans
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/modules/text/article.lisp

    r2651 r3678  
    3737                                        (article-text article)))) 
    3838 
    39 (defmethod initialize-persistent-instance :after ((article article)) 
     39(defmethod initialize-persistent-instance :after ((article article) &key) 
    4040  (setf (article-search-vector article) 
    4141        (article-to-search-vector article))) 

  • trunk/projects/lisp-ecoop/src/participant.lisp

    r3369 r3678  
    88  (:default-initargs :type "application/pdf" :submission (error ":submission argument missing while creating document"))) 
    99 
    10 (defmethod initialize-persistent-instance :after ((document document)) 
     10(defmethod initialize-persistent-instance :after ((document document) &key) 
    1111  (with-slots (submission) document 
    1212    (push document (submission-documents submission)))) 
    …… 
    9393      (apply fun (append args more)))) 
    9494 
    95 (defmethod initialize-persistent-instance :after ((participant participant)) 
     95(defmethod initialize-persistent-instance :after ((participant participant) &key) 
    9696  (make-email-list)) 
    9797 

  • trunk/projects/unmaintained/raw-data/mcp/bluetooth.lisp

    r1665 r3678  
    8989  (:metaclass persistent-class)) 
    9090 
    91 (defmethod initialize-persistent-instance :after ((event bluetooth-event)) 
     91(defmethod initialize-persistent-instance :after ((event bluetooth-event) &key) 
    9292  (with-slots (device) event 
    9393    (push event (bluetooth-device-events device)) 

  • trunk/projects/unmaintained/raw-data/mcp/sensors.lisp

    r1669 r3678  
    6161  (format nil "sample_event_~(~A~)" (sensor-type sensor))) 
    6262 
    63 (defmethod initialize-persistent-instance :after ((sensor sensor)) 
     63(defmethod initialize-persistent-instance :after ((sensor sensor) &key) 
    6464  (let ((id (store-object-id sensor))) 
    6565    (with-slots (name unit type) sensor