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.19 2004-11-07 01:21:04 espen Exp $
  +;; $Id: gtype.lisp,v 1.20 2004-11-13 16:37:09 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code: (type-init)
  
  (deftype type-number () '(unsigned 32))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defclass type-query (struct)
  
negative.code:     (:metaclass struct-class)))
  
  
  (defbinding type-query (type) nil
    ((find-type-number type t) type-number)
    ((make-instance 'type-query) type-query :return))
  
  (defun type-instance-size (type)
    (slot-value (type-query type) 'instance-size))
  