@@ -1,9 +1,7 @@ ; use namespaces (clojure/in-ns 'pcl.chap_03) (clojure/refer 'clojure) -(clojure.contrib.lib/use '(clojure.contrib test-is)) -(clojure.contrib.lib/use '(clojure.contrib string)) -(clojure.contrib.lib/use '(clojure.contrib duck-streams)) +(use 'clojure.contrib.duck-streams) ; struct instead of plist (defstruct cd :title :artist :rating :ripped) pcl/chap_03/chap_03.clj @@ -1,7 +1,6 @@ (clojure/in-ns 'pcl.chap_06) (clojure/refer 'clojure) -(clojure.contrib.lib/use 'clojure.contrib.def) -(clojure.contrib.lib/use 'clojure.contrib.string) +(use 'clojure.contrib.def) ; closure demo ends up demoing ref/dosync and anon lambda (def counter (let [count (ref 0)] #(dosync (alter count inc)))) pcl/chap_06/chap_06.clj @@ -1,6 +1,5 @@ (clojure/in-ns 'pcl.chap_07) (clojure/refer 'clojure) -(clojure.contrib.lib/use 'clojure.contrib.lib) ; demo unless instead of when, since when is built in already (defmacro unless [condition & body] @@ -27,7 +26,6 @@ (doseq x (take 5 (repeat 1)) (println x))) ; fewer parentheses than CL dotimes -(use 'clojure.contrib.string) (defn times-table [] (dotimes x 10 (dotimes y 20 pcl/chap_07/chap_07.clj @@ -1,4 +1,3 @@ (println "custom settings loaded...") -(. clojure.lang.RT (loadResourceScript "clojure/contrib/lib/lib.clj")) -(clojure.contrib.lib/use '(clojure.contrib lib test-is)) + user.clj 4e3e0892d3da38e441cb1fccec90b52bcddd9918 Stuart Halloway stu@thinkrelevance.com http://github.com/stuarthalloway/practical-cl-clojure/commit/993527086b05918079a07cca4fde0c334bae2c73 993527086b05918079a07cca4fde0c334bae2c73 2008-09-16T15:21:12-07:00 2008-09-16T15:21:12-07:00 moved up to edge clojure, should now be compatible with http://clojure.blogspot.com/2008/09/20080916-release.html 9c4b1212bfbf419b0d8c18beabe3e1fcf8aaa7be Stuart Halloway stu@thinkrelevance.com