Function: PRINT-TREE

Source

(defun print-tree (tree &optional (stream *standard-output*))
  (if-bind root (tree-root tree)
	   (print-nodes root 0 stream)
	   (format stream "<empty>"))
  (values))