anchor.diff:  (extend-type still-okay
     okay-now?
     (okay-now (x) '(yes still okay)))
  -
  -  
  + 
     
   (let ((ok2 (make-still-okay :foo :bar)))
  -  (okay-now ok2))
  +  (assert (equalp (okay-now ok2)
  +		  '(yes still okay))))
   
   
   
  
positive.code: 
  ;;;;; should be over the eval-when issues.
  
  
  
  
  
  (defstruct still-okay foo)
  
  (defprotocol okay-now?
  
negative.code: 
  ;; a simple protocol with documentation and multiple
  ;; methods.
  
  (defprotocol greeter
    "A Way to Say Hello"
    (hi (object) "Greet object to stdout")
  