anchor.diff:        (t
          (values forms nil)))))
   
  -(defun parse-lambda-call-params (llist)
  +(defun parse-lambda-call-params (llist &optional error-context)
     ;; NB: This function's return value is used together with
     ;; the return value from PARSE-DECLARED-TYPES, for computing
     ;; an FTYPE declaration in UNPARSE-NAMED-FTYPE
  
positive.code:   (:report
     (lambda (c s)
       (format s "~<Error when compiling lambda form~>~< ~S~>"
               (lambda-compile-condition-form)))))
  
  ;; ----
  
  
negative.code:                       :datum expr
                        ;; FIXME note that the CONTEXT (EVAL-CONTEXT)
                        ;; should be provided by any calling form
                        :context error-context
                        :lambda-list llist)))
             ))))))
  
  
  