Browse code
Add a view-name variable that's dynamically bound around the controller
Ed Langley authored on 03/07/2017 01:41:50Showing 1 changed files
| ... | ... |
@@ -48,12 +48,13 @@ |
| 48 | 48 |
(declare (optimize (debug 3) (speed 0) (space 0) (safety 3))) |
| 49 | 49 |
(lambda (params) |
| 50 | 50 |
(declare (optimize (debug 3) (speed 0) (space 0) (safety 3))) |
| 51 |
- (apply #'view |
|
| 52 |
- (list view |
|
| 53 |
- (apply #'controller |
|
| 54 |
- (list* controller |
|
| 55 |
- params |
|
| 56 |
- controller-args)))))) |
|
| 51 |
+ (let ((*view-name* view)) |
|
| 52 |
+ (apply #'view |
|
| 53 |
+ (list view |
|
| 54 |
+ (apply #'controller |
|
| 55 |
+ (list* controller |
|
| 56 |
+ params |
|
| 57 |
+ controller-args))))))) |
|
| 57 | 58 |
|
| 58 | 59 |
(defmacro compose-route ((controller &rest controller-args) view) |
| 59 | 60 |
`(%compose-route ',controller ,controller-args ',view)) |