anchor.diff:  		 (when line
   		   (let ((symbol (subseq line 11)))
   		     (when (and
  +			    (> (length symbol) (length prefix))
  +			    (string= prefix symbol :end2 (length prefix))
   			    (search "_get_type" symbol)
   			    (not (member symbol ignore :test #'string=)))
   		       (push symbol fnames)))
  
positive.code:       (ext:process-close process)
        `(init-type ',fnames))))
  
  (defmacro init-types-in-library (filename &key ignore)
    (%init-types-in-library
     (format nil "~A/~A" *gtk-library-path* filename) ignore))
  
  
  
  
negative.code: 
  (defun %type-of-ginstance (location)
    (let ((class (sap-ref-sap location 0)))
      (type-from-number (sap-ref-32 class 0))))
  
  (defmethod ensure-proxy-instance ((class ginstance-class) location)
    (declare (ignore class))
    (let ((class (find-class (%type-of-ginstance location))))
      (if class
  	(make-instance class :location (reference-foreign class location))
        ;; TODO: (make-instance 'ginstance ...)
        location)))
  
  
  ;;;; Metaclass for subclasses of ginstance
  