anchor.diff:                              :format-control "Found a declaration ~S in the body: ~S"
                               :format-arguments (list form body))
                        (push form actual-body))))
  -           :finally (return (ecase state
  -                              (:opt-decl
  -                               (values docstring declarations (nreverse actual-body)))
  -                              (:seen-string
  -                               (if actual-body
  -                                 (values docstring declarations (nreverse actual-body))
  -                                 (values nil declarations (list docstring))))
  -                              ((:after-decl :body)
  -                               (values docstring declarations (nreverse 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
  
positive.code: NOTE:   This parses the body as a lambda body.
          It's better to use PARSE-BODY directly.
  "
      (values (parse-body :lambda body)))
  
  
    (defun extract-declarations (body &optional (allow-docstring t))
  
negative.code: 
  BODY:           A list of forms.
  
  RETURN:         Three values: a list containing one docstring or nil,
                  a list of declarations, a list of forms.
  "
      (flet ((progn-body (body)
               (if (some (lambda (form) (and (consp form) (eq 'declare (first form))))
  