diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 23:02:55 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 23:02:55 +0200 |
commit | d3b7b18c6b390042b8d1bb10297ed96578a0c7a5 (patch) | |
tree | 4399a106550998e04a529e026723642cbac73f02 | |
parent | e95d66c3148a64b6fe1a6b2aa940ecc41867ce4a (diff) |
Stylistic improvements.
darcs-hash:5c14bcd5a90050f6b9845057ae09235460a3ca23
-rw-r--r-- | Lisp/method-invocation.lisp | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index dbf6f33..b33036b 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -596,17 +596,18 @@ Returns: *result* --- the return value of the method invocation. (defcoercion integer ((x id)) (assert (objc-typep x 'ns-number)) - (invoke x 'long-value)) + (invoke x 'int-value)) (defcoercion integer ((x number)) (truncate x)) (defcoercion integer ((x null)) - 0) + (declare (ignore x)) + +no+) -(defcoercion integer ((x symbol)) - (assert (eq 't x)) - 1) +(defcoercion integer (x) + (declare (ignore x)) + +yes+) (defcoercion selector ((x selector)) @@ -644,9 +645,11 @@ Returns: *result* --- the return value of the method invocation. ;; Note that this refers to the Objective-C BOOL type, not the Lisp ;; BOOLEAN type. (defcoercion bool ((x null)) + (declare (ignore x)) +no+) (defcoercion bool (x) + (declare (ignore x)) +yes+) |