Anonymous user
Simple database: Difference between revisions
→{{header|Common Lisp}}: don't overwrite if file exists as it should have been renamed before
(→{{header|Common Lisp}}: use structs instead of alists. use struct specific print-function to produce output) |
(→{{header|Common Lisp}}: don't overwrite if file exists as it should have been renamed before) |
||
Line 124:
(rename-file file (concatenate 'string (file-namestring file) ",1"))
(with-open-file (out file
:direction :output)
(with-standard-io-syntax
(let ((*print-case* :downcase))
| |||