Changeset 3662

Timestamp:

07/28/08 16:37:24 (4 months ago)

Author:

ksprotte

Message:

corrected method definition order in poi.lisp

Files:

• trunk/projects/bos/m2/poi.lisp (modified) (2 diffs)

trunk/projects/bos/m2/poi.lisp

@@ -74 +74 @@
-   (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 ()
@@ -98 +89 @@
-   (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)