From 88f2b61bbb65eb24f55a9e3e55532f1379b00875 Mon Sep 17 00:00:00 2001 Message-Id: <88f2b61bbb65eb24f55a9e3e55532f1379b00875.1714699515.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 21 Oct 2001 16:55:39 +0000 Subject: [PATCH] Changed to use MKBINDING-LATE instead of MKBINDING Organization: Straylight/Edgeware From: espen --- glib/proxy.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/glib/proxy.lisp b/glib/proxy.lisp index 48e7d1e..4176447 100644 --- 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 -;; $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") @@ -289,12 +289,14 @@ (defmethod compute-virtual-slot-accessors (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) - (let ((setter (mkbinding setter 'nil class-name type))) + (let ((setter (mkbinding-late setter 'nil 'pointer type))) #'(lambda (value object) - (funcall setter object value))) + (funcall setter (proxy-location object) value))) setter)))))) (defmethod compute-slots ((class proxy-class)) -- [mdw]