Code: Select all
(print "filename? ")
(device (open (read-line) "write"))
(println "#!/usr/bin/newlisp \n")
(println "; $Id$")
(print "; ")
(println (date (apply date-value (now)))"\n\n" )
(close (device))
(exit)
(device (open (read-line) "write"))
have not worked. Something like,
(set 'a (open (read-line) "write"))
I want to check if 'a already exists, maybe manipulate the file name
later, stuff like that.
did my question make sense?