draw-cons-tree
draw-cons-tree copied to clipboard
Drawing NILs in a compact manner
CL-USER> (draw-cons-tree:draw-tree '(nil nil nil))
[o|o]---[o|o]---[o|/]
| | |
NIL NIL NIL
NIL
I think it's a matter of taste, but NILs in a car can be drawn the same way they are drawn in a cdr, so:
CL-USER> (draw-cons-tree:draw-tree '(nil nil nil))
[/|o]---[/|o]---[/|/]
NIL