aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/defendpoint.lisp17
1 files changed, 7 insertions, 10 deletions
diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp
index 0ac9ec9..dd39368 100644
--- a/src/defendpoint.lisp
+++ b/src/defendpoint.lisp
@@ -42,11 +42,12 @@ PART is either
(symbolp (first spec))
(symbolp (second spec))))
-(defun params-to-slotdefs (specs)
+(defun params-to-slotdefs (endpoint specs)
(loop :for (name type . doc) :in specs
:collect `(,name
:accessor ,name
:initarg ,(a:make-keyword name)
+ :initform (slot-required ',endpoint ',name)
:type ,type
:documentation ,(or (first doc) ""))))
@@ -75,7 +76,7 @@ PART is either
(setf var (or var (gensym "REQ-")))
(setf metaclass (or metaclass 'endpoint))
(let* ((slot-defs
- (nconc (params-to-slotdefs parameters)
+ (nconc (params-to-slotdefs name parameters)
(props-to-slotdefs properties)))
(all-slots
(nconc (mapcar #'first slot-defs)
@@ -130,9 +131,6 @@ PART is either
(:@ supers (:? <supers>))
(:@ method <method>)
(:@ pathspec <pathspec>)
- ; (:@ return (:? <return>))
-; (:@ params (:? <parameters>))
-; (:@ props (:? <properties>))
(:@ options (:* <option>))
(:@ handle <handle>)
(:eof))
@@ -141,10 +139,7 @@ PART is either
method
pathspec
handle
-; return
:supers supers
-; :parameters params
-; :properties props
(a:alist-plist options)))
(<supers>
:match (:seq (:or= :using :extends) (:+ <classname>))
@@ -163,14 +158,16 @@ PART is either
:note "REGEX or (KWD REGEX &optional PARSER)")
(<parameters>
:match (:seq (:= :parameters) (:+ <param>))
- :then (cons :parameters (second <parameters>)))
+ :then (cons :parameters (second <parameters>))
+ :note "Request parameters - will signal an error if missing from the user request")
(<param>
:match (:item)
:if parameter-spec-p
:note "(NAME TYPE &optional DOCSTRING)")
(<properties>
:match (:seq (:= :properties) (:+ <prop>))
- :then (cons :properties (second <properties>)))
+ :then (cons :properties (second <properties>))
+ :note "Values that should be filled-in during authentication or authorization")
(<prop>
:match (:item)
:if property-spec-p