From e95d66c3148a64b6fe1a6b2aa940ecc41867ce4a Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 20 Sep 2007 22:59:26 +0200 Subject: Fix the coercion rules for FLOAT and BOOLEAN values. darcs-hash:d24e207d8f1e0357c8a63ec058ec61318675e89f --- Lisp/utilities.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Lisp/utilities.lisp') diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp index b44c05d..a5c1723 100644 --- a/Lisp/utilities.lisp +++ b/Lisp/utilities.lisp @@ -8,7 +8,7 @@ (defun truep (b) (or (eq b t) (and (numberp b) - (not (zerop b))))) + (not (eql b +no+))))) (defun id-eql (x y) @@ -17,10 +17,10 @@ (defun id-equal (x y) (truep (if (typep x '(or id objc-class exception)) - (primitive-invoke x :is-equal :boolean y) + (primitive-invoke x :is-equal :char y) (progn (assert (typep y '(or id objc-class exception))) - (primitive-invoke y :is-equal :boolean x))))) + (primitive-invoke y :is-equal :char x))))) (defun objc-typep (x class-designator) -- cgit v1.2.3