diff options
Diffstat (limited to 'src/interp/metalex.lisp')
| -rw-r--r-- | src/interp/metalex.lisp | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/src/interp/metalex.lisp b/src/interp/metalex.lisp index e6cc1485..bc80c1d6 100644 --- a/src/interp/metalex.lisp +++ b/src/interp/metalex.lisp @@ -407,10 +407,10 @@ NonBlank is true if the token is not preceded by a blank." (*print-pretty* t)) (if store (progn (format t "~%Reduction stack contains:~%") - (mapcar #'(lambda (x) (if (eq (type-of x) 'token) - #+Symbolics (zl:describe-defstruct x) - #-Symbolics (describe x) - (print x))) + (mapcar #'(lambda (x) + (if (eq (type-of x) 'token) + (describe x) + (print x))) (stack-store reduce-stack))) (format t "~%There is nothing on the reduction stack.~%")))) @@ -524,19 +524,13 @@ empty (if File-Closed (return nil)) (format t "~%The number of valid tokens is ~S.~%" Valid-Tokens)) (if (> Valid-Tokens 0) (progn (format t "The current token is~%") - #+Symbolics (zl:describe-defstruct current-token) - #-Symbolics (describe current-token) - )) + (describe current-token))) (if (> Valid-Tokens 1) (progn (format t "The next token is~%") - #+Symbolics (zl:describe-defstruct next-token) - #-Symbolics (describe next-token) - )) + (describe next-token))) (if (token-type prior-token) (progn (format t "The prior token was~%") - #+Symbolics (zl:describe-defstruct prior-token) - #-Symbolics (describe prior-token) - ))) + (describe prior-token)))) (defmacro token-stack-clear () `(progn (setq valid-tokens 0) |