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