anchor.diff:        result)))
   	
   (defun parse-define-modify-macro-lambda-list (lambda-list)
  -  (let ((allowed '(&optional &rest &body)))
  +  (let ((allowed '(&optional &rest)))
       (check-lambda-list-proper lambda-list 'parse-define-modify-macro-lambda-list)
       (check-lambda-list-keywords lambda-list allowed)
       (let ((positions (compute-keyword-positions lambda-list allowed))
  
positive.code: 	  collect i))
  
  (defun parse-ordinary-lambda-list (lambda-list)
    (let ((allowed '(&optional &rest &body &key &allow-other-keys &aux)))
      (check-lambda-list-proper lambda-list 'parse-ordinary-lambda-list)
      (check-lambda-list-keywords lambda-list allowed)
      (let ((positions (compute-keyword-positions lambda-list allowed))
  
negative.code: 
  (defun parse-define-method-combination-arguments-lambda-list
      (lambda-list)
    (let ((allowed '(&whole &optional &rest &key &allow-other-keys &aux)))
      (check-lambda-list-proper
       lambda-list
       'parse-define-method-combination-arguments-lambda-list)
  