diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 02:15:24 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 02:15:24 +0100 |
| commit | e8b7cf9507bd295778e4d5e1b52483972d69bcb1 (patch) | |
| tree | 322e73e7d38a5c37365e022d66a6d2965a49d876 /Lisp/class-definition.lisp | |
| parent | 519e15f4039c830bc32a6df0016f499152af8ad4 (diff) | |
Aesthetic improvements.
darcs-hash:8112f3e9cc11608d8f7c2f1862b24f8e0f24b08f
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 6637212..55c69a4 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -556,6 +556,9 @@ intern any missing superclass objects. ;;;; (@* "Memory management") (defvar *retained-lisp-objects* (make-hash-table :test #'eql)) +;;; FIXME: Should we override #dealloc? It may be the only way to get +;;; any information at all on a garbage-collected Objective-C runtime. + (defun retain (instance) ;; Ensure that INSTANCE is not garbage-collected on the Lisp side. (setf (gethash (pointer-address (pointer instance)) |