Simple database: Difference between revisions

→‎{{header|Common Lisp}}: make load-db and watch-load work as intended
(→‎{{header|Common Lisp}}: fix dump-db and remove unused functions)
(→‎{{header|Common Lisp}}: make load-db and watch-load work as intended)
Line 104:
(save-db "lwatch" db))
 
(defun load-db (filename database)
(with-open-file (in filename)
(with-standard-io-syntax
(setf database (read in)))))
 
(defun get-series (name list)
Line 132:
 
(defun watch-load ()
(with-open-filesetf db (inload-db "lwatch") (with-standard-io-syntax (setf db (read in)))))
 
 
Anonymous user