From 1af2400c61309cadc7c05a39623dc1ad8ba00ce5 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 3 Feb 2022 18:17:31 -0600 Subject: empty hacking --- lazybones.lisp | 11 +++++------ package.lisp | 19 ------------------- 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)) -- cgit v1.2.3