From 5ca740efa9f3b68a391c382a6f6d54b1f914947e Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 8 May 2025 19:32:54 +0200 Subject: [PATCH] Add PRODUCE-COMMENT --- wip-duuqnd/user-side-compiler/high-level.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp index 51f9e68..c1d4df7 100644 --- a/wip-duuqnd/user-side-compiler/high-level.lisp +++ b/wip-duuqnd/user-side-compiler/high-level.lisp @@ -14,6 +14,9 @@ (push label *compile-result*) label) +(defun produce-comment (text) + (push text *compile-result*)) + (defmacro format-inst (destination control-string &rest format-arguments) `(format ,destination "~C~A~%" #\Tab (format nil ,control-string ,@format-arguments))) @@ -49,7 +52,7 @@ ((%next :accessor next :accessor normal-next :initform nil))) (defmethod generate-code :before ((node node)) - (format t ";; ~A~%" node)) + (produce-comment (format nil "~A" node))) (defmethod generate-code :after ((node node)) (terpri))