diff options
Diffstat (limited to 'src/interp/newaux.lisp')
| -rw-r--r-- | src/interp/newaux.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp index 3d328de7..d8ac603e 100644 --- a/src/interp/newaux.lisp +++ b/src/interp/newaux.lisp @@ -205,7 +205,7 @@ ;; is `+' for Integers. (mapcar #'(lambda (x) (MAKEPROP X 'GENERIC 'TRUE)) - '(- = * |rem| |mod| |quo| |div| / ** |exquo| + - < > <= >= ^= )) + '(- = * |rem| |mod| |quo| |div| / ** |exquo| + - < > <= >= ~= )) (defun SPECIALCASESYNTAX () (OR (AND (char= TOK '#\#) (DIGITP CHR)))) |