anchor.diff:  ;;;  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 a &MORE arg was specified;
  -;;; 11. the &MORE context var;
  -;;; 12. the &MORE count var;
  -;;; 13. true if any lambda list keyword is present (only for
  +;;; 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
  
positive.code:             (aux))
             (let ((restp nil)
                   (rest nil)
                   (morep nil)
                   (more-context nil)
                   (more-count nil)
                   (keyp nil)
                   (auxp nil)
                   (allowp nil)
                   (state :required))
               (declare (type (member :allow-other-keys :aux
                                      :key
                                      :more-context :more-count
                                      :optional
                                      :post-more :post-rest
                                      :required :rest)
                              state))
               (dolist (arg list)
                 (if (member arg lambda-list-keywords)
  
negative.code:                (error "&REST without rest variable"))
  
               (values (required) (optional) restp rest keyp (keys) allowp auxp (aux)
                       (not (eq state :required))))))
  
  ;;; like PARSE-LAMBDA-LIST-LIKE-THING, except our LAMBDA-LIST argument
  