@@ -16,6 +16,12 @@

                    renders the model picked out by the controller. Normally, this is

                    specialized using the DEFINE-VIEW macr"))

+(defgeneric routes (app)

+  (:method-combination progn)

+  (:method :around (app)

+    (call-next-method)

+    app))

+

 (defmacro defroutes (app &body routes)

   "Define a set of routes for given paths. the ROUTES parameter expects this format:

    ((\"/path/to/{route}\" :method :POST) route-callback) the AS-ROUTE macro helps one

@@ -5,7 +5,8 @@

   (:export #:defroutes  #:as-route  #:define-controller #:define-view    

            #:controller #:view      #:run-route #:mustache-view    

            #:render-mustache        #:define-spinneret-view

-           #:setf1      #:call-current-view))

+           #:setf1      #:call-current-view

+           #:routes))

 (defpackage #:araneus-2

   (:use #:cl #:fw.lu)