Anonymous user
Simple database: Difference between revisions
m
→{{header|Common Lisp}}: ooops, copy-paste error
(→{{header|Common Lisp}}: add a backup feature and write symbols in lowercase) |
m (→{{header|Common Lisp}}: ooops, copy-paste error) |
||
Line 94:
(parse-date (prompt-read "Date watched"))))
(defun save-db (filename database)
(
(rename-file file (concatenate 'string (file-namestring file) ",1"))
(with-open-file (out file
:direction :output▼
:
(
(
(pprint database out))))))
(defun watch-save ()
| |||