diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 17:27:49 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 17:27:49 +0200 |
commit | 4bf7ff0fac043bbe1516e00fdd3567ed38fe6ff4 (patch) | |
tree | 060b10832dba766ec739c40a5262651bc5613aa2 /Lisp/memory-management.lisp | |
parent | 0b07278c11c0ecb073356b15f1ed5e8781583d0c (diff) |
Define an external interface, properly document FIND-OBJC-CLASS.
darcs-hash:2e4424a65b72a13e3cfa26d07dce945bc35ba8e1
Diffstat (limited to 'Lisp/memory-management.lisp')
-rw-r--r-- | Lisp/memory-management.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index 1c540fb..600e079 100644 --- a/Lisp/memory-management.lisp +++ b/Lisp/memory-management.lisp @@ -1,9 +1,6 @@ (in-package #:mulk.objective-cl) -(defvar *skip-finalization* nil) -(defvar *skip-retaining* nil) - (defvar *id-objects* (make-weak-value-hash-table)) (defvar *class-objects* (make-weak-value-hash-table)) (defvar *exception-objects* (make-weak-value-hash-table)) @@ -63,7 +60,7 @@ :incomplete) (let ((new-obj (call-next-method))) (unless *skip-retaining* - (objcl-invoke-class-method new-obj "retain")) + (invoke-by-name new-obj "retain")) (unless *skip-finalization* ;; We only put the new object into the hash ;; table if it is a regular wrapper object @@ -89,7 +86,7 @@ (*skip-retaining* t)) (make-instance saved-type :pointer saved-pointer)))) - (objcl-invoke-class-method temp "release")))) + (invoke-by-name temp "release")))) (trivial-garbage:finalize new-obj #'finalizer)))) new-obj)) (t obj)))) |