Half-baked and half-hearted attempt to let nodes hold comments
This commit is contained in:
parent
57c2978b71
commit
4bf1316536
1 changed files with 2 additions and 1 deletions
|
@ -33,7 +33,8 @@
|
||||||
(defclass node ()
|
(defclass node ()
|
||||||
((%next :accessor next :accessor normal-next :initform nil
|
((%next :accessor next :accessor normal-next :initform nil
|
||||||
:initarg :next)
|
: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))
|
(defmethod generate-code :before ((node node))
|
||||||
(produce-comment (format nil "~A" node)))
|
(produce-comment (format nil "~A" node)))
|
||||||
|
|
Loading…
Add table
Reference in a new issue