Drawing NILs in a compact manner

[phoe]

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