anchor.diff:  	(error "something is seriously wrong here"))
         result)))
   	
  -(defun parse-specialized-lambda-list (lambda-list processor processee)
  +(defun parse-specialized-lambda-list (lambda-list)
     (let ((allowed '(&optional &rest &body &key &allow-other-keys &aux)))
  -    (check-lambda-list-proper lambda-list processor processee)
  -    (check-lambda-list-keywords lambda-list allowed processor processee)
  +    (check-lambda-list-proper lambda-list)
  +    (check-lambda-list-keywords lambda-list allowed)
       (let ((positions (compute-keyword-positions lambda-list allowed))
   	  (result (make-instance 'lambda-list)))
         (setf (required result)
  
positive.code: 	(progn
  	  (let ((allowed '(&whole &environment &optional &rest &body
  			   &key &allow-other-keys &aux)))
  	    (check-lambda-list-keywords lambda-list allowed processor processee)
  	    (let ((positions (compute-keyword-positions lambda-list allowed))
  		  (result (make-instance 'lambda-list)))
  	      (if (eq (car lambda-list) '&whole)
  
negative.code:        (eql (char (symbol-name object) 0) #\&)))
  
  ;;; Use this function for lambda lists that can be proper or dotted.
  (defun check-lambda-list-not-circular (lambda-list)
    (when (eq (nth-value 1 (list-structure lambda-list)) :circular)
      (error 'lambda-list-must-not-be-circular
  	   :form lambda-list)))
  
  ;;; Use this function for lambda lists that must be proper lists.
  (defun check-lambda-list-proper (lambda-list)
    (unless (eq (nth-value 1 (list-structure lambda-list)) :proper)
      (error 'lambda-list-must-be-proper-list
  	   :form lambda-list)))
  
  ;;; Check for restrictions common to all lambda lists.
  ;;;
  