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:[email protected]?subject=Unsubscribe
