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

                #:alexandria

                #:serapeum

                #:ningle

-               #:fwoar.lisputils

+               #:fwoar-lisputils

                #:spinneret

                #:cl-mustache)

   :serial t

@@ -80,7 +80,7 @@

 (defmethod controller (name params &key)

   params)

-(defmacro define-controller (name (params &rest r &key &allow-other-keys) &body body)

+(defmacro define-controller (name (params &rest r) &body body)

   `(defmethod controller ((name (eql ',name)) ,params &key ,@r)

      ,@body))

@@ -7,6 +7,14 @@

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

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

+(defpackage #:araneus-2

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

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

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

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

+           #:setf1      #:call-current-view

+           #:switch-view))

+

 (defpackage #:araneus.routes

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

   (:export #:route))