anchor.diff:  
   (defun find-applicable-type-method (type-spec fname &optional (error t))
     (flet ((find-superclass-method (class)
  -	   (when class
  -  	     (unless (class-finalized-p class)		   
  -	       (finalize-inheritance class))
  +	   (when (and class (class-finalized-p class))
  +;  	     (unless (class-finalized-p class)
  +;	       (finalize-inheritance class))
   	     (dolist (super (cdr (pcl::class-precedence-list class)))
   	       (return-if (find-type-method super fname)))))
   	 (find-expanded-type-method (type-spec)
  
positive.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gforeign.lisp,v 1.10 2001-05-31 21:52:15 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code: 		 (values ,@(alien-values)))))))))
  
  
  (defun mkbinding (name return-type &rest arg-types)
     (declare (optimize (ext:inhibit-warnings 3)))
     (let* ((ftype
  	   `(function
  	     ,@(mapcar #'translate-type-spec (cons return-type arg-types))))
  	 (alien
  	  (alien::%heap-alien
  	   (alien::make-heap-alien-info
  	    :type (alien::parse-alien-type ftype)
  	    :sap-form (system:foreign-symbol-address name))))
  	 (translate-arguments
  	  (mapcar #'intern-return-value-translator arg-types))
  	 (translate-return-value (intern-return-value-translator return-type))
  	 (cleanup-arguments (mapcar #'intern-cleanup-function arg-types)))
  	 
      #'(lambda (&rest args)
  	(map-into args #'funcall translate-arguments args)
  