1;; ---------------------------------------------------------------------------- 2;; objs.scm -- basic object types and hooks 3;;---------------------------------------------------------------------------- 4 5;; Make the basic object interface which supports g)et 6(define obj-ifc 7 (ifc '() 8 (method 'get kobj-get))) 9