anchor.diff:  	      (&key
   	       (setq state :parsing-key))
   	      (&allow-other-keys
  -	       (setq allow-other-keys =t=))
  +	       (setq allow-other-keys t))
   	      (&aux
   	       (setq state :parsing-aux)))
   	    (case state
  
positive.code: 	       (pushend arg required-args)
  	       (if (listp arg)
  		   (progn (pushend (car arg) required-names)
  			  (pushend (cadr arg) participants))
  		   (progn (pushend arg required-names)
  			  (pushend =t= participants))))
  	      (:parsing-optional (pushend arg optionals))
  	      (:parsing-rest (setq rest-var arg))
  	      (:parsing-key
  
negative.code:       var-name
        (error "Invalid var name.")))
  
  (defun extract-participants (specialized-lambda-list)
    (let ((plist (analyze-lambda-list specialized-lambda-list)))
      `(list ,@(getf plist :participants))))
  
  (defmacro undefmessage (&rest args)
    (multiple-value-bind (name qualifiers lambda-list)
  