anchor.diff:  NOTE:   This parses the body as a lambda body.
           It's better to use PARSE-BODY directly.
   "
  -    (values (parse-body :lambda body)))
  +    (values (first (parse-body :lambda body))))
   
   
     (defun extract-declarations (body &optional (allow-docstring t))
  
positive.code:            (handler-case
                 (multiple-value-bind (doc dec for) (parse-body :lambda body)
                   (assert (not expect-error-p))
                   (assert (equalp doc docstring))
                   (assert (equalp dec declarations))
                   (assert (equalp for forms)))
               (program-error () (assert expect-error-p))))
  
negative.code:                             :format-control "Found a declaration ~S in the body: ~S"
                              :format-arguments (list form body))
                       (push form actual-body))))
             :finally (flet ((ensure-list (object)
                               (if (listp object)
                                   object
                                   (list object))))
                        (return (ecase state
                                  (:opt-decl
                                   (values (ensure-list docstring)
                                           declarations
                                           (nreverse actual-body)))
                                  (:seen-string
                                   (if actual-body
                                       (values (ensure-list docstring)
                                               declarations
                                               (nreverse actual-body))
                                       (values nil
                                               declarations
                                               (list docstring))))
                                  ((:after-decl :body)
                                   (values (ensure-list docstring)
                                           declarations
                                           (nreverse actual-body))))))))
          ((:locally)
           ;; {declaration} {form}
           (loop
  