diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:26:55 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:26:55 +0100 |
commit | 3d0e2eda9285b91a998b86cb72c806c2aa5d789e (patch) | |
tree | 05faddca66b1b032d9f2f6464c984a5e0bd68f6e /Lisp/memory-management.lisp | |
parent | 4157d85957b1b89fabf1a55f2896ec58ee6d99d6 (diff) |
Replace all occurrences of OBJC-CLASS with OBJECTIVE-C-CLASS.
darcs-hash:1ba389d5a50343a134892bde78ba62e21842f684
Diffstat (limited to 'Lisp/memory-management.lisp')
-rw-r--r-- | Lisp/memory-management.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index caadf60..4b6666e 100644 --- a/Lisp/memory-management.lisp +++ b/Lisp/memory-management.lisp @@ -19,16 +19,18 @@ (defvar *id-objects* (make-weak-value-hash-table)) -(defvar *class-objects* (make-weak-value-hash-table)) (defvar *exception-objects* (make-weak-value-hash-table)) (defvar *selector-objects* (make-weak-value-hash-table)) (defvar *meta-class-objects* (make-weak-value-hash-table)) (defun make-pointer-wrapper (class &rest initargs &key pointer &allow-other-keys) + (when (and (not (eq 'selector class)) + (%objcl-object-is-class pointer)) + (return-from make-pointer-wrapper + (find-objc-class-by-name (%objcl-class-name pointer)))) (let* ((hash-table (ecase class ((id) *id-objects*) - ((objc-class) *class-objects*) ((exception) *exception-objects*) ((selector) *selector-objects*) ((objc-meta-class) *meta-class-objects*))) |