[bknr-cvs] ksprotte changed trunk/projects/bos/m2/poi.lisp

[BKNR Commits]

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)