diff options
Diffstat (limited to 'Lisp/utilities.lisp')
| -rw-r--r-- | Lisp/utilities.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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) |