@@ -58,13 +58,10 @@ ;; probably a simpler, more efficient approach (defn save-db [db filename] - (spit - filename - (pr-str db))) + (spit filename (pr-str db))) (defn load-db [filename] - (with-in-str (slurp filename) - (read))) + (read-string (slurp filename))) ; fn literal instead of lambda ; :artist key in function position src/pcl/chap_03.clj 19c7c5b0f1a4ed588e92eee07e766226a9773b3e Stuart Halloway stu@thinkrelevance.com http://github.com/stuarthalloway/practical-cl-clojure/commit/eaa8af4eabdeae55cd10eff357be94b8e06969d8 eaa8af4eabdeae55cd10eff357be94b8e06969d8 2009-10-16T08:32:00-07:00 2009-10-16T08:32:00-07:00 keep it to one line 8ff562e97cad6fb07c55d64f3d91d420f4becab6 Stuart Halloway stu@thinkrelevance.com