Function: PRINT-NODES

Source

(defun print-nodes (node depth stream)
  (when node
    (with-slots (left right key value) node
      (print-nodes right (+ depth 4) stream)
      (loop for i below depth do (princ " " stream))
      (format stream "+---~a~%" key)
      (print-nodes left (+ depth 4) stream)))
  (values))