anchor.diff:      (multiple-value-bind (required optional rest keyword)
           (alexandria:parse-ordinary-lambda-list args)
         (declare (ignore optional rest))
  -	  (ensure (eql (length (required-arguments resource-operation))
  -				   (length required))
  -			  "Required arguments lists don't match: ~A ~A"
  -			  (mapcar #'argument-name (required-arguments resource-operation))
  -			  required)
  +      (ensure (eql (length (required-arguments resource-operation))
  +                   (length required))
  +              "Required arguments lists don't match: ~A ~A"
  +              (mapcar #'argument-name (required-arguments resource-operation))
  +              required)
         (loop for arg0 in (required-arguments resource-operation)
            for arg1 in required
            do
  
positive.code:    (type :initarg :type
           :accessor argument-type
           :documentation "The argument type")
     (default
         :initarg :default
       :accessor argument-default
       :initform nil
       :documentation "The argument default value")
  
negative.code:                      (optional-arguments resource-operation))))
          (let ((invalid-optional-args
                 (set-difference (set-difference optional-args-names
                                                 (list "_POSTED-CONTENT" "_RESOURCE-OPERATION")
  
                                                 :test #'equalp)
                                 resource-operation-optional-args
                                 :test #'equalp)))
  