anchor.diff:         for list in methods
          for thing = (first list)
          do (if (keywordp thing)
  -	      (setf (getf (protocol-body-properties body) thing)
  +	      (if (validate-defprotocol-option list)
  +		  (setf (getf (protocol-body-properties body) thing)
   		    (rest list))
  +		  (error "invalid option in defprotocol: ~S" list))
   	      (push list (protocol-body-methods body))))
       body))
   
  
positive.code:   properties ;;plist
    methods )
  
  (defun parse-protocol-body (methods)
    (let ((body (make-protocol-body
  	       :properties (list)
  
negative.code:       (setf
         ;;wether to generate punning methods
         (protocol-includes-method-pun protocol)
         (getf properties :eponymous-method)
  
         ;; including methods implies including
         ;; a generic
  