Revision: 3662 Author: ksprotte URL: http://bknr.net/trac/changeset/3662

corrected method definition order in poi.lisp

U trunk/projects/bos/m2/poi.lisp

Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-07-28 14:31:11 UTC (rev 3661) +++ trunk/projects/bos/m2/poi.lisp 2008-07-28 14:37:24 UTC (rev 3662) @@ -73,15 +73,6 @@ ((poi :read) (url :update :initform nil)))

-(defmethod poi-movies :before ((poi poi)) - "Lazily update the db schema. Method can be removed later." - (macrolet ((movie (tail) `(car ,tail))) - (mapl (lambda (tail) - (when (stringp (movie tail)) - (setf (movie tail) - (make-object 'poi-movie :poi poi :url (movie tail))))) - (slot-value poi 'movies)))) - ;;; poi (define-persistent-class poi () ((name :read :index-type string-unique-index @@ -98,6 +89,15 @@ (movies :update :initform nil) (published :update :initform nil)))

+(defmethod poi-movies :before ((poi poi)) + "Lazily update the db schema. Method can be removed later." + (macrolet ((movie (tail) `(car ,tail))) + (mapl (lambda (tail) + (when (stringp (movie tail)) + (setf (movie tail) + (make-object 'poi-movie :poi poi :url (movie tail))))) + (slot-value poi 'movies)))) + (deftransaction make-poi (language name &key title description area) (let ((poi (make-object 'poi :name name :area area))) (setf (slot-string poi 'title language) title)