diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 11:32:06 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 11:32:06 +0100 |
| commit | ff9d8fa0492a186354a3ec3b49efed95e36499d1 (patch) | |
| tree | b2cdbceb1fde563099e6fd6cd1265ad2c8e4f2fa | |
| parent | d907d3d250c9a0f43b3497dcf5fa354be4ffc83f (diff) | |
Fix the callback COLLECT-METHODS uses to collect methods of a class.
darcs-hash:91949561bc5eba149950b45fae63f5987486febd
| -rw-r--r-- | Lisp/libobjcl.lisp | 2 |
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)))) |