aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-03 18:17:31 -0600
committerColin Okay <okay@toyful.space>2022-02-03 18:17:31 -0600
commit1af2400c61309cadc7c05a39623dc1ad8ba00ce5 (patch)
tree4c0b25bb88c3e8cbb386dcde69dea497141d7640
parent9a3b7ede7774a831f1669a3358322118c7348951 (diff)
empty hacking
-rw-r--r--lazybones.lisp11
-rw-r--r--package.lisp19
2 files changed, 5 insertions, 25 deletions
diff --git a/lazybones.lisp b/lazybones.lisp
index 6e1da32..2f15a53 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -44,7 +44,6 @@
(handler-function :reader endpoint-request-handler)
(documentation :reader endpoint-documentation :initarg :doc :initform "")))
-
(defparameter +http-methods+
(list :get :head :put :post :delete :patch))
@@ -89,8 +88,8 @@ Returns NIL on failre."
(list (read-from-string var-name) (read-from-string (first decoder?)))
(list (read-from-string var-name))))))
-(defun add-route (method routestring handler-function)
- (assert (member method +http-methods+) nil
- "~a is not a valid HTTP method indicator."
- method)
- )
+;; (defun add-route (method routestring handler-function)
+;; (assert (member method +http-methods+) nil
+;; "~a is not a valid HTTP method indicator."
+;; method)
+;; )
diff --git a/package.lisp b/package.lisp
index 343192d..d4e3783 100644
--- a/package.lisp
+++ b/package.lisp
@@ -5,22 +5,3 @@
(:local-nicknames (#:a #:alexandria)
(#:re #:cl-ppcre)))
-;; (defpackage #:lazybones.decoders
-;; (:use #:cl)
-;; (:import-from #:split-sequence
-;; #:split-sequence)
-;; (:import-from #:arrows
-;; #:->>
-;; #:as->*)
-;; (:import-from #:do-urlencode
-;; #:urldecode)
-;; (:import-from #:lazybones
-;; #:add-decoder))
-
-
-;; (defpackage #:lazybones.fs-serve
-;; (:use #:cl)
-;; (:import-from #:lazybones #:register-file-handler-config)
-;; (:import-from #:alexandria
-;; #:read-file-into-string
-;; #:read-file-into-byte-vector))