anchor.diff:  		      (apply #'make-instance 'clos-presentation-type
   			     :clos-class clos-meta
   			     ptype-class-args)
  -		      (let ((directs (mapcar #'(lambda (super)
  -						 (or (get-ptype-metaclass super)
  -						     super))
  +		      (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
  
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: 		    `#',(make-translator-fun (car tester)
  					     (cdr tester)))
         :tester-definitive ',tester-definitive
         :documentation #',(make-documentation-fun documentation)
         ,@(when pointer-documentation-p
  	       `(:pointer-documentation
  		 #',(make-documentation-fun pointer-documentation)))
         :menu ',menu
         :priority ,priority
         :translator-function #',(make-translator-fun arglist
  