anchor.diff:  		    `#',(make-translator-fun (car tester)
   					     (cdr tester)))
          :tester-definitive ',tester-definitive
  -       :documentation #',(make-documentation-fun from-type
  -						 documentation)
  +       :documentation #',(make-documentation-fun documentation)
          ,@(when pointer-documentation-p
   	       `(:pointer-documentation
  -		 #',(make-documentation-fun from-type
  -					    pointer-documentation)))
  +		 #',(make-documentation-fun pointer-documentation)))
          :menu ',menu
          :priority ,priority
          :translator-function #',(make-translator-fun arglist
  
positive.code: 		    `',tester
  		    `#',(make-translator-fun (car tester)
  					     (cdr tester)))
         :documentation #',(make-documentation-fun from-type
  						 documentation)
         ,@(when pointer-documentation-p
  	       `(:pointer-documentation
  		 #',(make-documentation-fun from-type
  					    pointer-documentation)))
         :menu ',menu
         :priority ,priority
         :translator-function #',(make-translator-fun arglist
  
negative.code: 		      (apply #'make-instance 'clos-presentation-type
  			     :clos-class clos-meta
  			     ptype-class-args)
  		      (let ((directs (mapcan
  				      #'(lambda (super)
  					  (if (eq super t)
  					      nil
  					      (list (or (get-ptype-metaclass
  							 super)
  							super))))
  					     supers)))
  			(apply #'clim-mop:ensure-class fake-name
  			       :name fake-name
  