Mercurial > vba-clojure

comparison clojure/com/aurellem/run/save_corruption.clj @ 170:09caf6a5bbf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added facilities to corrupt any state.
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 03:18:20 -0500
parents 412ca096a9ba
children b7f682bb3090
comparison
equal deleted inserted replaced
169:4857f59f63a6 170:09caf6a5bbf4
1 (ns com.aurellem.save-corruption 1 (ns com.aurellem.run.save-corruption
2 (:use (com.aurellem gb-driver vbm title))) 2 (:use (com.aurellem.gb gb-driver vbm))
3 (:use (com.aurellem.run title)))
3 4
4 (use 'clojure.repl) 5 (use 'clojure.repl)
5 6
6 (defn-memo start-walking [] 7 (defn-memo start-walking []
7 (->> (finish-title) 8 (->> (finish-title)
82 [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] 83 [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
83 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 84 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
84 [] [] [] [] [] [] [] [] [] [] [] 85 [] [] [] [] [] [] [] [] [] [] []
85 86
86 ;; [:b] [] [] [] [] [] [] [] [] 87 ;; [:b] [] [] [] [] [] [] [] []
87 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 88 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [][][][][] [] []
88 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] [] 89 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
89 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] 90 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
90 ]))) 91 ])))
91 92
92 93