diff options
Diffstat (limited to 'src/algebra/strap/DFLOAT.lsp')
| -rw-r--r-- | src/algebra/strap/DFLOAT.lsp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp index 9795065f..61278b24 100644 --- a/src/algebra/strap/DFLOAT.lsp +++ b/src/algebra/strap/DFLOAT.lsp @@ -93,6 +93,9 @@ |%Boolean|) |DFLOAT;<=;2$B;22|)) +(PUT '|DFLOAT;<=;2$B;22| '|SPADreplace| + '(XLAM (|x| |y|) (NOT (> |x| |y|)))) + (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%DoubleFloat| |%Shell|) |%Boolean|) |DFLOAT;>=;2$B;23|)) @@ -504,7 +507,9 @@ (DEFUN |DFLOAT;>;2$B;21| (|x| |y| $) (DECLARE (IGNORE $)) (> |x| |y|)) -(DEFUN |DFLOAT;<=;2$B;22| (|x| |y| $) (NOT (> |x| |y|))) +(DEFUN |DFLOAT;<=;2$B;22| (|x| |y| $) + (DECLARE (IGNORE $)) + (NOT (> |x| |y|))) (DEFUN |DFLOAT;>=;2$B;23| (|x| |y| $) (DECLARE (IGNORE $)) |