(module tinyclos-xerox
  (export
   class-of make slot-ref slot-set! lookup-slot-info class-direct-slots class-direct-supers
   class-slots class-cpl generic-methods method-procedure the-slots-of-a-class
   getters-n-setters-for-class <class> <top> <object> <procedure-class> <entity-class>
   <generic> <method> make-class make-generic make-method initialize allocate-instance
   compute-getter-and-setter compute-cpl compute-slots compute-apply-generic compute-methods
   compute-method-more-specific? compute-apply-methods generic-invocation-generics add-method
   applicable? more-specific?
   ; Post-bootstrap initialization of primitive classes:
   <primitive-class> make-primitive-class
   <pair> <null> <symbol> <boolean> <procedure> <number> <vector> <char> <string>
   <input-port> <output-port>)
  (import scheme chicken)
  (use data-structures srfi-1)

(include "tiny-clos.scm")

)