anchor.diff:  ;;; be eql methods.
   
   (defun prototype-or-error (name)
  -  (or (clim-mop:class-prototype (get-ptype-metaclass name))
  -      (error "Couldn't find a prototype for ~S" name)))
  +  (let ((ptype-meta (get-ptype-metaclass name)))
  +    (unless ptype-meta
  +      (error "~S is an unknown presentation type" name))
  +    (unless (clim-mop:class-finalized-p ptype-meta)
  +      (clim-mop:finalize-inheritance ptype-meta))
  +    (or (clim-mop:class-prototype ptype-meta)
  +      (error "Couldn't find a prototype for ~S" name))))
     
   (defmacro define-subtypep-method (&rest args)
     (let ((gf (gethash 'presentation-subtypep *presentation-gf-table*)))
  
positive.code: 			(return-from %presentation-typep nil))))))
    t)
  
  (define-presentation-type-abbreviation token-or-type (tokens type)
    `(or (member-alist ,tokens) ,type))
  
  
negative.code: 				   super-sequence super-test super-value-key)
  		t)))))
  
  (define-presentation-method present (object (type completion) stream
  				     (view textual-view)
  				     &key acceptably for-context-type)
    (declare (ignore acceptably for-context-type))
    (present object (presentation-type-of object)
  	   :stream stream :view view))
  
  (define-presentation-type-abbreviation member (&rest elements)
    (make-presentation-type-specifier `(completion ,elements)
  				    :name-key name-key
  