hiro/myway
1
0
Fork 0
mirror of https://github.com/vale981/myway synced 2025-03-04 17:31:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add 'clear-routes'.

Browse source
This commit is contained in:
Eitaro Fukamachi 2018-09-17 00:31:56 +09:00
parent 24350cef2d
commit 286230082a
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/mapper.lisp
View file

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

2
src/myway.lisp
View file

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