extract function "print-nodes"

fstamour · Dec 23, 2024 · 6a52ea4 · 6a52ea4
1 parent 6a09b6a
commit 6a52ea4
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/lossless-reader.lisp b/src/lossless-reader.lisp
@@ -378,10 +378,14 @@ common lisp.")
             (list children)
             children)))
 
+(defun print-nodes (stream nodes colonp atp)
+  (declare (ignore colonp atp))
+  (format stream "(list ~{~s~^ ~})" nodes))
+
 (defmethod print-object ((node node) stream)
   (let ((*print-case* :downcase)
         (children (node-children node)))
-    (format stream "(~:[node '~;~]~s ~d ~d~:[ ~s~;~@[ (list ~{~s~^ ~})~]~])"
+    (format stream "(~:[node '~;~]~s ~d ~d~:[ ~s~;~@[ ~/breeze.lossless-reader::print-nodes/~]~])"
             (member (node-type node)
                     '(parens
                       token