Half-baked and half-hearted attempt to let nodes hold comments

This commit is contained in:
John Lorentzson 2025-05-22 12:22:36 +02:00
parent 57c2978b71
commit 4bf1316536

View file

@ -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)))