anchor.diff:                      i))))))
   
       ;; Voila.
  -    (values required optional restp rest keyp keys allowp auxp aux
  -            morep more-context more-count)))
  +    (values required optional restp rest keyp keys allowp auxp aux)))
   
   (defun parse-specialized-lambda-list
       (arglist
  
positive.code:                (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
  
negative.code:                         (setq restp t
                                rest arg
                                state :post-rest))
                         (:key (keys arg))
                         (:aux (aux arg))
                         (t
  