Stephen Compall avatar Stephen Compall committed e8d09de

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

This fixes compilation on Clozure CL.

Comments (0)

Files changed (1)

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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.