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))
   	     (dolist (super (cdr (pcl::class-precedence-list class)))
   	       (return-if (find-type-method super fname)))))
   	 (find-expanded-type-method (type-spec)
  
positive.code: 	 ))))
  
  (deftype-method cleanup-alien string (type-spec c-string &optional weak-ref)
    (declare (ignore type-spec))
    (when weak-ref
      (unreference-alien type-spec c-string)))
  
  
negative.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")
  
  