diff options
Diffstat (limited to 'src/interp/parsing.lisp')
| -rw-r--r-- | src/interp/parsing.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index ce5a2826..565fce93 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -602,10 +602,6 @@ the stack, then stack a NIL. Return the value of prod." ;; auxiliary functions needed by the parser -(defun char-eq (x y) (char= (character x) (character y))) - -(defun char-ne (x y) (char/= (character x) (character y))) - (Defun FLOATEXPID (X &aux S) (if (AND (IDENTP X) (char= (char-upcase (ELT (SETQ S (PNAME X)) 0)) #\E) (> (LENGTH S) 1) @@ -614,8 +610,6 @@ the stack, then stack a NIL. Return the value of prod." (READ-FROM-STRING S t nil :start 1) NIL)) -(defun |getToken| (x) (if (EQCAR x '|elt|) (third x) x)) - (defun |dollarTran| (dom rand) (let ((eltWord (if |$InteractiveMode| '|$elt| '|elt|))) (if (and (not (atom rand)) (cdr rand)) |