summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-09-20 23:02:55 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-09-20 23:02:55 +0200
commitd3b7b18c6b390042b8d1bb10297ed96578a0c7a5 (patch)
tree4399a106550998e04a529e026723642cbac73f02 /Lisp
parente95d66c3148a64b6fe1a6b2aa940ecc41867ce4a (diff)
Stylistic improvements.
darcs-hash:5c14bcd5a90050f6b9845057ae09235460a3ca23
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-invocation.lisp13
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+)