added 501 not implemented.

cl-sdk · Jan 16, 2025 · 094df77 · 094df77
1 parent dc68723
commit 094df77
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/routing/package.lisp b/routing/package.lisp
@@ -55,6 +55,7 @@
    #:route-path
    #:with-request-params
    #:with-response-data
-   #:with-request-data))
+   #:with-request-data
+   #:not-implemented))
 
 (in-package :wst.routing)
diff --git a/routing/responses.lisp b/routing/responses.lisp
@@ -66,3 +66,9 @@
  CONTENT is any object that is serialized accourding to the type.")
   (:method ((ty t) response &key)
     (write-response response :status 422 :content "unprocessable entity")))
+
+(defgeneric not-implemented (ty response &key)
+  (:documentation "Build a response for a type TY (:json, :html, t = html).
+ CONTENT is any object that is serialized accourding to the type.")
+  (:method ((ty t) response &key)
+    (write-response response :status 501 :content "not implemented")))