anchor.diff:  ;; 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: gtype.lisp,v 1.6 2000-11-09 20:29:19 espen Exp $
  +;; $Id: gtype.lisp,v 1.7 2001-01-28 14:11:20 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code: (define-foreign type-instance-size (type) int
    ((find-type-number type) type-number))
  
  (define-foreign type-create-instance (type) pointer
    ((find-type-number type) type-number))
  
  (define-foreign type-free-instance () nil
    (instance pointer))
  
negative.code:        object))
       ((or (functionp writer) (symbolp writer))
        (funcall writer value object)
        value)
       (t
        (funcall (fdefinition writer) value object)
        value))))
  	
  
  (defmethod validate-superclass
  