Hi Joe,

> (setq L NIL)
> (list-make 'L)
> (list-make 'L)
> (list-link 'L 'parent)
> (list-make 'L)
> (list-link 'L 'child)
> (list-link 'L 'child)
> (list-close-all 'L)
> 
> -> ((parent (child child)))
> 
> I don't know how I feel about it...

I'm not sure if I grasp the spirit of your intention, but how do you
feel about this:

   (setq L (cons))
   (set L (cons))
   (set (nth L 1 1) 'parent)
   (con (nth L 1 1) (cons))
   (set (nth L 1 2) (cons))
   (set (nth L 1 2 1) 'child)
   (con (nth L 1 2 1) (cons))
   (set (nth L 1 2 2) 'child)

   L
   -> ((parent (child child)))


♪♫
- Alex
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to