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/type-conversion.lisp | |
| parent | 2ae7324b43a2a20c44af0cb283dba56061f7baeb (diff) | |
Rename OBJC-ID to ID and OBJC-SELECTOR to SELECTOR.
darcs-hash:ef59ba8822e85e92dc63e7eed707140963c5a36d
Diffstat (limited to 'Lisp/type-conversion.lisp')
| -rw-r--r-- | Lisp/type-conversion.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp index 6869ff9..8839b3b 100644 --- a/Lisp/type-conversion.lisp +++ b/Lisp/type-conversion.lisp @@ -10,7 +10,7 @@ 'obj-data-union (type-name->slot-name type-name)) (typecase value - ((or objc-id objc-class objc-selector objc-exception) + ((or id objc-class selector exception) (pointer-to value)) (string (foreign-string-alloc value)) (otherwise value))) @@ -29,7 +29,7 @@ 'obj-data-union (type-name->slot-name type-name))))) (case lisp-type - ((objc-id objc-class objc-selector objc-exception) + ((id objc-class selector exception) (make-instance lisp-type :pointer value)) ((string) (foreign-string-to-lisp value)) (otherwise value)))))
\ No newline at end of file |