diff options
Diffstat (limited to 'Lisp/memory-management.lisp')
-rw-r--r-- | Lisp/memory-management.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index 8331932..1a3055b 100644 --- a/Lisp/memory-management.lisp +++ b/Lisp/memory-management.lisp @@ -11,16 +11,16 @@ ;; (i.e. those whose name starts with `alloc' or `new'). Upon ;; Lisp-side finalization of an object, wie `release' it. (eval-when (:load-toplevel) - (dolist (type '(objc-id objc-class objc-exception)) + (dolist (type '(id objc-class exception)) (funcall (compile nil `(lambda () (defmethod make-instance ((class (eql ',type)) &rest initargs &key) (let* ((hash-table ,(ecase type - ((objc-id) '*id-objects*) + ((id) '*id-objects*) ((objc-class) '*class-objects*) - ((objc-exception) '*exception-objects*))) + ((exception) '*exception-objects*))) (hash-key (pointer-address (getf initargs :pointer))) (obj (weak-gethash hash-key hash-table nil))) (typecase obj |