diff options
Diffstat (limited to 'src/token.lisp')
| -rw-r--r-- | src/token.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/token.lisp b/src/token.lisp index f6536ac..8d37734 100644 --- a/src/token.lisp +++ b/src/token.lisp @@ -103,7 +103,7 @@ (defmethod print-object ((token token) stream) (print-unreadable-object (token stream :type t :identity t) - (princ (literal token) stream))) + (format stream "\"~a\"" (literal token)))) (defun as-token (token-type) (multiple-value-bind (str ok) (token->string token-type) |