Changed to use MKBINDING-LATE instead of MKBINDING

diff --git a/glib/proxy.lisp b/glib/proxy.lisp
index 48e7d1e897fb146ab903f325f8555d115213b4d9..41764479e21569150d41175043c754eab06a43d6 100644 (file)
--- a/glib/proxy.lisp
+++ b/glib/proxy.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; 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: proxy.lisp,v 1.5 2001-05-29 15:43:44 espen Exp $
+;; $Id: proxy.lisp,v 1.6 2001-10-21 16:55:39 espen Exp $

 
 (in-package "GLIB")
 
 
 (in-package "GLIB")
 


@@ -289,12 +289,14 @@   (defmethod compute-virtual-slot-accessors
        (with-slots (type) slotd
          (list
           (if (stringp getter)
        (with-slots (type) slotd
          (list
           (if (stringp getter)

-              (mkbinding getter type class-name)
+              (let ((getter (mkbinding-late getter type 'pointer)))
+                #'(lambda (object)
+                    (funcall getter (proxy-location object))))

             getter)
           (if (stringp setter)
             getter)
           (if (stringp setter)

-              (let ((setter (mkbinding setter 'nil class-name type)))
+              (let ((setter (mkbinding-late setter 'nil 'pointer type)))

                 #'(lambda (value object)
                 #'(lambda (value object)

-                    (funcall setter object value)))
+                    (funcall setter (proxy-location object) value)))

             setter))))))
 
   (defmethod compute-slots ((class proxy-class))
             setter))))))
 
   (defmethod compute-slots ((class proxy-class))