Print Page - 'save' with write/append flag?

Title: 'save' with write/append flag?
Post by: HPW on February 04, 2005, 02:25:32 AM

Would it make sense to add a write/append flag to the save-command?

(save "MyNewFile" "w" 'sym1 'sym2 ....)

(save "MyExistFile" "a" 'sym1 'sym2 ....)

Of cource would break existing code. :-(

Or is it better to do:

(device(open "MyNewFile" "w"))

(print(source 'sym1 'sym2 ....))

(close (device))

(device(open "MyExistFile" "a"))

(print(source 'sym1 'sym2 ....))

(close (device))

(I used my previous wish here for source with multiple arguments, a loop can do it also) ;-)

Title:
Post by: HPW on February 04, 2005, 02:41:09 AM

As mostly the answer is not far away in lisp:

Code Select Expand

(device(open "MyNewFile" "w"))
(setq mycontent(map source(list 'sym1 'sym2 .... )))
(dolist (symstr mycontent)(print symstr))
(close (device))

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: HPW on February 04, 2005, 02:25:32 AM