From 45a66ce323366c41a532c4afa4799401d2715c89 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Tue, 20 May 2025 12:28:34 +0200 Subject: [PATCH] Give tokens an INITFORM for SOURCE (to NIL) --- wip-duuqnd/user-side-compiler/tokenizer.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp index 21c6a03..51071ca 100644 --- a/wip-duuqnd/user-side-compiler/tokenizer.lisp +++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp @@ -16,7 +16,7 @@ the processing of a new token.") reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.") (defclass token () - ((%source :accessor source :initarg :source))) + ((%source :accessor source :initarg :source :initform nil))) ;; Tokens containing user data