|
|
@@ -71,8 +71,10 @@
|
|
|
(defparameter +200-empty+ '(200 (:content-type "application/json")
|
|
|
#.(trivial-utf-8:string-to-utf-8-bytes "{}")))
|
|
|
|
|
|
-(defvar *200* '(200 (:content-type "application/json") content))
|
|
|
-(defun 200-json (data) (setf (caddr *200*) (dumps data)) *200*)
|
|
|
+(defun 200-json (data)
|
|
|
+ (declare (optimize (speed 3) (safety 0))
|
|
|
+ (type list data))
|
|
|
+ `(200 (:content-type "application/json") ,(dumps data)))
|
|
|
|
|
|
(defun get-entity (params)
|
|
|
(let ((id (parse-integer (getf params :id) :junk-allowed t))
|
