Commits

Stephen Compall  committed e8d09de

Move defgeneric widget-current-navigation-url above accessor method definition

This fixes compilation on Clozure CL.

  • Participants
  • Parent commits 06f5187

Comments (0)

Files changed (1)

File src/widgets/widget/widget.lisp

        (declare (ignore obj))
        (dependencies-by-symbol (quote ,name)))))
 
+(defgeneric widget-current-navigation-url (widget)
+  (:documentation "Return the current navigation URL for WIDGET
+                  as computed at the dispatching stage.")
+  (:method ((widget string))
+           nil)
+  (:method ((widget function))
+    "FIXME: should find out somehow..."
+    nil))
+
 (defclass widget (dom-object-mixin)
   ((current-navigation-url :accessor widget-current-navigation-url
                            :type (or string null) ;; XXX unbound instead of null
   (:metaclass widget-class)
   (:documentation "Base class for all widget objects."))
 
-(defgeneric widget-current-navigation-url (widget)
-  (:documentation "Return the current navigation URL for WIDGET
-                  as computed at the dispatching stage.")
-  (:method ((widget string))
-           nil)
-  (:method ((widget function))
-    "FIXME: should find out somehow..."
-    nil))
-
 (defmethod widget-current-navigation-url ((widget widget))
   (log-message :debug "~%WIDGET-CNURL: for widget ~A~%" widget)
   (acond