Hi Joe,

> (de Load ()
>   (zero N)
>   (setq L (make (
>   (in "invoices.txt"
>     (until (eof)
>       (setq Line (line) )
>       (setq D (mapcar pack (split Line "^I")))
>       (link (new
>         '(+Invoice)
>         'CustNum (car (nth D 1))
>         'ProdNum (car (nth D 2))
>         'Amount (format (car (nth D 3)))
>         'Quantity (format (car (nth D 4))) )) ) ) ) ) ) T )

just a stylistic comment, your indenting is rather confusing.  I would
recommend sticking with the PicoLisp convention when writing PicoLisp
code; I guess it's described or discussed somewhere, or look at existing
PicoLisp code.

Cheers,

Tomas
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to