From 36835d30a3255be49226ecc66c031bedaeafd8a5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 10 Dec 2010 01:24:18 +0000
Subject:

---
 src/interp/bits.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/interp/bits.lisp b/src/interp/bits.lisp
index efff9357..4ae37adf 100644
--- a/src/interp/bits.lisp
+++ b/src/interp/bits.lisp
@@ -48,7 +48,7 @@
 ;;; SMW Nov 88: Created
  
 (defmacro truth-to-bit (x) `(cond (,x 1) ('else 0)))
-(defmacro bit-to-truth (b) `(eq ,b 1))
+(defmacro bit-to-truth (b) `(eql ,b 1))
 
 (defun    bvec-make-full (n x) 
     (make-array (list n) :element-type 'bit :initial-element x))
-- 
cgit v1.2.3