From 4bf1316536d026e8b4a2a4868cc9f2093fecb20e Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 22 May 2025 12:22:36 +0200 Subject: [PATCH] Half-baked and half-hearted attempt to let nodes hold comments --- wip-duuqnd/user-side-compiler/high-level.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp index f20f9b1..1d7285b 100644 --- a/wip-duuqnd/user-side-compiler/high-level.lisp +++ b/wip-duuqnd/user-side-compiler/high-level.lisp @@ -33,7 +33,8 @@ (defclass node () ((%next :accessor next :accessor normal-next :initform nil :initarg :next) - (%source :accessor source :initarg :source :initform nil))) + (%source :accessor source :initarg :source :initform nil) + (%comment :accessor comment :initarg :comment :initform nil))) (defmethod generate-code :before ((node node)) (produce-comment (format nil "~A" node)))