diff options
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)) |