diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-19 12:44:39 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-19 12:44:39 +0100 |
commit | 4b98e8d6f54256810b243afe9ea9abf5ad6d445b (patch) | |
tree | e81dfc256ec064af0e9140221fb4624fba8f51ff /Lisp/libobjcl.lisp | |
parent | f9180cd67505f16a8588a83da82f263bc395b347 (diff) |
Move (OBJECT-GET-CLASS RECEIVER) from INVOKE-BY-NAME-SUPER-V to RETRIEVE-METHOD-SIGNATURE-INFO.
darcs-hash:1fd46a3dbdb3a5e2ec284be3255dd08b2b074414
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r-- | Lisp/libobjcl.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 38b244f..fab195e 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -731,10 +731,6 @@ separating parts by hyphens works nicely in all of the `:INVERT`, (%objcl-object-is-meta-class (pointer obj))) (defun object-get-class (obj) - ;; OPTIMISE: Both find-objc-class-by-name and %objcl-class-name are - ;; slow and mostly unneeded. We can simply retrieve classes by class - ;; pointer if they have already been registered in a hash table - ;; somewhere. (intern-pointer-wrapper 'objective-c-class :pointer (%objcl-object-get-class (pointer obj)))) |