Browse code
Modifying def-route to allow methods other than GET
fiddlerwoaroof authored on 02/09/2015 15:55:38Showing 1 changed files
| ... | ... |
@@ -127,8 +127,8 @@ |
| 127 | 127 |
do (princ (random 36) stream))))) |
| 128 | 128 |
|
| 129 | 129 |
|
| 130 |
-(defmacro def-route ((url args &key (app *oid*)) &body body) |
|
| 131 |
- `(setf (ningle:route ,app ,url) |
|
| 130 |
+(defmacro def-route ((url args &key (app *oid*) (method :GET)) &body body) |
|
| 131 |
+ `(setf (ningle:route ,app ,url :method ,method) |
|
| 132 | 132 |
#'(lambda ,args |
| 133 | 133 |
(declare (ignorable ,@args)) |
| 134 | 134 |
,@body))) |