summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-05 11:32:06 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-05 11:32:06 +0100
commitff9d8fa0492a186354a3ec3b49efed95e36499d1 (patch)
treeb2cdbceb1fde563099e6fd6cd1265ad2c8e4f2fa /Lisp
parentd907d3d250c9a0f43b3497dcf5fa354be4ffc83f (diff)
Fix the callback COLLECT-METHODS uses to collect methods of a class.
darcs-hash:91949561bc5eba149950b45fae63f5987486febd
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp2
1 files changed, 1 insertions, 1 deletions
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))))