diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-06 15:57:25 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-06 15:57:25 +0200 |
commit | 4cdb467706500d621769ffef0286be58d7bfc8da (patch) | |
tree | dcef51e28d500bc2da4aad8d5fea03b6e9548ca0 /Lisp/memory-management.lisp | |
parent | 2ae7324b43a2a20c44af0cb283dba56061f7baeb (diff) |
Rename OBJC-ID to ID and OBJC-SELECTOR to SELECTOR.
darcs-hash:ef59ba8822e85e92dc63e7eed707140963c5a36d
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 |