diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-09-21 03:35:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-09-21 03:35:55 +0000 |
| commit | fd8c12056474ecab97015eff9cdadd4bd77b5fd5 (patch) | |
| tree | 9e6106481e73d5cd1b78e7653e8414d585ef76ab /src/interp | |
| parent | fde9260a842114ae27a99f7de23c9a46b79eccf4 (diff) | |
| download | open-axiom-fd8c12056474ecab97015eff9cdadd4bd77b5fd5.tar.gz | |
* interp/sys-macros.lisp (|byteEqual|): New.
* algebra/boolean.spad.pamphlet (PropositionalLogic): Extend
SetCategory.
(PropositionalFormula): Now unconditional exports coercion to
OutputForm. Adjust implementation.
(KleeneTrivalentLogic): New.
* algebra/data.spad.pamphlet (Byte): Tidy.
* algebra/Makefile.pamphlet (axiom_algebra_layer_0): Move PROPLOG
to layer 1.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index cd389841..c53dac73 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -62,11 +62,14 @@ ;; -*- Byte -*- ;; +(defmacro |byteEqual| (|x| |y|) + `(EQL (the |%Byte| ,|x|) (the |%Byte| ,|y|))) + (defmacro |byteLessThan| (|x| |y|) - `(< (the fixnum ,|x|) (the fixnum ,|y|))) + `(< (the |%Byte| ,|x|) (the |%Byte| ,|y|))) (defmacro |byteGreaterEqual| (|x| |y|) - `(>= (the fixnum ,|x|) (the fixnum ,|y|))) + `(>= (the |%Byte| ,|x|) (the |%Byte| ,|y|))) ;; ;; -*- BigFloat Constructors -*- |