diff options
Diffstat (limited to 'lazybones.lisp')
| -rw-r--r-- | lazybones.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 785afb0..9b767bf 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -59,7 +59,7 @@ :initform nil))) (defmethod initialize-instance :before ((app app) &key name &allow-other-keys) - (when (lazybones-boundp name) + (when (app name) (error "an app named ~s already exists" name))) (defmethod initialize-instance :after ((app app) &key) @@ -90,7 +90,7 @@ (handler-function :reader endpoint-request-handler :initarg :function) - (documentation + (endpoint-documentation :reader endpoint-documentation :initarg :doc :initform ""))) @@ -300,10 +300,10 @@ making a new one if not." (register-endpoint ,the-app (make-instance - ,endpoint-class + ',endpoint-class :route ,route - :pattern ,dispatch-pattern - :documentation ,documentation + :pattern ',dispatch-pattern + :doc ,documentation :auth ,auth-method :function (lambda ,params ,@real-body) ,@endpoint-initargs)))))) |