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/libobjcl.lisp | |
parent | 2ae7324b43a2a20c44af0cb283dba56061f7baeb (diff) |
Rename OBJC-ID to ID and OBJC-SELECTOR to SELECTOR.
darcs-hash:ef59ba8822e85e92dc63e7eed707140963c5a36d
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r-- | Lisp/libobjcl.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 12a880c..e4b64f0 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -170,20 +170,20 @@ conventional case for namespace identifiers in Objective C." (defun objcl-class-name (class) - (declare (type (or objc-class objc-id objc-exception) class)) + (declare (type (or objc-class id exception) class)) (let ((obj-data (foreign-alloc 'obj-data))) (with-foreign-slots ((type data) obj-data obj-data) (setf (foreign-slot-value data 'obj-data-union (etypecase class (objc-class 'class-val) - (objc-id 'id-val) - (objc-exception 'exc-val))) + (id 'id-val) + (exception 'exc-val))) (pointer-to class)) (setf type (foreign-string-alloc (etypecase class (objc-class "#") - (objc-id "@") - (objc-exception "E"))))) + (id "@") + (exception "E"))))) (prog1 (%objcl-class-name obj-data) (dealloc-obj-data obj-data)))) |