And finally when I need the assoc list into symbols:
Code Select
(map (fn (x) (set(sym(first x))(last x)))assoclst)
Regards
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
(load "C:/Programme/newlisp/artful-newlisp-master/csv.lsp")
(setq csvlst(CSV:parse-file "C:/Programme/newlisp/csv_file.csv" ","))
(setq colnames (first csvlst))
(setq csvlst (rest csvlst))
(setq alst (list ))
(dolist (sublst csvlst)
(setq alst(append alst (list(map list colnames sublst))))
)
newlisp.exe -k funcname
newlisp.exe param1 param2 ....
(funcname param1 param2 ....)
newlisp.exe -r funcname param1 param2