|
|
@@ -128,5 +128,9 @@
|
|
|
(concatenate 'string "fld_" column))
|
|
|
columns))
|
|
|
(form-entries (map 'list #'make-form-entry fields))
|
|
|
- (update-query (make-update-query table columns field-names)))
|
|
|
- ))
|
|
|
+ (update-query (make-update-query table columns field-names))
|
|
|
+ (route-name (intern (string-upcase name)))
|
|
|
+ (route-name-post (intern (string-upcase (concatenate 'string name "-post")))))
|
|
|
+ `(progn
|
|
|
+ (define-route ,route-name (,name))
|
|
|
+ (define-route ,route-name-post (,name :method :post)))))
|
