draw-cons-tree

https://github.com/cbaggers/draw-cons-tree.git

git clone 'https://github.com/cbaggers/draw-cons-tree.git'

(ql:quickload :draw-cons-tree)

---

draw-cons-tree

Draws and ascii picture of a cons tree.

CL-USER> (draw-tree '(a b (c nil 1)))
[o|o]---[o|o]---[o|/]
 |       |       |      
 A       B      [o|o]---[o|o]---[o|/]
                 |       |       |      
                 C      NIL      1      
NIL

Ported from the function library of “Scheme 9 from Empty Space” http://www.t3x.org/s9fes/draw-tree.scm.html

Library is in the public domain in keeping with the original