From ff9d8fa0492a186354a3ec3b49efed95e36499d1 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 5 Mar 2008 11:32:06 +0100 Subject: Fix the callback COLLECT-METHODS uses to collect methods of a class. darcs-hash:91949561bc5eba149950b45fae63f5987486febd --- Lisp/libobjcl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index af8b66c..92f5547 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -937,7 +937,7 @@ separating parts by hyphens works nicely in all of the `:INVERT`, (intern-pointer-wrapper 'selector :pointer (%objcl-method-selector - (mem-aref method-array :void i)))) + (mem-aref method-array :pointer i)))) (foreign-free method-array)))))) (collect-methods class) (collect-methods (%objcl-class-metaclass class)))) -- cgit v1.2.3