anchor.diff:                 (error "&REST without rest variable"))
   
                (values (required) (optional) restp rest keyp (keys) allowp auxp (aux)
  -                     morep more-context more-count
                        (not (eq state :required))))))
   
   ;;; like PARSE-LAMBDA-LIST-LIKE-THING, except our LAMBDA-LIST argument
  
positive.code: ;;; weirdosities
  (defun parse-lambda-list (lambda-list)
    ;; Classify parameters without checking their validity individually.
    (multiple-value-bind (required optional restp rest keyp keys allowp auxp aux
                                   morep more-context more-count)
        (parse-lambda-list-like-thing lambda-list)
  
      ;; Check validity of parameters.
  
negative.code: ;;;  7. true if &ALLOW-OTHER-KEYS was specified.;
  ;;;  8. true if any &AUX is present (new in SBCL vs. CMU CL);
  ;;;  9. a list of the &AUX specifiers;
  ;;; 10. true if any lambda list keyword is present (only for
  ;;;     PARSE-LAMBDA-LIST-LIKE-THING).
  ;;;
  ;;; The top level lambda list syntax is checked for validity, but the
  