Changeset 3677
- Timestamp:
- 07/29/08 14:13:33 (4 months ago)
- Files:
-
- trunk/bknr/datastore/src/data/object.lisp (modified) (2 diffs)
- trunk/bknr/web/src/frontend/frontend-config.lisp (modified) (1 diff)
- trunk/bknr/web/src/rss/rss.lisp (modified) (1 diff)
- trunk/bknr/web/src/sysclasses/user.lisp (modified) (2 diffs)
- trunk/projects/bos/m2/allocation.lisp (modified) (1 diff)
- trunk/projects/bos/m2/m2.lisp (modified) (2 diffs)
- trunk/projects/bos/m2/poi.lisp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/datastore/src/data/object.lisp
r3673 r3677 245 245 :args (append (list object (if (symbolp class) class (class-name class))) args)))) 246 246 247 (defgeneric initialize-persistent-instance (store-object )247 (defgeneric initialize-persistent-instance (store-object &key) 248 248 (:documentation 249 "Initializes the persistent aspects of a persistent object. This method is called250 at the creationg of a persistent object, but not when the object is loaded from a 251 snapshot."))249 "Initializes the persistent aspects of a persistent object. This 250 method is called at the creation of a persistent object, but not when 251 the object is loaded from a snapshot.")) 252 252 253 253 (defgeneric initialize-transient-instance (store-object) 254 254 (:documentation 255 "Initializes the transient aspects of a persistent object. This method is called256 whenever a persistent object is initialized, also when the object is loaded from 257 a snapshot."))258 259 (defmethod initialize-persistent-instance ((object store-object) ))255 "Initializes the transient aspects of a persistent object. This 256 method is called whenever a persistent object is initialized, also 257 when the object is loaded from a snapshot.")) 258 259 (defmethod initialize-persistent-instance ((object store-object) &key)) 260 260 (defmethod initialize-transient-instance ((object store-object))) 261 261 … … 642 642 (remove-transient-slot-initargs (find-class class-name) initargs) 643 643 initargs))) 644 ( initialize-persistent-instance obj)644 (apply #'initialize-persistent-instance obj initargs) 645 645 (initialize-transient-instance obj) 646 646 (setf error nil) trunk/bknr/web/src/frontend/frontend-config.lisp
r3382 r3677 10 10 11 11 (defun cachable-prefixes-regex () 12 (format nil "^(~{~A~^|~})" (mapcar #'page-handler-prefix (website-cachable-handlers bknr.web:*website*)))) 12 (format nil "^(~{~A~^|~})" 13 (mapcar #'page-handler-prefix (website-cachable-handlers bknr.web::*website*)))) 13 14 14 15 (defun generate-frontend-config (stream &key trunk/bknr/web/src/rss/rss.lisp
r3511 r3677 148 148 (warn "no RSS channel defined for item ~A" item))) 149 149 150 (defmethod initialize-persistent-instance :after ((rss-item rss-item) )150 (defmethod initialize-persistent-instance :after ((rss-item rss-item) &key) 151 151 (add-item (rss-item-channel rss-item) rss-item)) 152 152 trunk/bknr/web/src/sysclasses/user.lisp
r3137 r3677 61 61 "unbound")))) 62 62 63 (defmethod initialize-persistent-instance ((user user) )63 (defmethod initialize-persistent-instance ((user user) &key) 64 64 (let* ((plaintext-password (slot-value user 'password)) 65 65 (password (when plaintext-password (crypt-md5 plaintext-password (make-salt))))) … … 73 73 ()) 74 74 75 (defmethod initialize-persistent-instance ((user smb-user) )75 (defmethod initialize-persistent-instance ((user smb-user) &key) 76 76 (let* ((plaintext-password (slot-value user 'password))) 77 77 (when plaintext-password trunk/projects/bos/m2/allocation.lisp
r3671 r3677 35 35 (store-object-id allocation-area)))) 36 36 37 (defmethod initialize-persistent-instance :after ((allocation-area allocation-area) )37 (defmethod initialize-persistent-instance :after ((allocation-area allocation-area) &key) 38 38 (with-slots (total-m2s free-m2s) allocation-area 39 39 (setf total-m2s (calculate-total-m2-count allocation-area)) trunk/projects/bos/m2/m2.lisp
r3671 r3677 277 277 (equal (class-of object) (find-class 'contract))) 278 278 279 (defmethod initialize-persistent-instance :after ((contract contract) )279 (defmethod initialize-persistent-instance :after ((contract contract) &key) 280 280 (pushnew contract (sponsor-contracts (contract-sponsor contract))) 281 281 (dolist (m2 (contract-m2s contract)) … … 378 378 (collect (list (m2-x m2) (m2-y m2)))))) 379 379 380 (defun contracts-bounding-box (&optional (contracts (class-instances 'contract))) 380 (defun all-contracts () 381 "Return list of all contracts in the system." 382 (class-instances 'all-contracts)) 383 384 (defun contracts-bounding-box (&optional (contracts (all-contracts))) 381 385 (geometry:with-bounding-box-collect (collect) 382 386 (dolist (contract contracts) trunk/projects/bos/m2/poi.lisp
r3675 r3677 31 31 (setf (poi-images poi) (remove poi-image (poi-images poi)))))) 32 32 33 (defmethod initialize-persistent-instance :after ((poi-image poi-image) )33 (defmethod initialize-persistent-instance :after ((poi-image poi-image) &key) 34 34 (setf (poi-images (poi-image-poi poi-image)) (append (poi-images (poi-image-poi poi-image)) (list poi-image)))) 35 35 … … 54 54 :index-reader find-poi :index-values all-pois 55 55 :documentation "Symbolischer Name") 56 (published :update :initform nil) 56 57 (title :update :initform (make-string-hash-table) :documentation "Angezeigter Name") 57 58 (subtitle :update :initform (make-string-hash-table) :documentation "Unterschrift")
