From 3f3d94367f8a574fac4723df9e058002a9c097d3 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 22 May 2025 13:03:27 +0200 Subject: [PATCH] Add PRINT-OBJECT method to TOKEN-NUMBER --- wip-duuqnd/user-side-compiler/tokenizer.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp index 086868f..6df8177 100644 --- a/wip-duuqnd/user-side-compiler/tokenizer.lisp +++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp @@ -43,6 +43,11 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.") (defclass token-number (token) ((%value :accessor value :initarg :value))) +(defmethod print-object ((object token-number) stream) + (print-unreadable-object (object stream :type t :identity t) + (when (slot-boundp object '%value) + (format stream "~D" (value object))))) + (define-transformation (token (token-number reference-constant)) (make-instance 'reference-constant :value (value token)))