diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-10 01:24:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-10 01:24:18 +0000 |
| commit | 36835d30a3255be49226ecc66c031bedaeafd8a5 (patch) | |
| tree | 190a0a1ba6111b111662ff48f663950e13f98de2 /src | |
| parent | c005f2ff071da28964d7b2f60a9b273b3e9685b4 (diff) | |
| download | open-axiom-36835d30a3255be49226ecc66c031bedaeafd8a5.tar.gz | |
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/bits.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |