Add 'clear-routes'.

src/mapper.lisp

@@ -14,6 +14,7 @@
   (:import-from :map-set
                 :map-set-index)
   (:export :mapper
+           :clear-routes
            :make-mapper
            :mapper-routes
            :member-route
@@ -25,6 +26,9 @@
 (defstruct mapper
   (%routes (make-collector)))
 
+(defun clear-routes (mapper)
+  (setf (mapper-%routes mapper) (make-collector)))
+
 (defun mapper-routes (mapper)
   (funcall (mapper-%routes mapper)))
 

src/myway.lisp

@@ -3,6 +3,7 @@
   (:use :cl)
   (:import-from :myway.mapper
                 :mapper
+                :clear-routes
                 :mapper-routes
                 :make-mapper
                 :member-route
@@ -27,6 +28,7 @@
            :to-app
 
            :mapper
+           :clear-routes
            :mapper-routes
            :add-route
            :find-route