From 90e6023292e2bfe927bd633bac42fc355bb9f4d1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 4 Aug 2008 18:18:41 +0200
Subject: Add support for fixnums.

---
 util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index 62d9e79..af3cec0 100644
--- a/util.lisp
+++ b/util.lisp
@@ -159,7 +159,7 @@
   (%append lists))
 
 (%defun* %zerop (integer)
-  (send-by-name integer "isEqual:" 0))
+  (fixnum-eq integer 0))
 
 (%defun* %= (int1 int2)
   (send-by-name int1 "isEqual:" int2))
-- 
cgit v1.2.3