diff --git a/docs/cloverage/beowulf/bootstrap.clj.html b/docs/cloverage/beowulf/bootstrap.clj.html
index c45387d..8a1fa87 100644
--- a/docs/cloverage/beowulf/bootstrap.clj.html
+++ b/docs/cloverage/beowulf/bootstrap.clj.html
@@ -331,13 +331,13 @@
 <span class="not-tracked" title="0 out of 0 forms covered">
                 109&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;else
                 </span><br/>
-<span class="covered" title="3 out of 3 forms covered">
+<span class="covered" title="5 out of 5 forms covered">
                 110&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(beowulf.bootstrap&#x2F;EVAL&nbsp;expr
                 </span><br/>
-<span class="covered" title="6 out of 6 forms covered">
+<span class="partial" title="7 out of 11 forms covered">
                 111&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(merge-vars&nbsp;vars&nbsp;env)
                 </span><br/>
-<span class="partial" title="4 out of 8 forms covered">
+<span class="covered" title="1 out of 1 forms covered">
                 112&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;depth))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
@@ -352,13 +352,13 @@
 <span class="not-tracked" title="0 out of 0 forms covered">
                 116&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
+<span class="covered" title="2 out of 2 forms covered">
                 117&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Lisp&nbsp;1.5&nbsp;introduced&nbsp;`PROG`,&nbsp;and&nbsp;most&nbsp;Lisps&nbsp;have&nbsp;been&nbsp;stuck&nbsp;with&nbsp;it&nbsp;ever&nbsp;
                 </span><br/>
-<span class="covered" title="2 out of 2 forms covered">
+<span class="partial" title="3 out of 7 forms covered">
                 118&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;since.&nbsp;It&nbsp;introduces&nbsp;imperative&nbsp;programming&nbsp;into&nbsp;what&nbsp;should&nbsp;be&nbsp;a&nbsp;pure&nbsp;
                 </span><br/>
-<span class="partial" title="3 out of 7 forms covered">
+<span class="not-tracked" title="0 out of 0 forms covered">
                 119&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;functional&nbsp;language,&nbsp;and&nbsp;consequently&nbsp;it&#x27;s&nbsp;going&nbsp;to&nbsp;be&nbsp;a&nbsp;pig&nbsp;to&nbsp;implement.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
@@ -757,7 +757,7 @@
 <span class="covered" title="5 out of 5 forms covered">
                 251&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[lisp-fn&nbsp;(value&nbsp;function-symbol&nbsp;&#x27;(EXPR&nbsp;FEXPR))
                 </span><br/>
-<span class="partial" title="6 out of 8 forms covered">
+<span class="partial" title="7 out of 8 forms covered">
                 252&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;args&#x27;&nbsp;(cond&nbsp;(=&nbsp;NIL&nbsp;args)&nbsp;args
                 </span><br/>
 <span class="partial" title="3 out of 4 forms covered">
diff --git a/docs/cloverage/beowulf/cons_cell.clj.html b/docs/cloverage/beowulf/cons_cell.clj.html
index a229691..aaf1230 100644
--- a/docs/cloverage/beowulf/cons_cell.clj.html
+++ b/docs/cloverage/beowulf/cons_cell.clj.html
@@ -259,7 +259,7 @@
 <span class="covered" title="1 out of 1 forms covered">
                 085&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if
                 </span><br/>
-<span class="partial" title="10 out of 13 forms covered">
+<span class="partial" title="11 out of 13 forms covered">
                 086&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
@@ -445,22 +445,22 @@
 <span class="not-tracked" title="0 out of 0 forms covered">
                 147&nbsp;&nbsp;&nbsp;&nbsp;clojure.lang.Counted
                 </span><br/>
-<span class="not-covered" title="0 out of 3 forms covered">
+<span class="covered" title="3 out of 3 forms covered">
                 148&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;[this]&nbsp;(loop&nbsp;[cell&nbsp;this
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
                 149&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result&nbsp;1]
                 </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
+<span class="covered" title="1 out of 1 forms covered">
                 150&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if
                 </span><br/>
-<span class="not-covered" title="0 out of 11 forms covered">
+<span class="covered" title="11 out of 11 forms covered">
                 151&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(coll?&nbsp;(.getCdr&nbsp;cell))&nbsp;(not=&nbsp;NIL&nbsp;(.getCdr&nbsp;cell)))
                 </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
+<span class="covered" title="1 out of 1 forms covered">
                 152&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(.getCdr&nbsp;cell)&nbsp;(inc&nbsp;result))
                 </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
+<span class="covered" title="1 out of 1 forms covered">
                 153&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result)))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
diff --git a/docs/cloverage/beowulf/core.clj.html b/docs/cloverage/beowulf/core.clj.html
index 209aa59..adf35d5 100644
--- a/docs/cloverage/beowulf/core.clj.html
+++ b/docs/cloverage/beowulf/core.clj.html
@@ -154,10 +154,10 @@
 <span class="covered" title="1 out of 1 forms covered">
                 050&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:default&nbsp;default-sysout
                 </span><br/>
-<span class="partial" title="3 out of 8 forms covered">
+<span class="partial" title="7 out of 8 forms covered">
                 051&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:validate&nbsp;[#(and
                 </span><br/>
-<span class="not-covered" title="0 out of 4 forms covered">
+<span class="covered" title="4 out of 4 forms covered">
                 052&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.exists&nbsp;(io&#x2F;file&nbsp;%))
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
@@ -170,40 +170,40 @@
                 055&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[&quot;-s&quot;&nbsp;&quot;--strict&quot;&nbsp;&quot;Strictly&nbsp;interpret&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;language,&nbsp;without&nbsp;extensions.&quot;]
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                056&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[&quot;-t&quot;&nbsp;&quot;--time&quot;&nbsp;&quot;Time&nbsp;evaluations.&quot;]])
+                056&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[&quot;-t&quot;&nbsp;&quot;--time&quot;&nbsp;&quot;Time&nbsp;evaluations.&quot;]
+                </span><br/>
+<span class="covered" title="4 out of 4 forms covered">
+                057&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[&quot;-x&quot;&nbsp;&quot;--testing&quot;&nbsp;&quot;Disable&nbsp;the&nbsp;jline&nbsp;reader&nbsp;-&nbsp;useful&nbsp;when&nbsp;piping&nbsp;input.&quot;]])
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                057&nbsp;&nbsp;
+                058&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                058&nbsp;&nbsp;(defn-&nbsp;re&nbsp;
+                059&nbsp;&nbsp;(defn-&nbsp;re&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                059&nbsp;&nbsp;&nbsp;&nbsp;&quot;Like&nbsp;REPL,&nbsp;but&nbsp;it&nbsp;isn&#x27;t&nbsp;a&nbsp;loop&nbsp;and&nbsp;doesn&#x27;t&nbsp;print.&quot;
+                060&nbsp;&nbsp;&nbsp;&nbsp;&quot;Like&nbsp;REPL,&nbsp;but&nbsp;it&nbsp;isn&#x27;t&nbsp;a&nbsp;loop&nbsp;and&nbsp;doesn&#x27;t&nbsp;print.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                060&nbsp;&nbsp;&nbsp;&nbsp;[input]
+                061&nbsp;&nbsp;&nbsp;&nbsp;[input]
                 </span><br/>
 <span class="covered" title="7 out of 7 forms covered">
-                061&nbsp;&nbsp;&nbsp;&nbsp;(EVAL&nbsp;(READ&nbsp;input)&nbsp;NIL&nbsp;0))
+                062&nbsp;&nbsp;&nbsp;&nbsp;(EVAL&nbsp;(READ&nbsp;input)&nbsp;NIL&nbsp;0))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                062&nbsp;&nbsp;
+                063&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                063&nbsp;&nbsp;(defn&nbsp;repl
+                064&nbsp;&nbsp;(defn&nbsp;repl
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                064&nbsp;&nbsp;&nbsp;&nbsp;&quot;Read&#x2F;eval&#x2F;print&nbsp;loop.&quot;
+                065&nbsp;&nbsp;&nbsp;&nbsp;&quot;Read&#x2F;eval&#x2F;print&nbsp;loop.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                065&nbsp;&nbsp;&nbsp;&nbsp;[prompt]
+                066&nbsp;&nbsp;&nbsp;&nbsp;[prompt]
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                066&nbsp;&nbsp;&nbsp;&nbsp;(loop&nbsp;[]
-                </span><br/>
-<span class="covered" title="3 out of 3 forms covered">
-                067&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(print&nbsp;prompt)
+                067&nbsp;&nbsp;&nbsp;&nbsp;(loop&nbsp;[]&nbsp;
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
                 068&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(flush)
@@ -211,8 +211,8 @@
 <span class="covered" title="1 out of 1 forms covered">
                 069&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
                 </span><br/>
-<span class="covered" title="9 out of 9 forms covered">
-                070&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if-let&nbsp;[input&nbsp;(trim&nbsp;(read-from-console))]
+<span class="covered" title="10 out of 10 forms covered">
+                070&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if-let&nbsp;[input&nbsp;(trim&nbsp;(read-from-console&nbsp;prompt))]
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
                 071&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(=&nbsp;input&nbsp;stop-word)
@@ -259,7 +259,7 @@
 <span class="covered" title="1 out of 1 forms covered">
                 085&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;data
                 </span><br/>
-<span class="partial" title="5 out of 6 forms covered">
+<span class="covered" title="6 out of 6 forms covered">
                 086&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(case&nbsp;(:cause&nbsp;data)
                 </span><br/>
 <span class="not-covered" title="0 out of 5 forms covered">
@@ -316,13 +316,13 @@
 <span class="covered" title="6 out of 6 forms covered">
                 104&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Síðe&nbsp;&quot;&nbsp;(System&#x2F;getProperty&nbsp;&quot;beowulf.version&quot;)&nbsp;&quot;\n&quot;))
                 </span><br/>
-<span class="partial" title="1 out of 2 forms covered">
+<span class="covered" title="2 out of 2 forms covered">
                 105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(when
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
                 106&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(:help&nbsp;(:options&nbsp;args))
                 </span><br/>
-<span class="not-covered" title="0 out of 3 forms covered">
+<span class="covered" title="3 out of 3 forms covered">
                 107&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(:summary&nbsp;args))
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
@@ -358,8 +358,8 @@
 <span class="covered" title="1 out of 1 forms covered">
                 118&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
                 </span><br/>
-<span class="covered" title="10 out of 10 forms covered">
-                119&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(repl&nbsp;(str&nbsp;(:prompt&nbsp;(:options&nbsp;args))&nbsp;&quot;&nbsp;&quot;))
+<span class="covered" title="7 out of 7 forms covered">
+                119&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(repl&nbsp;(:prompt&nbsp;(:options&nbsp;args)))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
                 120&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch
diff --git a/docs/cloverage/beowulf/host.clj.html b/docs/cloverage/beowulf/host.clj.html
index 5a4bbed..6437d2b 100644
--- a/docs/cloverage/beowulf/host.clj.html
+++ b/docs/cloverage/beowulf/host.clj.html
@@ -274,7 +274,7 @@
 <span class="not-tracked" title="0 out of 0 forms covered">
                 090&nbsp;&nbsp;&nbsp;&nbsp;[l&nbsp;path]
                 </span><br/>
-<span class="covered" title="3 out of 3 forms covered">
+<span class="covered" title="4 out of 4 forms covered">
                 091&nbsp;&nbsp;&nbsp;&nbsp;(cond
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
@@ -283,1439 +283,1490 @@
 <span class="covered" title="4 out of 4 forms covered">
                 093&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(empty?&nbsp;path)&nbsp;l
                 </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                094&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else
+<span class="partial" title="6 out of 13 forms covered">
+                094&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(not&nbsp;(instance?&nbsp;ConsCell&nbsp;l))&nbsp;(throw&nbsp;(ex-info&nbsp;(str&nbsp;&quot;Ne&nbsp;liste:&nbsp;&quot;
                 </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                095&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
+<span class="not-covered" title="0 out of 4 forms covered">
+                095&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;l&nbsp;&quot;;&nbsp;&quot;&nbsp;(type&nbsp;l))
+                </span><br/>
+<span class="not-covered" title="0 out of 8 forms covered">
+                096&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:phase&nbsp;:eval
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                097&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;&quot;universal&nbsp;access&nbsp;function&quot;
+                </span><br/>
+<span class="not-covered" title="0 out of 3 forms covered">
+                098&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;[l&nbsp;path]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                099&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}))
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
-                096&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(case&nbsp;(last&nbsp;path)
+                100&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;(case&nbsp;(last&nbsp;path)
                 </span><br/>
 <span class="covered" title="6 out of 6 forms covered">
-                097&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\a&nbsp;(uaf&nbsp;(.first&nbsp;l)&nbsp;(butlast&nbsp;path))
+                101&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\a&nbsp;(uaf&nbsp;(.first&nbsp;l)&nbsp;(butlast&nbsp;path))
                 </span><br/>
 <span class="covered" title="6 out of 6 forms covered">
-                098&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\d&nbsp;(uaf&nbsp;(.getCdr&nbsp;l)&nbsp;(butlast&nbsp;path))
-                </span><br/>
-<span class="not-covered" title="0 out of 9 forms covered">
-                099&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;(str&nbsp;&quot;uaf:&nbsp;unexpected&nbsp;letter&nbsp;in&nbsp;path&nbsp;(only&nbsp;`a`&nbsp;and&nbsp;`d`&nbsp;permitted):&nbsp;&quot;&nbsp;(last&nbsp;path))
+                102&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\d&nbsp;(uaf&nbsp;(.getCdr&nbsp;l)&nbsp;(butlast&nbsp;path))
                 </span><br/>
 <span class="not-covered" title="0 out of 6 forms covered">
-                100&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;&nbsp;:uaf
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                101&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:detail&nbsp;:unexpected-letter
+                103&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;(str&nbsp;&quot;uaf:&nbsp;unexpected&nbsp;letter&nbsp;in&nbsp;path&nbsp;(only&nbsp;`a`&nbsp;and&nbsp;`d`&nbsp;permitted):&nbsp;&quot;
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                102&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:expr&nbsp;&nbsp;&nbsp;(last&nbsp;path)})))
+                104&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(last&nbsp;path))
+                </span><br/>
+<span class="not-covered" title="0 out of 8 forms covered">
+                105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:phase&nbsp;:eval
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                103&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;ClassCastException&nbsp;e
+                106&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;&quot;universal&nbsp;access&nbsp;function&quot;
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                104&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
-                </span><br/>
-<span class="not-covered" title="0 out of 6 forms covered">
-                105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;uaf:&nbsp;Not&nbsp;a&nbsp;LISP&nbsp;list?&nbsp;&quot;&nbsp;(type&nbsp;l))
-                </span><br/>
-<span class="not-covered" title="0 out of 6 forms covered">
-                106&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;&nbsp;:uaf
+                107&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;[l&nbsp;path]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                107&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:detail&nbsp;:not-a-lisp-list
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                108&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:expr&nbsp;&nbsp;&nbsp;l}
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                109&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;e))))))
+                108&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                110&nbsp;&nbsp;
+                109&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="43 out of 43 forms covered">
-                111&nbsp;&nbsp;(defmacro&nbsp;CAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a)))
+                110&nbsp;&nbsp;(defmacro&nbsp;CAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a)))
                 </span><br/>
 <span class="covered" title="44 out of 44 forms covered">
-                112&nbsp;&nbsp;(defmacro&nbsp;CADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d)))
+                111&nbsp;&nbsp;(defmacro&nbsp;CADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d)))
                 </span><br/>
-<span class="partial" title="42 out of 44 forms covered">
-                113&nbsp;&nbsp;(defmacro&nbsp;CDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d)))
+<span class="covered" title="45 out of 45 forms covered">
+                112&nbsp;&nbsp;(defmacro&nbsp;CDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 42 forms covered">
-                114&nbsp;&nbsp;(defmacro&nbsp;CDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a)))
+                113&nbsp;&nbsp;(defmacro&nbsp;CDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a)))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                115&nbsp;&nbsp;
+                114&nbsp;&nbsp;
                 </span><br/>
 <span class="partial" title="5 out of 45 forms covered">
-                116&nbsp;&nbsp;(defmacro&nbsp;CAAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\a)))
+                115&nbsp;&nbsp;(defmacro&nbsp;CAAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 45 forms covered">
-                117&nbsp;&nbsp;(defmacro&nbsp;CAADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\d)))
+                116&nbsp;&nbsp;(defmacro&nbsp;CAADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\d)))
                 </span><br/>
 <span class="covered" title="45 out of 45 forms covered">
-                118&nbsp;&nbsp;(defmacro&nbsp;CADAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\a)))
+                117&nbsp;&nbsp;(defmacro&nbsp;CADAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\a)))
                 </span><br/>
 <span class="covered" title="45 out of 45 forms covered">
-                119&nbsp;&nbsp;(defmacro&nbsp;CADDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\d)))
+                118&nbsp;&nbsp;(defmacro&nbsp;CADDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 45 forms covered">
-                120&nbsp;&nbsp;(defmacro&nbsp;CDDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\a)))
+                119&nbsp;&nbsp;(defmacro&nbsp;CDDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 45 forms covered">
-                121&nbsp;&nbsp;(defmacro&nbsp;CDDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\d)))
+                120&nbsp;&nbsp;(defmacro&nbsp;CDDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 45 forms covered">
-                122&nbsp;&nbsp;(defmacro&nbsp;CDAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\a)))
+                121&nbsp;&nbsp;(defmacro&nbsp;CDAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 45 forms covered">
-                123&nbsp;&nbsp;(defmacro&nbsp;CDADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\d)))
+                122&nbsp;&nbsp;(defmacro&nbsp;CDADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\d)))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                124&nbsp;&nbsp;
+                123&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="48 out of 48 forms covered">
-                125&nbsp;&nbsp;(defmacro&nbsp;CAAAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\a&nbsp;\a)))
+                124&nbsp;&nbsp;(defmacro&nbsp;CAAAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\a&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                126&nbsp;&nbsp;(defmacro&nbsp;CAADAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\d&nbsp;\a)))
+                125&nbsp;&nbsp;(defmacro&nbsp;CAADAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\d&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                127&nbsp;&nbsp;(defmacro&nbsp;CADAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\a&nbsp;\a)))
+                126&nbsp;&nbsp;(defmacro&nbsp;CADAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\a&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                128&nbsp;&nbsp;(defmacro&nbsp;CADDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\d&nbsp;\a)))
+                127&nbsp;&nbsp;(defmacro&nbsp;CADDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\d&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                129&nbsp;&nbsp;(defmacro&nbsp;CDDAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\a&nbsp;\a)))
+                128&nbsp;&nbsp;(defmacro&nbsp;CDDAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\a&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                130&nbsp;&nbsp;(defmacro&nbsp;CDDDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\d&nbsp;\a)))
+                129&nbsp;&nbsp;(defmacro&nbsp;CDDDAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\d&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                131&nbsp;&nbsp;(defmacro&nbsp;CDAAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\a&nbsp;\a)))
+                130&nbsp;&nbsp;(defmacro&nbsp;CDAAAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\a&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                132&nbsp;&nbsp;(defmacro&nbsp;CDADAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\d&nbsp;\a)))
+                131&nbsp;&nbsp;(defmacro&nbsp;CDADAR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\d&nbsp;\a)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                133&nbsp;&nbsp;(defmacro&nbsp;CAAADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\a&nbsp;\d)))
+                132&nbsp;&nbsp;(defmacro&nbsp;CAAADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\a&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                134&nbsp;&nbsp;(defmacro&nbsp;CAADDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\d&nbsp;\d)))
+                133&nbsp;&nbsp;(defmacro&nbsp;CAADDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\a&nbsp;\d&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                135&nbsp;&nbsp;(defmacro&nbsp;CADADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\a&nbsp;\d)))
+                134&nbsp;&nbsp;(defmacro&nbsp;CADADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\a&nbsp;\d)))
                 </span><br/>
 <span class="covered" title="48 out of 48 forms covered">
-                136&nbsp;&nbsp;(defmacro&nbsp;CADDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\d&nbsp;\d)))
+                135&nbsp;&nbsp;(defmacro&nbsp;CADDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\a&nbsp;\d&nbsp;\d&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                137&nbsp;&nbsp;(defmacro&nbsp;CDDADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\a&nbsp;\d)))
+                136&nbsp;&nbsp;(defmacro&nbsp;CDDADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\a&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                138&nbsp;&nbsp;(defmacro&nbsp;CDDDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\d&nbsp;\d)))
+                137&nbsp;&nbsp;(defmacro&nbsp;CDDDDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\d&nbsp;\d&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                139&nbsp;&nbsp;(defmacro&nbsp;CDAADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\a&nbsp;\d)))
+                138&nbsp;&nbsp;(defmacro&nbsp;CDAADR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\a&nbsp;\d)))
                 </span><br/>
 <span class="partial" title="5 out of 48 forms covered">
-                140&nbsp;&nbsp;(defmacro&nbsp;CDADDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\d&nbsp;\d)))
+                139&nbsp;&nbsp;(defmacro&nbsp;CDADDR&nbsp;[x]&nbsp;`(uaf&nbsp;~x&nbsp;&#x27;(\d&nbsp;\a&nbsp;\d&nbsp;\d)))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                141&nbsp;&nbsp;
+                140&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                142&nbsp;&nbsp;(defn&nbsp;RPLACA
+                141&nbsp;&nbsp;(defn&nbsp;RPLACA
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                143&nbsp;&nbsp;&nbsp;&nbsp;&quot;Replace&nbsp;the&nbsp;CAR&nbsp;pointer&nbsp;of&nbsp;this&nbsp;`cell`&nbsp;with&nbsp;this&nbsp;`value`.&nbsp;Dangerous,&nbsp;should
+                142&nbsp;&nbsp;&nbsp;&nbsp;&quot;Replace&nbsp;the&nbsp;CAR&nbsp;pointer&nbsp;of&nbsp;this&nbsp;`cell`&nbsp;with&nbsp;this&nbsp;`value`.&nbsp;Dangerous,&nbsp;should
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                144&nbsp;&nbsp;&nbsp;&nbsp;really&nbsp;not&nbsp;exist,&nbsp;but&nbsp;does&nbsp;in&nbsp;Lisp&nbsp;1.5&nbsp;(and&nbsp;was&nbsp;important&nbsp;for&nbsp;some
+                143&nbsp;&nbsp;&nbsp;&nbsp;really&nbsp;not&nbsp;exist,&nbsp;but&nbsp;does&nbsp;in&nbsp;Lisp&nbsp;1.5&nbsp;(and&nbsp;was&nbsp;important&nbsp;for&nbsp;some
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                145&nbsp;&nbsp;&nbsp;&nbsp;performance&nbsp;hacks&nbsp;in&nbsp;early&nbsp;Lisps)&quot;
+                144&nbsp;&nbsp;&nbsp;&nbsp;performance&nbsp;hacks&nbsp;in&nbsp;early&nbsp;Lisps)&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                146&nbsp;&nbsp;&nbsp;&nbsp;[^ConsCell&nbsp;cell&nbsp;value]
+                145&nbsp;&nbsp;&nbsp;&nbsp;[^ConsCell&nbsp;cell&nbsp;value]
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                147&nbsp;&nbsp;&nbsp;&nbsp;(if
+                146&nbsp;&nbsp;&nbsp;&nbsp;(if
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                148&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;cell)
+                147&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;cell)
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                149&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if
+                148&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if
                 </span><br/>
 <span class="partial" title="11 out of 13 forms covered">
-                150&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or
+                149&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                151&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;value)
+                150&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;value)
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                152&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number?&nbsp;value)
+                151&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number?&nbsp;value)
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                153&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;value)
+                152&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;value)
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                154&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;value&nbsp;NIL))
+                153&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;value&nbsp;NIL))
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                155&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
+                154&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                156&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.rplaca&nbsp;cell&nbsp;value)
+                155&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.rplaca&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                157&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cell
+                156&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cell
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                158&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;Throwable&nbsp;any
+                157&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;Throwable&nbsp;any
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                159&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
+                158&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                160&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;(.getMessage&nbsp;any)&nbsp;&quot;&nbsp;in&nbsp;RPLACA:&nbsp;`&quot;)
+                159&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;(.getMessage&nbsp;any)&nbsp;&quot;&nbsp;in&nbsp;RPLACA:&nbsp;`&quot;)
                 </span><br/>
 <span class="not-covered" title="0 out of 10 forms covered">
-                161&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:upstream-error
+                160&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:upstream-error
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                162&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
+                161&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                163&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplaca
+                162&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplaca
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                164&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
+                163&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                165&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}
+                164&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                166&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;any))))
+                165&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;any))))
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                167&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
+                166&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
                 </span><br/>
 <span class="covered" title="9 out of 9 forms covered">
-                168&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Un-ġefōg&nbsp;þing&nbsp;in&nbsp;RPLACA:&nbsp;`&quot;&nbsp;value&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;value)&nbsp;&quot;)&quot;)
+                167&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Un-ġefōg&nbsp;þing&nbsp;in&nbsp;RPLACA:&nbsp;`&quot;&nbsp;value&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;value)&nbsp;&quot;)&quot;)
                 </span><br/>
 <span class="covered" title="10 out of 10 forms covered">
-                169&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-value
+                168&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-value
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                170&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
+                169&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                171&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplaca
+                170&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplaca
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                172&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
+                171&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                173&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))
+                172&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                174&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
+                173&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
                 </span><br/>
 <span class="covered" title="9 out of 9 forms covered">
-                175&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Uncynlic&nbsp;miercels&nbsp;in&nbsp;RPLACA:&nbsp;`&quot;&nbsp;cell&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;cell)&nbsp;&quot;)&quot;)
+                174&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Uncynlic&nbsp;miercels&nbsp;in&nbsp;RPLACA:&nbsp;`&quot;&nbsp;cell&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;cell)&nbsp;&quot;)&quot;)
                 </span><br/>
 <span class="covered" title="10 out of 10 forms covered">
-                176&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-cell
+                175&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-cell
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                177&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
+                176&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                178&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplaca
+                177&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplaca
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                179&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
+                178&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                180&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}))))
+                179&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                181&nbsp;&nbsp;
+                180&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                182&nbsp;&nbsp;(defn&nbsp;RPLACD
+                181&nbsp;&nbsp;(defn&nbsp;RPLACD
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                183&nbsp;&nbsp;&nbsp;&nbsp;&quot;Replace&nbsp;the&nbsp;CDR&nbsp;pointer&nbsp;of&nbsp;this&nbsp;`cell`&nbsp;with&nbsp;this&nbsp;`value`.&nbsp;Dangerous,&nbsp;should
+                182&nbsp;&nbsp;&nbsp;&nbsp;&quot;Replace&nbsp;the&nbsp;CDR&nbsp;pointer&nbsp;of&nbsp;this&nbsp;`cell`&nbsp;with&nbsp;this&nbsp;`value`.&nbsp;Dangerous,&nbsp;should
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                184&nbsp;&nbsp;&nbsp;&nbsp;really&nbsp;not&nbsp;exist,&nbsp;but&nbsp;does&nbsp;in&nbsp;Lisp&nbsp;1.5&nbsp;(and&nbsp;was&nbsp;important&nbsp;for&nbsp;some
+                183&nbsp;&nbsp;&nbsp;&nbsp;really&nbsp;not&nbsp;exist,&nbsp;but&nbsp;does&nbsp;in&nbsp;Lisp&nbsp;1.5&nbsp;(and&nbsp;was&nbsp;important&nbsp;for&nbsp;some
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                185&nbsp;&nbsp;&nbsp;&nbsp;performance&nbsp;hacks&nbsp;in&nbsp;early&nbsp;Lisps)&quot;
+                184&nbsp;&nbsp;&nbsp;&nbsp;performance&nbsp;hacks&nbsp;in&nbsp;early&nbsp;Lisps)&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                186&nbsp;&nbsp;&nbsp;&nbsp;[^ConsCell&nbsp;cell&nbsp;value]
+                185&nbsp;&nbsp;&nbsp;&nbsp;[^ConsCell&nbsp;cell&nbsp;value]
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                187&nbsp;&nbsp;&nbsp;&nbsp;(if
+                186&nbsp;&nbsp;&nbsp;&nbsp;(if
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                188&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;cell)
+                187&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;cell)
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                189&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if
+                188&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if
                 </span><br/>
-<span class="partial" title="10 out of 13 forms covered">
-                190&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or
+<span class="partial" title="11 out of 13 forms covered">
+                189&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                191&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;value)
+                190&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;ConsCell&nbsp;value)
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                192&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number?&nbsp;value)
+                191&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number?&nbsp;value)
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                193&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;value)
+                192&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;value)
                 </span><br/>
 <span class="not-covered" title="0 out of 2 forms covered">
-                194&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;value&nbsp;NIL))
+                193&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;value&nbsp;NIL))
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                195&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
+                194&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(try
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                196&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.rplacd&nbsp;cell&nbsp;value)
+                195&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.rplacd&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                197&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cell
+                196&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cell
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                198&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;Throwable&nbsp;any
+                197&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;Throwable&nbsp;any
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                199&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
+                198&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                200&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;(.getMessage&nbsp;any)&nbsp;&quot;&nbsp;in&nbsp;RPLACD:&nbsp;`&quot;)
+                199&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;(.getMessage&nbsp;any)&nbsp;&quot;&nbsp;in&nbsp;RPLACD:&nbsp;`&quot;)
                 </span><br/>
 <span class="not-covered" title="0 out of 10 forms covered">
-                201&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:upstream-error
+                200&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:upstream-error
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                202&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
+                201&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                203&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplacd
+                202&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplacd
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                204&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
+                203&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                205&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}
+                204&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                206&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;any))))
+                205&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;any))))
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                207&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
+                206&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
                 </span><br/>
 <span class="not-covered" title="0 out of 9 forms covered">
-                208&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Un-ġefōg&nbsp;þing&nbsp;in&nbsp;RPLACD:&nbsp;`&quot;&nbsp;value&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;value)&nbsp;&quot;)&quot;)
+                207&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Un-ġefōg&nbsp;þing&nbsp;in&nbsp;RPLACD:&nbsp;`&quot;&nbsp;value&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;value)&nbsp;&quot;)&quot;)
                 </span><br/>
 <span class="not-covered" title="0 out of 10 forms covered">
-                209&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-value
+                208&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-value
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                210&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
+                209&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                211&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplacd
+                210&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:rplacd
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                212&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
+                211&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                213&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))
+                212&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                214&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
+                213&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info
                 </span><br/>
 <span class="not-covered" title="0 out of 9 forms covered">
-                215&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Uncynlic&nbsp;miercels&nbsp;in&nbsp;RPLACD:&nbsp;`&quot;&nbsp;cell&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;cell)&nbsp;&quot;)&quot;)
+                214&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;Uncynlic&nbsp;miercels&nbsp;in&nbsp;RPLACD:&nbsp;`&quot;&nbsp;cell&nbsp;&quot;`&nbsp;(&quot;&nbsp;(type&nbsp;cell)&nbsp;&quot;)&quot;)
                 </span><br/>
 <span class="not-covered" title="0 out of 10 forms covered">
-                216&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-cell
+                215&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:cause&nbsp;:bad-cell
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                217&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
+                216&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                218&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:detail&nbsp;:rplacd
+                217&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:detail&nbsp;:rplacd
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                219&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
+                218&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;cell&nbsp;value)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                220&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}))));;&nbsp;PLUS
+                219&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf}))));;&nbsp;PLUS
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                221&nbsp;&nbsp;
+                220&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                222&nbsp;&nbsp;(defn&nbsp;LIST
+                221&nbsp;&nbsp;(defn&nbsp;LIST
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                223&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
+                222&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                224&nbsp;&nbsp;&nbsp;&nbsp;(make-beowulf-list&nbsp;args))
+                223&nbsp;&nbsp;&nbsp;&nbsp;(make-beowulf-list&nbsp;args))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                225&nbsp;&nbsp;
+                224&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                226&nbsp;&nbsp;;;;;&nbsp;Basic&nbsp;predicates&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                225&nbsp;&nbsp;;;;;&nbsp;Basic&nbsp;predicates&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                227&nbsp;&nbsp;
+                226&nbsp;&nbsp;
                 </span><br/>
 <span class="partial" title="5 out of 36 forms covered">
-                228&nbsp;&nbsp;(defmacro&nbsp;NULL
+                227&nbsp;&nbsp;(defmacro&nbsp;NULL
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                229&nbsp;&nbsp;&nbsp;&nbsp;&quot;Returns&nbsp;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;the&nbsp;argument&nbsp;`x`&nbsp;is&nbsp;bound&nbsp;to&nbsp;`NIL`;&nbsp;else&nbsp;`F`.&quot;
+                228&nbsp;&nbsp;&nbsp;&nbsp;&quot;Returns&nbsp;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;the&nbsp;argument&nbsp;`x`&nbsp;is&nbsp;bound&nbsp;to&nbsp;`NIL`;&nbsp;else&nbsp;`F`.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                230&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                229&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                231&nbsp;&nbsp;&nbsp;&nbsp;`(if&nbsp;(=&nbsp;~x&nbsp;NIL)&nbsp;T&nbsp;F))
+                230&nbsp;&nbsp;&nbsp;&nbsp;`(if&nbsp;(=&nbsp;~x&nbsp;NIL)&nbsp;T&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                232&nbsp;&nbsp;
+                231&nbsp;&nbsp;
                 </span><br/>
 <span class="partial" title="5 out of 36 forms covered">
-                233&nbsp;&nbsp;(defmacro&nbsp;NILP
+                232&nbsp;&nbsp;(defmacro&nbsp;NILP
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                234&nbsp;&nbsp;&nbsp;&nbsp;&quot;Not&nbsp;part&nbsp;of&nbsp;LISP&nbsp;1.5:&nbsp;`T`&nbsp;if&nbsp;`o`&nbsp;is&nbsp;`NIL`,&nbsp;else&nbsp;`NIL`.&quot;
+                233&nbsp;&nbsp;&nbsp;&nbsp;&quot;Not&nbsp;part&nbsp;of&nbsp;LISP&nbsp;1.5:&nbsp;`T`&nbsp;if&nbsp;`o`&nbsp;is&nbsp;`NIL`,&nbsp;else&nbsp;`NIL`.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                235&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                234&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                236&nbsp;&nbsp;&nbsp;&nbsp;`(if&nbsp;(=&nbsp;~x&nbsp;NIL)&nbsp;T&nbsp;NIL))
+                235&nbsp;&nbsp;&nbsp;&nbsp;`(if&nbsp;(=&nbsp;~x&nbsp;NIL)&nbsp;T&nbsp;NIL))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                237&nbsp;&nbsp;
+                236&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                238&nbsp;&nbsp;(defn&nbsp;ATOM
+                237&nbsp;&nbsp;(defn&nbsp;ATOM
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                239&nbsp;&nbsp;&nbsp;&nbsp;&quot;Returns&nbsp;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;the&nbsp;argument&nbsp;`x`&nbsp;is&nbsp;bound&nbsp;to&nbsp;an&nbsp;atom;&nbsp;else&nbsp;`F`.
+                238&nbsp;&nbsp;&nbsp;&nbsp;&quot;Returns&nbsp;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;the&nbsp;argument&nbsp;`x`&nbsp;is&nbsp;bound&nbsp;to&nbsp;an&nbsp;atom;&nbsp;else&nbsp;`F`.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                240&nbsp;&nbsp;&nbsp;&nbsp;It&nbsp;is&nbsp;not&nbsp;clear&nbsp;to&nbsp;me&nbsp;from&nbsp;the&nbsp;documentation&nbsp;whether&nbsp;`(ATOM&nbsp;7)`&nbsp;should&nbsp;return
+                239&nbsp;&nbsp;&nbsp;&nbsp;It&nbsp;is&nbsp;not&nbsp;clear&nbsp;to&nbsp;me&nbsp;from&nbsp;the&nbsp;documentation&nbsp;whether&nbsp;`(ATOM&nbsp;7)`&nbsp;should&nbsp;return
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                241&nbsp;&nbsp;&nbsp;&nbsp;`T`&nbsp;or&nbsp;`F`.&nbsp;I&#x27;m&nbsp;going&nbsp;to&nbsp;assume&nbsp;`T`.&quot;
+                240&nbsp;&nbsp;&nbsp;&nbsp;`T`&nbsp;or&nbsp;`F`.&nbsp;I&#x27;m&nbsp;going&nbsp;to&nbsp;assume&nbsp;`T`.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                242&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                241&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="covered" title="13 out of 13 forms covered">
-                243&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(or&nbsp;(symbol?&nbsp;x)&nbsp;(number?&nbsp;x))&nbsp;T&nbsp;F))
+                242&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(or&nbsp;(symbol?&nbsp;x)&nbsp;(number?&nbsp;x))&nbsp;T&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                244&nbsp;&nbsp;
+                243&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="57 out of 57 forms covered">
-                245&nbsp;&nbsp;(defmacro&nbsp;ATOM?
+                244&nbsp;&nbsp;(defmacro&nbsp;ATOM?
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                246&nbsp;&nbsp;&nbsp;&nbsp;&quot;The&nbsp;convention&nbsp;of&nbsp;returning&nbsp;`F`&nbsp;from&nbsp;predicates,&nbsp;rather&nbsp;than&nbsp;`NIL`,&nbsp;is&nbsp;going
+                245&nbsp;&nbsp;&nbsp;&nbsp;&quot;The&nbsp;convention&nbsp;of&nbsp;returning&nbsp;`F`&nbsp;from&nbsp;predicates,&nbsp;rather&nbsp;than&nbsp;`NIL`,&nbsp;is&nbsp;going
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                247&nbsp;&nbsp;&nbsp;&nbsp;to&nbsp;tie&nbsp;me&nbsp;in&nbsp;knots.&nbsp;This&nbsp;is&nbsp;a&nbsp;variant&nbsp;of&nbsp;`ATOM`&nbsp;which&nbsp;returns&nbsp;`NIL`
+                246&nbsp;&nbsp;&nbsp;&nbsp;to&nbsp;tie&nbsp;me&nbsp;in&nbsp;knots.&nbsp;This&nbsp;is&nbsp;a&nbsp;variant&nbsp;of&nbsp;`ATOM`&nbsp;which&nbsp;returns&nbsp;`NIL`
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                248&nbsp;&nbsp;&nbsp;&nbsp;on&nbsp;failure.&quot;
+                247&nbsp;&nbsp;&nbsp;&nbsp;on&nbsp;failure.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                249&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                248&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                250&nbsp;&nbsp;&nbsp;&nbsp;`(if&nbsp;(or&nbsp;(symbol?&nbsp;~x)&nbsp;(number?&nbsp;~x))&nbsp;T&nbsp;NIL))
+                249&nbsp;&nbsp;&nbsp;&nbsp;`(if&nbsp;(or&nbsp;(symbol?&nbsp;~x)&nbsp;(number?&nbsp;~x))&nbsp;T&nbsp;NIL))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                251&nbsp;&nbsp;
+                250&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                252&nbsp;&nbsp;(defn&nbsp;EQ
+                251&nbsp;&nbsp;(defn&nbsp;EQ
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                253&nbsp;&nbsp;&nbsp;&nbsp;&quot;Returns&nbsp;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;both&nbsp;`x`&nbsp;and&nbsp;`y`&nbsp;are&nbsp;bound&nbsp;to&nbsp;the&nbsp;same&nbsp;atom,
+                252&nbsp;&nbsp;&nbsp;&nbsp;&quot;Returns&nbsp;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;both&nbsp;`x`&nbsp;and&nbsp;`y`&nbsp;are&nbsp;bound&nbsp;to&nbsp;the&nbsp;same&nbsp;atom,
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                254&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;`NIL`.&quot;
+                253&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;`NIL`.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                255&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                254&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="covered" title="12 out of 12 forms covered">
-                256&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(and&nbsp;(instance?&nbsp;ConsCell&nbsp;x)
+                255&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(and&nbsp;(instance?&nbsp;ConsCell&nbsp;x)
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                257&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.equals&nbsp;x&nbsp;y))&nbsp;T
+                256&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.equals&nbsp;x&nbsp;y))&nbsp;T
                 </span><br/>
 <span class="covered" title="13 out of 13 forms covered">
-                258&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(=&nbsp;(ATOM&nbsp;x)&nbsp;T)&nbsp;(=&nbsp;x&nbsp;y))&nbsp;T
+                257&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(=&nbsp;(ATOM&nbsp;x)&nbsp;T)&nbsp;(=&nbsp;x&nbsp;y))&nbsp;T
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                259&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;NIL))
+                258&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;NIL))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                260&nbsp;&nbsp;
+                259&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                261&nbsp;&nbsp;(defn&nbsp;EQUAL
+                260&nbsp;&nbsp;(defn&nbsp;EQUAL
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                262&nbsp;&nbsp;&nbsp;&nbsp;&quot;This&nbsp;is&nbsp;a&nbsp;predicate&nbsp;that&nbsp;is&nbsp;true&nbsp;if&nbsp;its&nbsp;two&nbsp;arguments&nbsp;are&nbsp;identical
+                261&nbsp;&nbsp;&nbsp;&nbsp;&quot;This&nbsp;is&nbsp;a&nbsp;predicate&nbsp;that&nbsp;is&nbsp;true&nbsp;if&nbsp;its&nbsp;two&nbsp;arguments&nbsp;are&nbsp;identical
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                263&nbsp;&nbsp;&nbsp;&nbsp;S-expressions,&nbsp;and&nbsp;false&nbsp;if&nbsp;they&nbsp;are&nbsp;different.&nbsp;(The&nbsp;elementary&nbsp;predicate
+                262&nbsp;&nbsp;&nbsp;&nbsp;S-expressions,&nbsp;and&nbsp;false&nbsp;if&nbsp;they&nbsp;are&nbsp;different.&nbsp;(The&nbsp;elementary&nbsp;predicate
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                264&nbsp;&nbsp;&nbsp;&nbsp;`EQ`&nbsp;is&nbsp;defined&nbsp;only&nbsp;for&nbsp;atomic&nbsp;arguments.)&nbsp;The&nbsp;definition&nbsp;of&nbsp;`EQUAL`&nbsp;is
+                263&nbsp;&nbsp;&nbsp;&nbsp;`EQ`&nbsp;is&nbsp;defined&nbsp;only&nbsp;for&nbsp;atomic&nbsp;arguments.)&nbsp;The&nbsp;definition&nbsp;of&nbsp;`EQUAL`&nbsp;is
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                265&nbsp;&nbsp;&nbsp;&nbsp;an&nbsp;example&nbsp;of&nbsp;a&nbsp;conditional&nbsp;expression&nbsp;inside&nbsp;a&nbsp;conditional&nbsp;expression.
+                264&nbsp;&nbsp;&nbsp;&nbsp;an&nbsp;example&nbsp;of&nbsp;a&nbsp;conditional&nbsp;expression&nbsp;inside&nbsp;a&nbsp;conditional&nbsp;expression.
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                266&nbsp;&nbsp;
+                265&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                267&nbsp;&nbsp;&nbsp;&nbsp;NOTE:&nbsp;returns&nbsp;`F`&nbsp;on&nbsp;failure,&nbsp;not&nbsp;`NIL`&quot;
+                266&nbsp;&nbsp;&nbsp;&nbsp;NOTE:&nbsp;returns&nbsp;`F`&nbsp;on&nbsp;failure,&nbsp;not&nbsp;`NIL`&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                268&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                267&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                269&nbsp;&nbsp;&nbsp;&nbsp;(cond
+                268&nbsp;&nbsp;&nbsp;&nbsp;(cond
                 </span><br/>
 <span class="covered" title="11 out of 11 forms covered">
-                270&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(ATOM&nbsp;x)&nbsp;T)&nbsp;(if&nbsp;(=&nbsp;x&nbsp;y)&nbsp;T&nbsp;F)
+                269&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(ATOM&nbsp;x)&nbsp;T)&nbsp;(if&nbsp;(=&nbsp;x&nbsp;y)&nbsp;T&nbsp;F)
                 </span><br/>
 <span class="covered" title="18 out of 18 forms covered">
-                271&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(EQUAL&nbsp;(CAR&nbsp;x)&nbsp;(CAR&nbsp;y))&nbsp;T)&nbsp;(EQUAL&nbsp;(CDR&nbsp;x)&nbsp;(CDR&nbsp;y))
+                270&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(EQUAL&nbsp;(CAR&nbsp;x)&nbsp;(CAR&nbsp;y))&nbsp;T)&nbsp;(EQUAL&nbsp;(CDR&nbsp;x)&nbsp;(CDR&nbsp;y))
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                272&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;F))
+                271&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                273&nbsp;&nbsp;
+                272&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                274&nbsp;&nbsp;(defn&nbsp;AND
+                273&nbsp;&nbsp;(defn&nbsp;AND
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                275&nbsp;&nbsp;&nbsp;&nbsp;&quot;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;none&nbsp;of&nbsp;my&nbsp;`args`&nbsp;evaluate&nbsp;to&nbsp;either&nbsp;`F`&nbsp;or&nbsp;`NIL`,
+                274&nbsp;&nbsp;&nbsp;&nbsp;&quot;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;none&nbsp;of&nbsp;my&nbsp;`args`&nbsp;evaluate&nbsp;to&nbsp;either&nbsp;`F`&nbsp;or&nbsp;`NIL`,
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                276&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;`F`.
+                275&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else&nbsp;`F`.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                277&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                276&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                278&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;In&nbsp;`beowulf.host`&nbsp;principally&nbsp;because&nbsp;I&nbsp;don&#x27;t&nbsp;yet&nbsp;feel&nbsp;confident&nbsp;to&nbsp;define
+                277&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;In&nbsp;`beowulf.host`&nbsp;principally&nbsp;because&nbsp;I&nbsp;don&#x27;t&nbsp;yet&nbsp;feel&nbsp;confident&nbsp;to&nbsp;define
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                279&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;varargs&nbsp;functions&nbsp;in&nbsp;Lisp.&quot;
+                278&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;varargs&nbsp;functions&nbsp;in&nbsp;Lisp.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                280&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
+                279&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                281&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;AND:&nbsp;&quot;&nbsp;args&nbsp;&quot;&nbsp;type:&nbsp;&quot;&nbsp;(type&nbsp;args)&nbsp;&quot;&nbsp;seq?&nbsp;&quot;&nbsp;(seq?&nbsp;args))
+                280&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;AND:&nbsp;&quot;&nbsp;args&nbsp;&quot;&nbsp;type:&nbsp;&quot;&nbsp;(type&nbsp;args)&nbsp;&quot;&nbsp;seq?&nbsp;&quot;&nbsp;(seq?&nbsp;args))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                282&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;&nbsp;&nbsp;filtered:&nbsp;&quot;&nbsp;(seq&nbsp;(filter&nbsp;#{F&nbsp;NIL}&nbsp;args)))
+                281&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;&nbsp;&nbsp;filtered:&nbsp;&quot;&nbsp;(seq&nbsp;(filter&nbsp;#{F&nbsp;NIL}&nbsp;args)))
                 </span><br/>
 <span class="partial" title="5 out of 7 forms covered">
-                283&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(=&nbsp;NIL&nbsp;args)&nbsp;T
+                282&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(=&nbsp;NIL&nbsp;args)&nbsp;T
                 </span><br/>
 <span class="covered" title="14 out of 14 forms covered">
-                284&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(seq?&nbsp;args)&nbsp;(if&nbsp;(seq&nbsp;(filter&nbsp;#{F&nbsp;NIL}&nbsp;args))&nbsp;F&nbsp;T)
+                283&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(seq?&nbsp;args)&nbsp;(if&nbsp;(seq&nbsp;(filter&nbsp;#{F&nbsp;NIL}&nbsp;args))&nbsp;F&nbsp;T)
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                285&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;T))
+                284&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;T))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                285&nbsp;&nbsp;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
                 286&nbsp;&nbsp;
                 </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                287&nbsp;&nbsp;
-                </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                288&nbsp;&nbsp;(defn&nbsp;OR
+                287&nbsp;&nbsp;(defn&nbsp;OR
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                289&nbsp;&nbsp;&nbsp;&nbsp;&quot;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;at&nbsp;least&nbsp;one&nbsp;of&nbsp;my&nbsp;`args`&nbsp;evaluates&nbsp;to&nbsp;something&nbsp;other
+                288&nbsp;&nbsp;&nbsp;&nbsp;&quot;`T`&nbsp;if&nbsp;and&nbsp;only&nbsp;if&nbsp;at&nbsp;least&nbsp;one&nbsp;of&nbsp;my&nbsp;`args`&nbsp;evaluates&nbsp;to&nbsp;something&nbsp;other
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                290&nbsp;&nbsp;&nbsp;&nbsp;than&nbsp;either&nbsp;`F`&nbsp;or&nbsp;`NIL`,&nbsp;else&nbsp;`F`.
+                289&nbsp;&nbsp;&nbsp;&nbsp;than&nbsp;either&nbsp;`F`&nbsp;or&nbsp;`NIL`,&nbsp;else&nbsp;`F`.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                291&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                290&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                292&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;In&nbsp;`beowulf.host`&nbsp;principally&nbsp;because&nbsp;I&nbsp;don&#x27;t&nbsp;yet&nbsp;feel&nbsp;confident&nbsp;to&nbsp;define
+                291&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;In&nbsp;`beowulf.host`&nbsp;principally&nbsp;because&nbsp;I&nbsp;don&#x27;t&nbsp;yet&nbsp;feel&nbsp;confident&nbsp;to&nbsp;define
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                293&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;varargs&nbsp;functions&nbsp;in&nbsp;Lisp.&quot;
+                292&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;varargs&nbsp;functions&nbsp;in&nbsp;Lisp.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                294&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
+                293&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                295&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;OR:&nbsp;&quot;&nbsp;args&nbsp;&quot;&nbsp;type:&nbsp;&quot;&nbsp;(type&nbsp;args)&nbsp;&quot;&nbsp;seq?&nbsp;&quot;&nbsp;(seq?&nbsp;args))
+                294&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;OR:&nbsp;&quot;&nbsp;args&nbsp;&quot;&nbsp;type:&nbsp;&quot;&nbsp;(type&nbsp;args)&nbsp;&quot;&nbsp;seq?&nbsp;&quot;&nbsp;(seq?&nbsp;args))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                296&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;&nbsp;&nbsp;filtered:&nbsp;&quot;&nbsp;(seq&nbsp;(remove&nbsp;#{F&nbsp;NIL}&nbsp;args)))
+                295&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;&nbsp;&nbsp;filtered:&nbsp;&quot;&nbsp;(seq&nbsp;(remove&nbsp;#{F&nbsp;NIL}&nbsp;args)))
                 </span><br/>
 <span class="not-covered" title="0 out of 7 forms covered">
-                297&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(=&nbsp;NIL&nbsp;args)&nbsp;F
+                296&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(=&nbsp;NIL&nbsp;args)&nbsp;F
                 </span><br/>
 <span class="not-covered" title="0 out of 14 forms covered">
-                298&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(seq?&nbsp;args)&nbsp;(if&nbsp;(seq&nbsp;(remove&nbsp;#{F&nbsp;NIL}&nbsp;args))&nbsp;T&nbsp;F)
+                297&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(seq?&nbsp;args)&nbsp;(if&nbsp;(seq&nbsp;(remove&nbsp;#{F&nbsp;NIL}&nbsp;args))&nbsp;T&nbsp;F)
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                299&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;F))
+                298&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;F))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                299&nbsp;&nbsp;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
                 300&nbsp;&nbsp;
                 </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                301&nbsp;&nbsp;
+<span class="not-tracked" title="0 out of 0 forms covered">
+                301&nbsp;&nbsp;;;;;&nbsp;Operations&nbsp;on&nbsp;lists&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                302&nbsp;&nbsp;;;;;&nbsp;Operations&nbsp;on&nbsp;lists&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                302&nbsp;&nbsp;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                303&nbsp;&nbsp;;;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                304&nbsp;&nbsp;;;&nbsp;TODO:&nbsp;These&nbsp;are&nbsp;candidates&nbsp;for&nbsp;moving&nbsp;to&nbsp;Lisp&nbsp;urgently!
+                303&nbsp;&nbsp;;;&nbsp;TODO:&nbsp;These&nbsp;are&nbsp;candidates&nbsp;for&nbsp;moving&nbsp;to&nbsp;Lisp&nbsp;urgently!
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                305&nbsp;&nbsp;
+                304&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                306&nbsp;&nbsp;(defn&nbsp;ASSOC
+                305&nbsp;&nbsp;(defn&nbsp;ASSOC
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                307&nbsp;&nbsp;&nbsp;&nbsp;&quot;If&nbsp;a&nbsp;is&nbsp;an&nbsp;association&nbsp;list&nbsp;such&nbsp;as&nbsp;the&nbsp;one&nbsp;formed&nbsp;by&nbsp;PAIRLIS&nbsp;in&nbsp;the&nbsp;above
+                306&nbsp;&nbsp;&nbsp;&nbsp;&quot;If&nbsp;a&nbsp;is&nbsp;an&nbsp;association&nbsp;list&nbsp;such&nbsp;as&nbsp;the&nbsp;one&nbsp;formed&nbsp;by&nbsp;PAIRLIS&nbsp;in&nbsp;the&nbsp;above
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                308&nbsp;&nbsp;&nbsp;&nbsp;example,&nbsp;then&nbsp;assoc&nbsp;will&nbsp;produce&nbsp;the&nbsp;first&nbsp;pair&nbsp;whose&nbsp;first&nbsp;term&nbsp;is&nbsp;x.&nbsp;Thus
+                307&nbsp;&nbsp;&nbsp;&nbsp;example,&nbsp;then&nbsp;assoc&nbsp;will&nbsp;produce&nbsp;the&nbsp;first&nbsp;pair&nbsp;whose&nbsp;first&nbsp;term&nbsp;is&nbsp;x.&nbsp;Thus
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                309&nbsp;&nbsp;&nbsp;&nbsp;it&nbsp;is&nbsp;a&nbsp;table&nbsp;searching&nbsp;function.
+                308&nbsp;&nbsp;&nbsp;&nbsp;it&nbsp;is&nbsp;a&nbsp;table&nbsp;searching&nbsp;function.
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                310&nbsp;&nbsp;
+                309&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                311&nbsp;&nbsp;&nbsp;&nbsp;All&nbsp;args&nbsp;are&nbsp;assumed&nbsp;to&nbsp;be&nbsp;`beowulf.cons-cell&#x2F;ConsCell`&nbsp;objects.
+                310&nbsp;&nbsp;&nbsp;&nbsp;All&nbsp;args&nbsp;are&nbsp;assumed&nbsp;to&nbsp;be&nbsp;`beowulf.cons-cell&#x2F;ConsCell`&nbsp;objects.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                312&nbsp;&nbsp;&nbsp;&nbsp;See&nbsp;page&nbsp;12&nbsp;of&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;Programmers&nbsp;Manual.
+                311&nbsp;&nbsp;&nbsp;&nbsp;See&nbsp;page&nbsp;12&nbsp;of&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;Programmers&nbsp;Manual.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                313&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                312&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                314&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;function&nbsp;is&nbsp;overridden&nbsp;by&nbsp;an&nbsp;implementation&nbsp;in&nbsp;Lisp,
+                313&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;function&nbsp;is&nbsp;overridden&nbsp;by&nbsp;an&nbsp;implementation&nbsp;in&nbsp;Lisp,
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                315&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;but&nbsp;is&nbsp;currently&nbsp;still&nbsp;present&nbsp;for&nbsp;bootstrapping.&quot;
+                314&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;but&nbsp;is&nbsp;currently&nbsp;still&nbsp;present&nbsp;for&nbsp;bootstrapping.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                316&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;a]
+                315&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;a]
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                317&nbsp;&nbsp;&nbsp;&nbsp;(cond
+                316&nbsp;&nbsp;&nbsp;&nbsp;(cond
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                318&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;NIL&nbsp;a)&nbsp;NIL&nbsp;;;&nbsp;this&nbsp;clause&nbsp;is&nbsp;not&nbsp;present&nbsp;in&nbsp;the&nbsp;original&nbsp;but&nbsp;is&nbsp;added&nbsp;for
+                317&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;NIL&nbsp;a)&nbsp;NIL&nbsp;;;&nbsp;this&nbsp;clause&nbsp;is&nbsp;not&nbsp;present&nbsp;in&nbsp;the&nbsp;original&nbsp;but&nbsp;is&nbsp;added&nbsp;for
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                319&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;robustness.
+                318&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;robustness.
                 </span><br/>
 <span class="covered" title="11 out of 11 forms covered">
-                320&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(EQUAL&nbsp;(CAAR&nbsp;a)&nbsp;x)&nbsp;T)&nbsp;(CAR&nbsp;a)
+                319&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(EQUAL&nbsp;(CAAR&nbsp;a)&nbsp;x)&nbsp;T)&nbsp;(CAR&nbsp;a)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                321&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else
+                320&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else
                 </span><br/>
 <span class="covered" title="6 out of 6 forms covered">
-                322&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(ASSOC&nbsp;x&nbsp;(CDR&nbsp;a))))
+                321&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(ASSOC&nbsp;x&nbsp;(CDR&nbsp;a))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                323&nbsp;&nbsp;
+                322&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                324&nbsp;&nbsp;(defn&nbsp;PAIRLIS
+                323&nbsp;&nbsp;(defn&nbsp;PAIRLIS
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                325&nbsp;&nbsp;&nbsp;&nbsp;&quot;This&nbsp;function&nbsp;gives&nbsp;the&nbsp;list&nbsp;of&nbsp;pairs&nbsp;of&nbsp;corresponding&nbsp;elements&nbsp;of&nbsp;the
+                324&nbsp;&nbsp;&nbsp;&nbsp;&quot;This&nbsp;function&nbsp;gives&nbsp;the&nbsp;list&nbsp;of&nbsp;pairs&nbsp;of&nbsp;corresponding&nbsp;elements&nbsp;of&nbsp;the
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                326&nbsp;&nbsp;&nbsp;&nbsp;lists&nbsp;`x`&nbsp;and&nbsp;`y`,&nbsp;and&nbsp;APPENDs&nbsp;this&nbsp;to&nbsp;the&nbsp;list&nbsp;`a`.&nbsp;The&nbsp;resultant&nbsp;list
+                325&nbsp;&nbsp;&nbsp;&nbsp;lists&nbsp;`x`&nbsp;and&nbsp;`y`,&nbsp;and&nbsp;APPENDs&nbsp;this&nbsp;to&nbsp;the&nbsp;list&nbsp;`a`.&nbsp;The&nbsp;resultant&nbsp;list
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                327&nbsp;&nbsp;&nbsp;&nbsp;of&nbsp;pairs,&nbsp;which&nbsp;is&nbsp;like&nbsp;a&nbsp;table&nbsp;with&nbsp;two&nbsp;columns,&nbsp;is&nbsp;called&nbsp;an
+                326&nbsp;&nbsp;&nbsp;&nbsp;of&nbsp;pairs,&nbsp;which&nbsp;is&nbsp;like&nbsp;a&nbsp;table&nbsp;with&nbsp;two&nbsp;columns,&nbsp;is&nbsp;called&nbsp;an
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                328&nbsp;&nbsp;&nbsp;&nbsp;association&nbsp;list.
+                327&nbsp;&nbsp;&nbsp;&nbsp;association&nbsp;list.
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                329&nbsp;&nbsp;
+                328&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                330&nbsp;&nbsp;&nbsp;&nbsp;Eessentially,&nbsp;it&nbsp;builds&nbsp;the&nbsp;environment&nbsp;on&nbsp;the&nbsp;stack,&nbsp;implementing&nbsp;shallow
+                329&nbsp;&nbsp;&nbsp;&nbsp;Eessentially,&nbsp;it&nbsp;builds&nbsp;the&nbsp;environment&nbsp;on&nbsp;the&nbsp;stack,&nbsp;implementing&nbsp;shallow
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                331&nbsp;&nbsp;&nbsp;&nbsp;binding.
+                330&nbsp;&nbsp;&nbsp;&nbsp;binding.
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                332&nbsp;&nbsp;
+                331&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                333&nbsp;&nbsp;&nbsp;&nbsp;All&nbsp;args&nbsp;are&nbsp;assumed&nbsp;to&nbsp;be&nbsp;`beowulf.cons-cell&#x2F;ConsCell`&nbsp;objects.
+                332&nbsp;&nbsp;&nbsp;&nbsp;All&nbsp;args&nbsp;are&nbsp;assumed&nbsp;to&nbsp;be&nbsp;`beowulf.cons-cell&#x2F;ConsCell`&nbsp;objects.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                334&nbsp;&nbsp;&nbsp;&nbsp;See&nbsp;page&nbsp;12&nbsp;of&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;Programmers&nbsp;Manual.
+                333&nbsp;&nbsp;&nbsp;&nbsp;See&nbsp;page&nbsp;12&nbsp;of&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;Programmers&nbsp;Manual.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                335&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                334&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                336&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;function&nbsp;is&nbsp;overridden&nbsp;by&nbsp;an&nbsp;implementation&nbsp;in&nbsp;Lisp,
+                335&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;function&nbsp;is&nbsp;overridden&nbsp;by&nbsp;an&nbsp;implementation&nbsp;in&nbsp;Lisp,
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                337&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;but&nbsp;is&nbsp;currently&nbsp;still&nbsp;present&nbsp;for&nbsp;bootstrapping.&quot;
+                336&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;but&nbsp;is&nbsp;currently&nbsp;still&nbsp;present&nbsp;for&nbsp;bootstrapping.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                338&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y&nbsp;a]
+                337&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y&nbsp;a]
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                339&nbsp;&nbsp;&nbsp;&nbsp;(cond
+                338&nbsp;&nbsp;&nbsp;&nbsp;(cond
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                340&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;the&nbsp;original&nbsp;tests&nbsp;only&nbsp;x;&nbsp;testing&nbsp;y&nbsp;as&nbsp;well&nbsp;will&nbsp;be&nbsp;a&nbsp;little&nbsp;more
+                339&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;the&nbsp;original&nbsp;tests&nbsp;only&nbsp;x;&nbsp;testing&nbsp;y&nbsp;as&nbsp;well&nbsp;will&nbsp;be&nbsp;a&nbsp;little&nbsp;more
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                341&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;robust&nbsp;if&nbsp;`x`&nbsp;and&nbsp;`y`&nbsp;are&nbsp;not&nbsp;the&nbsp;same&nbsp;length.
+                340&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;robust&nbsp;if&nbsp;`x`&nbsp;and&nbsp;`y`&nbsp;are&nbsp;not&nbsp;the&nbsp;same&nbsp;length.
                 </span><br/>
 <span class="covered" title="11 out of 11 forms covered">
-                342&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or&nbsp;(=&nbsp;NIL&nbsp;x)&nbsp;(=&nbsp;NIL&nbsp;y))&nbsp;a
+                341&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or&nbsp;(=&nbsp;NIL&nbsp;x)&nbsp;(=&nbsp;NIL&nbsp;y))&nbsp;a
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                343&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;(make-cons-cell
+                342&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;(make-cons-cell
                 </span><br/>
 <span class="covered" title="8 out of 8 forms covered">
-                344&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell&nbsp;(CAR&nbsp;x)&nbsp;(CAR&nbsp;y))
+                343&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell&nbsp;(CAR&nbsp;x)&nbsp;(CAR&nbsp;y))
                 </span><br/>
 <span class="covered" title="9 out of 9 forms covered">
-                345&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(PAIRLIS&nbsp;(CDR&nbsp;x)&nbsp;(CDR&nbsp;y)&nbsp;a))))
+                344&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(PAIRLIS&nbsp;(CDR&nbsp;x)&nbsp;(CDR&nbsp;y)&nbsp;a))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                346&nbsp;&nbsp;
+                345&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                347&nbsp;&nbsp;;;;;&nbsp;Arithmetic&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                346&nbsp;&nbsp;;;;;&nbsp;Arithmetic&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                348&nbsp;&nbsp;;;
+                347&nbsp;&nbsp;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                349&nbsp;&nbsp;;;&nbsp;TODO:&nbsp;When&nbsp;in&nbsp;strict&nbsp;mode,&nbsp;should&nbsp;we&nbsp;limit&nbsp;arithmetic&nbsp;precision&nbsp;to&nbsp;that
+                348&nbsp;&nbsp;;;&nbsp;TODO:&nbsp;When&nbsp;in&nbsp;strict&nbsp;mode,&nbsp;should&nbsp;we&nbsp;limit&nbsp;arithmetic&nbsp;precision&nbsp;to&nbsp;that
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                350&nbsp;&nbsp;;;&nbsp;supported&nbsp;by&nbsp;Lisp&nbsp;1.5?
+                349&nbsp;&nbsp;;;&nbsp;supported&nbsp;by&nbsp;Lisp&nbsp;1.5?
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                351&nbsp;&nbsp;
+                350&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                352&nbsp;&nbsp;(defn&nbsp;PLUS
+                351&nbsp;&nbsp;(defn&nbsp;PLUS
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                353&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
+                352&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
-                354&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[s&nbsp;(apply&nbsp;+&nbsp;args)]
+                353&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[s&nbsp;(apply&nbsp;+&nbsp;args)]
                 </span><br/>
 <span class="covered" title="7 out of 7 forms covered">
-                355&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;s)&nbsp;s&nbsp;(float&nbsp;s))))
+                354&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;s)&nbsp;s&nbsp;(float&nbsp;s))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                356&nbsp;&nbsp;
+                355&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                357&nbsp;&nbsp;(defn&nbsp;TIMES
+                356&nbsp;&nbsp;(defn&nbsp;TIMES
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                358&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
+                357&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
-                359&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[p&nbsp;(apply&nbsp;*&nbsp;args)]
+                358&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[p&nbsp;(apply&nbsp;*&nbsp;args)]
                 </span><br/>
 <span class="partial" title="5 out of 7 forms covered">
-                360&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;p)&nbsp;p&nbsp;(float&nbsp;p))))
+                359&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;p)&nbsp;p&nbsp;(float&nbsp;p))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                361&nbsp;&nbsp;
+                360&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                362&nbsp;&nbsp;(defn&nbsp;DIFFERENCE
+                361&nbsp;&nbsp;(defn&nbsp;DIFFERENCE
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                363&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                362&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                364&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[d&nbsp;(-&nbsp;x&nbsp;y)]
+                363&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[d&nbsp;(-&nbsp;x&nbsp;y)]
                 </span><br/>
 <span class="partial" title="5 out of 7 forms covered">
-                365&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;d)&nbsp;d&nbsp;(float&nbsp;d))))
+                364&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;d)&nbsp;d&nbsp;(float&nbsp;d))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                366&nbsp;&nbsp;
+                365&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                367&nbsp;&nbsp;(defn&nbsp;QUOTIENT
+                366&nbsp;&nbsp;(defn&nbsp;QUOTIENT
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                368&nbsp;&nbsp;&nbsp;&nbsp;&quot;I&#x27;m&nbsp;not&nbsp;certain&nbsp;from&nbsp;the&nbsp;documentation&nbsp;whether&nbsp;Lisp&nbsp;1.5&nbsp;`QUOTIENT`&nbsp;returned
+                367&nbsp;&nbsp;&nbsp;&nbsp;&quot;I&#x27;m&nbsp;not&nbsp;certain&nbsp;from&nbsp;the&nbsp;documentation&nbsp;whether&nbsp;Lisp&nbsp;1.5&nbsp;`QUOTIENT`&nbsp;returned
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                369&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;integer&nbsp;part&nbsp;of&nbsp;the&nbsp;quotient,&nbsp;or&nbsp;a&nbsp;realnum&nbsp;representing&nbsp;the&nbsp;whole
+                368&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;integer&nbsp;part&nbsp;of&nbsp;the&nbsp;quotient,&nbsp;or&nbsp;a&nbsp;realnum&nbsp;representing&nbsp;the&nbsp;whole
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                370&nbsp;&nbsp;&nbsp;&nbsp;quotient.&nbsp;I&nbsp;am&nbsp;for&nbsp;now&nbsp;implementing&nbsp;the&nbsp;latter.&quot;
+                369&nbsp;&nbsp;&nbsp;&nbsp;quotient.&nbsp;I&nbsp;am&nbsp;for&nbsp;now&nbsp;implementing&nbsp;the&nbsp;latter.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                371&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                370&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                372&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[q&nbsp;(&#x2F;&nbsp;x&nbsp;y)]
+                371&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[q&nbsp;(&#x2F;&nbsp;x&nbsp;y)]
                 </span><br/>
 <span class="covered" title="7 out of 7 forms covered">
-                373&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;q)&nbsp;q&nbsp;(float&nbsp;q))))
+                372&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;q)&nbsp;q&nbsp;(float&nbsp;q))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                374&nbsp;&nbsp;
+                373&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                375&nbsp;&nbsp;(defn&nbsp;REMAINDER
+                374&nbsp;&nbsp;(defn&nbsp;REMAINDER
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                376&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                375&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                377&nbsp;&nbsp;&nbsp;&nbsp;(rem&nbsp;x&nbsp;y))
+                376&nbsp;&nbsp;&nbsp;&nbsp;(rem&nbsp;x&nbsp;y))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                378&nbsp;&nbsp;
+                377&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                379&nbsp;&nbsp;(defn&nbsp;ADD1
+                378&nbsp;&nbsp;(defn&nbsp;ADD1
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                380&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                379&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="covered" title="2 out of 2 forms covered">
-                381&nbsp;&nbsp;&nbsp;&nbsp;(inc&nbsp;x))
+                380&nbsp;&nbsp;&nbsp;&nbsp;(inc&nbsp;x))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                382&nbsp;&nbsp;
+                381&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                383&nbsp;&nbsp;(defn&nbsp;SUB1
+                382&nbsp;&nbsp;(defn&nbsp;SUB1
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                384&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                383&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="not-covered" title="0 out of 2 forms covered">
-                385&nbsp;&nbsp;&nbsp;&nbsp;(dec&nbsp;x))
+                384&nbsp;&nbsp;&nbsp;&nbsp;(dec&nbsp;x))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                386&nbsp;&nbsp;
+                385&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                387&nbsp;&nbsp;(defn&nbsp;FIXP
+                386&nbsp;&nbsp;(defn&nbsp;FIXP
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                388&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                387&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="not-covered" title="0 out of 6 forms covered">
-                389&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;x)&nbsp;T&nbsp;F))
+                388&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(integer?&nbsp;x)&nbsp;T&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                390&nbsp;&nbsp;
+                389&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                391&nbsp;&nbsp;(defn&nbsp;NUMBERP
+                390&nbsp;&nbsp;(defn&nbsp;NUMBERP
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                392&nbsp;&nbsp;&nbsp;&nbsp;[x]
+                391&nbsp;&nbsp;&nbsp;&nbsp;[x]
                 </span><br/>
 <span class="covered" title="6 out of 6 forms covered">
-                393&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(number?&nbsp;x)&nbsp;T&nbsp;F))
+                392&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(number?&nbsp;x)&nbsp;T&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                394&nbsp;&nbsp;
+                393&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                395&nbsp;&nbsp;(defn&nbsp;LESSP
+                394&nbsp;&nbsp;(defn&nbsp;LESSP
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                396&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                395&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="not-covered" title="0 out of 6 forms covered">
-                397&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(&lt;&nbsp;x&nbsp;y)&nbsp;T&nbsp;F))
+                396&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(&lt;&nbsp;x&nbsp;y)&nbsp;T&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                398&nbsp;&nbsp;
+                397&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                399&nbsp;&nbsp;(defn&nbsp;GREATERP
+                398&nbsp;&nbsp;(defn&nbsp;GREATERP
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                400&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
+                399&nbsp;&nbsp;&nbsp;&nbsp;[x&nbsp;y]
                 </span><br/>
 <span class="not-covered" title="0 out of 6 forms covered">
-                401&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(&gt;&nbsp;x&nbsp;y)&nbsp;T&nbsp;F))
+                400&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(&gt;&nbsp;x&nbsp;y)&nbsp;T&nbsp;F))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                402&nbsp;&nbsp;
+                401&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                403&nbsp;&nbsp;;;;;&nbsp;Miscellaneous&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                402&nbsp;&nbsp;;;;;&nbsp;Miscellaneous&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                404&nbsp;&nbsp;
+                403&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                405&nbsp;&nbsp;(defn&nbsp;GENSYM
+                404&nbsp;&nbsp;(defn&nbsp;GENSYM
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                406&nbsp;&nbsp;&nbsp;&nbsp;&quot;Generate&nbsp;a&nbsp;unique&nbsp;symbol.&quot;
+                405&nbsp;&nbsp;&nbsp;&nbsp;&quot;Generate&nbsp;a&nbsp;unique&nbsp;symbol.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                407&nbsp;&nbsp;&nbsp;&nbsp;[]
+                406&nbsp;&nbsp;&nbsp;&nbsp;[]
                 </span><br/>
-<span class="not-covered" title="0 out of 9 forms covered">
-                408&nbsp;&nbsp;&nbsp;&nbsp;(symbol&nbsp;(upper-case&nbsp;(str&nbsp;(gensym&nbsp;&quot;SYM&quot;)))))
+<span class="covered" title="9 out of 9 forms covered">
+                407&nbsp;&nbsp;&nbsp;&nbsp;(symbol&nbsp;(upper-case&nbsp;(str&nbsp;(gensym&nbsp;&quot;SYM&quot;)))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                409&nbsp;&nbsp;
+                408&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                410&nbsp;&nbsp;(defn&nbsp;ERROR
+                409&nbsp;&nbsp;(defn&nbsp;ERROR
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                411&nbsp;&nbsp;&nbsp;&nbsp;&quot;Throw&nbsp;an&nbsp;error&quot;
+                410&nbsp;&nbsp;&nbsp;&nbsp;&quot;Throw&nbsp;an&nbsp;error&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                412&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
+                411&nbsp;&nbsp;&nbsp;&nbsp;[&amp;&nbsp;args]
                 </span><br/>
 <span class="not-covered" title="0 out of 14 forms covered">
-                413&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;&quot;LISP&nbsp;STÆFLEAHTER&quot;&nbsp;{:args&nbsp;args
+                412&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;&quot;LISP&nbsp;STÆFLEAHTER&quot;&nbsp;{:args&nbsp;args
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                414&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:eval
+                413&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:phase&nbsp;:eval
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                415&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;&#x27;ERROR
+                414&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;&#x27;ERROR
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                416&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:lisp
+                415&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:lisp
                 </span><br/>
 <span class="not-covered" title="0 out of 8 forms covered">
-                417&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:code&nbsp;(or&nbsp;(first&nbsp;args)&nbsp;&#x27;A1)})))
+                416&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:code&nbsp;(or&nbsp;(first&nbsp;args)&nbsp;&#x27;A1)})))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                418&nbsp;&nbsp;
+                417&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                419&nbsp;&nbsp;;;;;&nbsp;Assignment&nbsp;and&nbsp;the&nbsp;object&nbsp;list&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                418&nbsp;&nbsp;;;;;&nbsp;Assignment&nbsp;and&nbsp;the&nbsp;object&nbsp;list&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                420&nbsp;&nbsp;
+                419&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                421&nbsp;&nbsp;(defn&nbsp;OBLIST
+                420&nbsp;&nbsp;(defn&nbsp;OBLIST
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                422&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;a&nbsp;list&nbsp;of&nbsp;the&nbsp;symbols&nbsp;currently&nbsp;bound&nbsp;on&nbsp;the&nbsp;object&nbsp;list.
+                421&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;a&nbsp;list&nbsp;of&nbsp;the&nbsp;symbols&nbsp;currently&nbsp;bound&nbsp;on&nbsp;the&nbsp;object&nbsp;list.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                423&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                422&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                424&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;in&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;manual,&nbsp;footnote&nbsp;at&nbsp;the&nbsp;bottom&nbsp;of&nbsp;page&nbsp;69,&nbsp;it&nbsp;implies&nbsp;
+                423&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;in&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;manual,&nbsp;footnote&nbsp;at&nbsp;the&nbsp;bottom&nbsp;of&nbsp;page&nbsp;69,&nbsp;it&nbsp;implies&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                425&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;that&nbsp;an&nbsp;argument&nbsp;can&nbsp;be&nbsp;passed&nbsp;but&nbsp;I&#x27;m&nbsp;not&nbsp;sure&nbsp;of&nbsp;the&nbsp;semantics&nbsp;of
+                424&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;that&nbsp;an&nbsp;argument&nbsp;can&nbsp;be&nbsp;passed&nbsp;but&nbsp;I&#x27;m&nbsp;not&nbsp;sure&nbsp;of&nbsp;the&nbsp;semantics&nbsp;of
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                426&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.&quot;
+                425&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                427&nbsp;&nbsp;&nbsp;&nbsp;[]
+                426&nbsp;&nbsp;&nbsp;&nbsp;[]
                 </span><br/>
 <span class="not-covered" title="0 out of 7 forms covered">
-                428&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;@oblist)
+                427&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;@oblist)
                 </span><br/>
 <span class="not-covered" title="0 out of 8 forms covered">
-                429&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-beowulf-list&nbsp;(map&nbsp;CAR&nbsp;@oblist))
+                428&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-beowulf-list&nbsp;(map&nbsp;CAR&nbsp;@oblist))
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                430&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NIL))
+                429&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NIL))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                431&nbsp;&nbsp;
+                430&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                432&nbsp;&nbsp;(def&nbsp;magic-marker
+                431&nbsp;&nbsp;(def&nbsp;magic-marker
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                433&nbsp;&nbsp;&nbsp;&nbsp;&quot;The&nbsp;unexplained&nbsp;magic&nbsp;number&nbsp;which&nbsp;marks&nbsp;the&nbsp;start&nbsp;of&nbsp;a&nbsp;property&nbsp;list.&quot;
+                432&nbsp;&nbsp;&nbsp;&nbsp;&quot;The&nbsp;unexplained&nbsp;magic&nbsp;number&nbsp;which&nbsp;marks&nbsp;the&nbsp;start&nbsp;of&nbsp;a&nbsp;property&nbsp;list.&quot;
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                434&nbsp;&nbsp;&nbsp;&nbsp;(Integer&#x2F;parseInt&nbsp;&quot;77777&quot;&nbsp;8))
+                433&nbsp;&nbsp;&nbsp;&nbsp;(Integer&#x2F;parseInt&nbsp;&quot;77777&quot;&nbsp;8))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                435&nbsp;&nbsp;
+                434&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                436&nbsp;&nbsp;(defn&nbsp;PUT
+                435&nbsp;&nbsp;(defn&nbsp;hit-or-miss-assoc
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                437&nbsp;&nbsp;&nbsp;&nbsp;&quot;Put&nbsp;this&nbsp;`value`&nbsp;as&nbsp;the&nbsp;value&nbsp;of&nbsp;the&nbsp;property&nbsp;indicated&nbsp;by&nbsp;this&nbsp;`indicator`&nbsp;
+                436&nbsp;&nbsp;&nbsp;&nbsp;&quot;Find&nbsp;the&nbsp;position&nbsp;of&nbsp;the&nbsp;binding&nbsp;of&nbsp;this&nbsp;`target`&nbsp;in&nbsp;a&nbsp;Lisp&nbsp;1.5&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                438&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;of&nbsp;this&nbsp;`symbol`.&nbsp;Return&nbsp;`value`&nbsp;on&nbsp;success.
+                437&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;list&nbsp;`plist`.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                439&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                438&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                440&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NOTE&nbsp;THAT&nbsp;there&nbsp;is&nbsp;no&nbsp;`PUT`&nbsp;defined&nbsp;in&nbsp;the&nbsp;manual,&nbsp;but&nbsp;it&nbsp;would&nbsp;have&nbsp;been&nbsp;
+                439&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Lisp&nbsp;1.5&nbsp;property&nbsp;lists&nbsp;are&nbsp;not&nbsp;assoc&nbsp;lists,&nbsp;but&nbsp;lists&nbsp;of&nbsp;the&nbsp;form
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                441&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;easy&nbsp;to&nbsp;have&nbsp;defined&nbsp;it&nbsp;so&nbsp;I&nbsp;don&#x27;t&nbsp;think&nbsp;this&nbsp;fully&nbsp;counts&nbsp;as&nbsp;an&nbsp;extension.&quot;
+                440&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`(name&nbsp;value&nbsp;name&nbsp;value&nbsp;name&nbsp;value...)`.&nbsp;It&#x27;s&nbsp;therefore&nbsp;necessary&nbsp;to
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                442&nbsp;&nbsp;&nbsp;&nbsp;[symbol&nbsp;indicator&nbsp;value]
-                </span><br/>
-<span class="not-covered" title="0 out of 11 forms covered">
-                443&nbsp;&nbsp;&nbsp;&nbsp;(if-let&nbsp;[binding&nbsp;(ASSOC&nbsp;symbol&nbsp;@oblist)]
-                </span><br/>
-<span class="not-covered" title="0 out of 11 forms covered">
-                444&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if-let&nbsp;[prop&nbsp;(ASSOC&nbsp;indicator&nbsp;(CDDR&nbsp;binding))]
-                </span><br/>
-<span class="not-covered" title="0 out of 4 forms covered">
-                445&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(RPLACD&nbsp;prop&nbsp;value)
-                </span><br/>
-<span class="not-covered" title="0 out of 3 forms covered">
-                446&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(RPLACD&nbsp;binding
-                </span><br/>
-<span class="not-covered" title="0 out of 2 forms covered">
-                447&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                448&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;magic-marker
-                </span><br/>
-<span class="not-covered" title="0 out of 2 forms covered">
-                449&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                450&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;indicator
-                </span><br/>
-<span class="not-covered" title="0 out of 6 forms covered">
-                451&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell&nbsp;value&nbsp;(CDDR&nbsp;binding))))))
-                </span><br/>
-<span class="not-covered" title="0 out of 2 forms covered">
-                452&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(swap!
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                453&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;oblist
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                454&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(fn&nbsp;[ob&nbsp;s&nbsp;p&nbsp;v]
-                </span><br/>
-<span class="not-covered" title="0 out of 2 forms covered">
-                455&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell
-                </span><br/>
-<span class="not-covered" title="0 out of 8 forms covered">
-                456&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-beowulf-list&nbsp;(list&nbsp;s&nbsp;magic-marker&nbsp;p&nbsp;v))
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                457&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ob))
-                </span><br/>
-<span class="not-covered" title="0 out of 3 forms covered">
-                458&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;symbol&nbsp;indicator&nbsp;value)))
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                459&nbsp;&nbsp;
-                </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                460&nbsp;&nbsp;(defn&nbsp;GET
+                441&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;recurse&nbsp;down&nbsp;the&nbsp;list&nbsp;two&nbsp;entries&nbsp;at&nbsp;a&nbsp;time&nbsp;to&nbsp;avoid&nbsp;confusing&nbsp;names
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                461&nbsp;&nbsp;&nbsp;&nbsp;&quot;From&nbsp;the&nbsp;manual:
+                442&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;values.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                462&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                443&nbsp;&nbsp;&nbsp;&nbsp;[target&nbsp;plist]
                 </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                463&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#x27;`get`&nbsp;is&nbsp;somewhat&nbsp;like&nbsp;`prop`;&nbsp;however&nbsp;its&nbsp;value&nbsp;is&nbsp;car&nbsp;of&nbsp;the&nbsp;rest&nbsp;of
+<span class="covered" title="13 out of 13 forms covered">
+                444&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(and&nbsp;(instance?&nbsp;ConsCell&nbsp;plist)(even?&nbsp;(count&nbsp;plist)))
                 </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                464&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;list&nbsp;if&nbsp;the&nbsp;`indicator`&nbsp;is&nbsp;found,&nbsp;and&nbsp;NIL&nbsp;otherwise.&#x27;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                465&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                466&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;It&#x27;s&nbsp;clear&nbsp;that&nbsp;`GET`&nbsp;is&nbsp;expected&nbsp;to&nbsp;be&nbsp;defined&nbsp;in&nbsp;terms&nbsp;of&nbsp;`PROP`,&nbsp;but
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                467&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;we&nbsp;can&#x27;t&nbsp;implement&nbsp;`PROP`&nbsp;here&nbsp;because&nbsp;we&nbsp;lack&nbsp;`EVAL`;&nbsp;and&nbsp;we&nbsp;can&#x27;t&nbsp;have
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                468&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`EVAL`&nbsp;here&nbsp;because&nbsp;both&nbsp;it&nbsp;and&nbsp;`APPLY`&nbsp;depends&nbsp;on&nbsp;`GET`.
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                469&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                470&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OK,&nbsp;It&#x27;s&nbsp;worse&nbsp;than&nbsp;that:&nbsp;the&nbsp;statement&nbsp;of&nbsp;the&nbsp;definition&nbsp;of&nbsp;`GET`&nbsp;(and&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                471&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;of)&nbsp;`PROP`&nbsp;on&nbsp;page&nbsp;59&nbsp;says&nbsp;that&nbsp;the&nbsp;first&nbsp;argument&nbsp;to&nbsp;each&nbsp;must&nbsp;be&nbsp;a&nbsp;list;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                472&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;But&nbsp;the&nbsp;in&nbsp;the&nbsp;definition&nbsp;of&nbsp;`ASSOC`&nbsp;on&nbsp;page&nbsp;70,&nbsp;when&nbsp;`GET`&nbsp;is&nbsp;called&nbsp;its
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                473&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;first&nbsp;argument&nbsp;is&nbsp;always&nbsp;an&nbsp;atom.&nbsp;Since&nbsp;it&#x27;s&nbsp;`ASSOC`&nbsp;and&nbsp;`EVAL`&nbsp;which&nbsp;I&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                474&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;need&nbsp;to&nbsp;make&nbsp;work,&nbsp;I&#x27;m&nbsp;going&nbsp;to&nbsp;assume&nbsp;that&nbsp;page&nbsp;59&nbsp;is&nbsp;wrong.&quot;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                475&nbsp;&nbsp;&nbsp;&nbsp;[symbol&nbsp;indicator]
-                </span><br/>
-<span class="covered" title="7 out of 7 forms covered">
-                476&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[binding&nbsp;(ASSOC&nbsp;symbol&nbsp;@oblist)
-                </span><br/>
-<span class="partial" title="2 out of 3 forms covered">
-                477&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;val&nbsp;(cond
-                </span><br/>
-<span class="partial" title="3 out of 4 forms covered">
-                478&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;binding&nbsp;NIL)&nbsp;NIL
-                </span><br/>
-<span class="covered" title="2 out of 2 forms covered">
-                479&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;magic-marker
-                </span><br/>
-<span class="covered" title="5 out of 5 forms covered">
-                480&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(CADR&nbsp;binding))&nbsp;(loop&nbsp;[b&nbsp;binding]
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                481&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;&nbsp;(println&nbsp;&quot;GET&nbsp;loop,&nbsp;seeking&nbsp;&quot;&nbsp;indicator&nbsp;&quot;:&quot;)
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                482&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;&nbsp;(pretty-print&nbsp;b)
-                </span><br/>
-<span class="covered" title="5 out of 5 forms covered">
-                483&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;b)
+<span class="partial" title="6 out of 7 forms covered">
+                445&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cond&nbsp;(=&nbsp;plist&nbsp;NIL)&nbsp;NIL
                 </span><br/>
 <span class="covered" title="6 out of 6 forms covered">
-                484&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(=&nbsp;(CAR&nbsp;b)&nbsp;indicator)
+                446&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(first&nbsp;plist)&nbsp;target)&nbsp;plist
+                </span><br/>
+<span class="covered" title="6 out of 6 forms covered">
+                447&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;(hit-or-miss-assoc&nbsp;target&nbsp;(CDDR&nbsp;plist)))
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                448&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NIL))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                449&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                450&nbsp;&nbsp;(defn&nbsp;PUT
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                451&nbsp;&nbsp;&nbsp;&nbsp;&quot;Put&nbsp;this&nbsp;`value`&nbsp;as&nbsp;the&nbsp;value&nbsp;of&nbsp;the&nbsp;property&nbsp;indicated&nbsp;by&nbsp;this&nbsp;`indicator`&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                452&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;of&nbsp;this&nbsp;`symbol`.&nbsp;Return&nbsp;`value`&nbsp;on&nbsp;success.
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                453&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                454&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NOTE&nbsp;THAT&nbsp;there&nbsp;is&nbsp;no&nbsp;`PUT`&nbsp;defined&nbsp;in&nbsp;the&nbsp;manual,&nbsp;but&nbsp;it&nbsp;would&nbsp;have&nbsp;been&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                455&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;easy&nbsp;to&nbsp;have&nbsp;defined&nbsp;it&nbsp;so&nbsp;I&nbsp;don&#x27;t&nbsp;think&nbsp;this&nbsp;fully&nbsp;counts&nbsp;as&nbsp;an&nbsp;extension.&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                456&nbsp;&nbsp;&nbsp;&nbsp;[symbol&nbsp;indicator&nbsp;value]
+                </span><br/>
+<span class="covered" title="7 out of 7 forms covered">
+                457&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[binding&nbsp;(ASSOC&nbsp;symbol&nbsp;@oblist)]
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                458&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;binding)
+                </span><br/>
+<span class="covered" title="7 out of 7 forms covered">
+                459&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[prop&nbsp;(hit-or-miss-assoc&nbsp;indicator&nbsp;(CDDR&nbsp;binding))]
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                460&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;prop)
+                </span><br/>
+<span class="covered" title="6 out of 6 forms covered">
+                461&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(RPLACA&nbsp;(CDR&nbsp;prop)&nbsp;value)
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                485&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(CADR&nbsp;b)&nbsp;;;&nbsp;&lt;-&nbsp;this&nbsp;is&nbsp;what&nbsp;we&nbsp;should&nbsp;actually&nbsp;be&nbsp;returning
+                462&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(RPLACD&nbsp;binding
+                </span><br/>
+<span class="covered" title="2 out of 2 forms covered">
+                463&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                486&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(CDR&nbsp;b)))
+                464&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;magic-marker
+                </span><br/>
+<span class="covered" title="2 out of 2 forms covered">
+                465&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                487&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NIL))
+                466&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;indicator
+                </span><br/>
+<span class="covered" title="6 out of 6 forms covered">
+                467&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell&nbsp;value&nbsp;(CDDR&nbsp;binding)))))))
+                </span><br/>
+<span class="covered" title="2 out of 2 forms covered">
+                468&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(swap!
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                469&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;oblist
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                470&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(fn&nbsp;[ob&nbsp;s&nbsp;p&nbsp;v]
+                </span><br/>
+<span class="covered" title="2 out of 2 forms covered">
+                471&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-cons-cell
+                </span><br/>
+<span class="covered" title="8 out of 8 forms covered">
+                472&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-beowulf-list&nbsp;(list&nbsp;s&nbsp;magic-marker&nbsp;p&nbsp;v))
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                473&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ob))
+                </span><br/>
+<span class="covered" title="3 out of 3 forms covered">
+                474&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;symbol&nbsp;indicator&nbsp;value)))
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                475&nbsp;&nbsp;&nbsp;&nbsp;value)
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                476&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                477&nbsp;&nbsp;(defn&nbsp;GET
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                478&nbsp;&nbsp;&nbsp;&nbsp;&quot;From&nbsp;the&nbsp;manual:
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                479&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                480&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#x27;`get`&nbsp;is&nbsp;somewhat&nbsp;like&nbsp;`prop`;&nbsp;however&nbsp;its&nbsp;value&nbsp;is&nbsp;car&nbsp;of&nbsp;the&nbsp;rest&nbsp;of
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                481&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;list&nbsp;if&nbsp;the&nbsp;`indicator`&nbsp;is&nbsp;found,&nbsp;and&nbsp;NIL&nbsp;otherwise.&#x27;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                482&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                483&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;It&#x27;s&nbsp;clear&nbsp;that&nbsp;`GET`&nbsp;is&nbsp;expected&nbsp;to&nbsp;be&nbsp;defined&nbsp;in&nbsp;terms&nbsp;of&nbsp;`PROP`,&nbsp;but
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                484&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;we&nbsp;can&#x27;t&nbsp;implement&nbsp;`PROP`&nbsp;here&nbsp;because&nbsp;we&nbsp;lack&nbsp;`EVAL`;&nbsp;and&nbsp;we&nbsp;can&#x27;t&nbsp;have
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                485&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`EVAL`&nbsp;here&nbsp;because&nbsp;both&nbsp;it&nbsp;and&nbsp;`APPLY`&nbsp;depends&nbsp;on&nbsp;`GET`.
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                486&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                487&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OK,&nbsp;It&#x27;s&nbsp;worse&nbsp;than&nbsp;that:&nbsp;the&nbsp;statement&nbsp;of&nbsp;the&nbsp;definition&nbsp;of&nbsp;`GET`&nbsp;(and&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                488&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;of)&nbsp;`PROP`&nbsp;on&nbsp;page&nbsp;59&nbsp;says&nbsp;that&nbsp;the&nbsp;first&nbsp;argument&nbsp;to&nbsp;each&nbsp;must&nbsp;be&nbsp;a&nbsp;list;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                489&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;But&nbsp;the&nbsp;in&nbsp;the&nbsp;definition&nbsp;of&nbsp;`ASSOC`&nbsp;on&nbsp;page&nbsp;70,&nbsp;when&nbsp;`GET`&nbsp;is&nbsp;called&nbsp;its
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                490&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;first&nbsp;argument&nbsp;is&nbsp;always&nbsp;an&nbsp;atom.&nbsp;Since&nbsp;it&#x27;s&nbsp;`ASSOC`&nbsp;and&nbsp;`EVAL`&nbsp;which&nbsp;I&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                491&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;need&nbsp;to&nbsp;make&nbsp;work,&nbsp;I&#x27;m&nbsp;going&nbsp;to&nbsp;assume&nbsp;that&nbsp;page&nbsp;59&nbsp;is&nbsp;wrong.&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                492&nbsp;&nbsp;&nbsp;&nbsp;[symbol&nbsp;indicator]
+                </span><br/>
+<span class="covered" title="7 out of 7 forms covered">
+                493&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[binding&nbsp;(ASSOC&nbsp;symbol&nbsp;@oblist)
+                </span><br/>
+<span class="partial" title="2 out of 3 forms covered">
+                494&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;val&nbsp;(cond
+                </span><br/>
+<span class="covered" title="4 out of 4 forms covered">
+                495&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;binding&nbsp;NIL)&nbsp;NIL
+                </span><br/>
+<span class="covered" title="2 out of 2 forms covered">
+                496&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;magic-marker
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                497&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(CADR&nbsp;binding))&nbsp;(loop&nbsp;[b&nbsp;binding]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                498&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;&nbsp;(println&nbsp;&quot;GET&nbsp;loop,&nbsp;seeking&nbsp;&quot;&nbsp;indicator&nbsp;&quot;:&quot;)
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                499&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;&nbsp;(pretty-print&nbsp;b)
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                500&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;b)
+                </span><br/>
+<span class="covered" title="6 out of 6 forms covered">
+                501&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(=&nbsp;(CAR&nbsp;b)&nbsp;indicator)
+                </span><br/>
+<span class="covered" title="3 out of 3 forms covered">
+                502&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(CADR&nbsp;b)&nbsp;;;&nbsp;&lt;-&nbsp;this&nbsp;is&nbsp;what&nbsp;we&nbsp;should&nbsp;actually&nbsp;be&nbsp;returning
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                503&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(CDR&nbsp;b)))
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                504&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NIL))
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                488&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;(throw
+                505&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;(throw
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                489&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(ex-info&nbsp;&quot;Misformatted&nbsp;property&nbsp;list&nbsp;(missing&nbsp;magic&nbsp;marker)&quot;
+                506&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(ex-info&nbsp;&quot;Misformatted&nbsp;property&nbsp;list&nbsp;(missing&nbsp;magic&nbsp;marker)&quot;
                 </span><br/>
 <span class="not-covered" title="0 out of 8 forms covered">
-                490&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:phase&nbsp;:host
+                507&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{:phase&nbsp;:host
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                491&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:get
+                508&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:function&nbsp;:get
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                492&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;symbol&nbsp;indicator)
+                509&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:args&nbsp;(list&nbsp;symbol&nbsp;indicator)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                493&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))]
+                510&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:type&nbsp;:beowulf})))]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                494&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;&lt;&lt;&nbsp;GET&nbsp;returning:&nbsp;&quot;&nbsp;val)
+                511&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(println&nbsp;&quot;&lt;&lt;&nbsp;GET&nbsp;returning:&nbsp;&quot;&nbsp;val)
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                495&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;val))
+                512&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;val))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                496&nbsp;&nbsp;
+                513&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                497&nbsp;&nbsp;(defn&nbsp;DEFLIST
+                514&nbsp;&nbsp;(defn&nbsp;DEFLIST
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                498&nbsp;&nbsp;&nbsp;&nbsp;&quot;For&nbsp;each&nbsp;pair&nbsp;in&nbsp;this&nbsp;association&nbsp;list&nbsp;`a-list`,&nbsp;set&nbsp;the&nbsp;property&nbsp;with&nbsp;this
+                515&nbsp;&nbsp;&nbsp;&nbsp;&quot;For&nbsp;each&nbsp;pair&nbsp;in&nbsp;this&nbsp;association&nbsp;list&nbsp;`a-list`,&nbsp;set&nbsp;the&nbsp;property&nbsp;with&nbsp;this
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                499&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`indicator`&nbsp;of&nbsp;the&nbsp;symbol&nbsp;which&nbsp;is&nbsp;the&nbsp;first&nbsp;element&nbsp;of&nbsp;the&nbsp;pair&nbsp;to&nbsp;the&nbsp;
+                516&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`indicator`&nbsp;of&nbsp;the&nbsp;symbol&nbsp;which&nbsp;is&nbsp;the&nbsp;first&nbsp;element&nbsp;of&nbsp;the&nbsp;pair&nbsp;to&nbsp;the&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                500&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;value&nbsp;which&nbsp;is&nbsp;the&nbsp;second&nbsp;element&nbsp;of&nbsp;the&nbsp;pair.&nbsp;See&nbsp;page&nbsp;58&nbsp;of&nbsp;the&nbsp;manual.&quot;
+                517&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;value&nbsp;which&nbsp;is&nbsp;the&nbsp;second&nbsp;element&nbsp;of&nbsp;the&nbsp;pair.&nbsp;See&nbsp;page&nbsp;58&nbsp;of&nbsp;the&nbsp;manual.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                501&nbsp;&nbsp;&nbsp;&nbsp;[a-list&nbsp;indicator]
+                518&nbsp;&nbsp;&nbsp;&nbsp;[a-list&nbsp;indicator]
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                502&nbsp;&nbsp;&nbsp;&nbsp;(map
+                519&nbsp;&nbsp;&nbsp;&nbsp;(map
                 </span><br/>
 <span class="not-covered" title="0 out of 9 forms covered">
-                503&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(PUT&nbsp;(CAR&nbsp;%)&nbsp;indicator&nbsp;(CDR&nbsp;%))
+                520&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(PUT&nbsp;(CAR&nbsp;%)&nbsp;indicator&nbsp;(CDR&nbsp;%))
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                504&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;a-list))
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                505&nbsp;&nbsp;
-                </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                506&nbsp;&nbsp;(defn&nbsp;DEFINE
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                507&nbsp;&nbsp;&nbsp;&nbsp;&quot;Bootstrap-only&nbsp;version&nbsp;of&nbsp;`DEFINE`&nbsp;which,&nbsp;post&nbsp;boostrap,&nbsp;can&nbsp;be&nbsp;overwritten&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                508&nbsp;&nbsp;&nbsp;&nbsp;in&nbsp;LISP.&nbsp;
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                509&nbsp;&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                510&nbsp;&nbsp;&nbsp;&nbsp;The&nbsp;single&nbsp;argument&nbsp;to&nbsp;`DEFINE`&nbsp;should&nbsp;be&nbsp;an&nbsp;association&nbsp;list&nbsp;of&nbsp;symbols&nbsp;to
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                511&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lambda&nbsp;functions.&nbsp;See&nbsp;page&nbsp;58&nbsp;of&nbsp;the&nbsp;manual.&quot;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                512&nbsp;&nbsp;&nbsp;&nbsp;[a-list]
-                </span><br/>
-<span class="not-covered" title="0 out of 4 forms covered">
-                513&nbsp;&nbsp;&nbsp;&nbsp;(DEFLIST&nbsp;a-list&nbsp;&#x27;EXPR))
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                514&nbsp;&nbsp;
-                </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                515&nbsp;&nbsp;(defn&nbsp;SET
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                516&nbsp;&nbsp;&nbsp;&nbsp;&quot;Implementation&nbsp;of&nbsp;SET&nbsp;in&nbsp;Clojure.&nbsp;Add&nbsp;to&nbsp;the&nbsp;`oblist`&nbsp;a&nbsp;binding&nbsp;of&nbsp;the
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                517&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;value&nbsp;of&nbsp;`var`&nbsp;to&nbsp;the&nbsp;value&nbsp;of&nbsp;`val`.&nbsp;NOTE&nbsp;WELL:&nbsp;this&nbsp;is&nbsp;not&nbsp;SETQ!&quot;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                518&nbsp;&nbsp;&nbsp;&nbsp;[symbol&nbsp;val]
-                </span><br/>
-<span class="not-covered" title="0 out of 5 forms covered">
-                519&nbsp;&nbsp;&nbsp;&nbsp;(PUT&nbsp;symbol&nbsp;&#x27;APVAL&nbsp;val))
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                520&nbsp;&nbsp;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                521&nbsp;&nbsp;;;;;&nbsp;TRACE&nbsp;and&nbsp;friends&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                521&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;a-list))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
                 522&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                523&nbsp;&nbsp;(def&nbsp;traced-symbols
+                523&nbsp;&nbsp;(defn&nbsp;DEFINE
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                524&nbsp;&nbsp;&nbsp;&nbsp;&quot;Symbols&nbsp;currently&nbsp;being&nbsp;traced.&quot;
+                524&nbsp;&nbsp;&nbsp;&nbsp;&quot;Bootstrap-only&nbsp;version&nbsp;of&nbsp;`DEFINE`&nbsp;which,&nbsp;post&nbsp;boostrap,&nbsp;can&nbsp;be&nbsp;overwritten&nbsp;
                 </span><br/>
-<span class="covered" title="3 out of 3 forms covered">
-                525&nbsp;&nbsp;&nbsp;&nbsp;(atom&nbsp;#{}))
+<span class="not-tracked" title="0 out of 0 forms covered">
+                525&nbsp;&nbsp;&nbsp;&nbsp;in&nbsp;LISP.&nbsp;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
                 526&nbsp;&nbsp;
                 </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                527&nbsp;&nbsp;(defn&nbsp;traced?
+<span class="not-tracked" title="0 out of 0 forms covered">
+                527&nbsp;&nbsp;&nbsp;&nbsp;The&nbsp;single&nbsp;argument&nbsp;to&nbsp;`DEFINE`&nbsp;should&nbsp;be&nbsp;an&nbsp;association&nbsp;list&nbsp;of&nbsp;symbols&nbsp;to
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                528&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;`true`&nbsp;iff&nbsp;`s`&nbsp;is&nbsp;a&nbsp;symbol&nbsp;currently&nbsp;being&nbsp;traced,&nbsp;else&nbsp;`nil`.&quot;
+                528&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lambda&nbsp;functions.&nbsp;See&nbsp;page&nbsp;58&nbsp;of&nbsp;the&nbsp;manual.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                529&nbsp;&nbsp;&nbsp;&nbsp;[s]
-                </span><br/>
-<span class="partial" title="7 out of 8 forms covered">
-                530&nbsp;&nbsp;&nbsp;&nbsp;(try&nbsp;(contains?&nbsp;@traced-symbols&nbsp;s)
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                531&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;Throwable&nbsp;_&nbsp;nil)))
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                532&nbsp;&nbsp;
-                </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                533&nbsp;&nbsp;(defn&nbsp;TRACE
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                534&nbsp;&nbsp;&nbsp;&nbsp;&quot;Add&nbsp;this&nbsp;`s`&nbsp;to&nbsp;the&nbsp;set&nbsp;of&nbsp;symbols&nbsp;currently&nbsp;being&nbsp;traced.&nbsp;If&nbsp;`s`
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                535&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;is&nbsp;not&nbsp;a&nbsp;symbol&nbsp;or&nbsp;sequence&nbsp;of&nbsp;symbols,&nbsp;does&nbsp;nothing.&quot;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                536&nbsp;&nbsp;&nbsp;&nbsp;[s]
+                529&nbsp;&nbsp;&nbsp;&nbsp;[a-list]
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                537&nbsp;&nbsp;&nbsp;&nbsp;(swap!&nbsp;traced-symbols
-                </span><br/>
-<span class="not-covered" title="0 out of 4 forms covered">
-                538&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(cond
-                </span><br/>
-<span class="not-covered" title="0 out of 7 forms covered">
-                539&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;s)&nbsp;(conj&nbsp;%&nbsp;s)
-                </span><br/>
-<span class="not-covered" title="0 out of 17 forms covered">
-                540&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(seq?&nbsp;s)&nbsp;(every?&nbsp;symbol?&nbsp;s))&nbsp;(union&nbsp;%&nbsp;(set&nbsp;s))
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                541&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;%)))
+                530&nbsp;&nbsp;&nbsp;&nbsp;(DEFLIST&nbsp;a-list&nbsp;&#x27;EXPR))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                542&nbsp;&nbsp;
+                531&nbsp;&nbsp;
                 </span><br/>
-<span class="partial" title="1 out of 3 forms covered">
-                543&nbsp;&nbsp;(defn&nbsp;UNTRACE
+<span class="covered" title="1 out of 1 forms covered">
+                532&nbsp;&nbsp;(defn&nbsp;SET
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                544&nbsp;&nbsp;&nbsp;&nbsp;&quot;Remove&nbsp;this&nbsp;`s`&nbsp;from&nbsp;the&nbsp;set&nbsp;of&nbsp;symbols&nbsp;currently&nbsp;being&nbsp;traced.&nbsp;If&nbsp;`s`
+                533&nbsp;&nbsp;&nbsp;&nbsp;&quot;Implementation&nbsp;of&nbsp;SET&nbsp;in&nbsp;Clojure.&nbsp;Add&nbsp;to&nbsp;the&nbsp;`oblist`&nbsp;a&nbsp;binding&nbsp;of&nbsp;the
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                545&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;is&nbsp;not&nbsp;a&nbsp;symbol&nbsp;or&nbsp;sequence&nbsp;of&nbsp;symbols,&nbsp;does&nbsp;nothing.&quot;
+                534&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;value&nbsp;of&nbsp;`var`&nbsp;to&nbsp;the&nbsp;value&nbsp;of&nbsp;`val`.&nbsp;NOTE&nbsp;WELL:&nbsp;this&nbsp;is&nbsp;not&nbsp;SETQ!&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                535&nbsp;&nbsp;&nbsp;&nbsp;[symbol&nbsp;val]
+                </span><br/>
+<span class="not-covered" title="0 out of 5 forms covered">
+                536&nbsp;&nbsp;&nbsp;&nbsp;(PUT&nbsp;symbol&nbsp;&#x27;APVAL&nbsp;val))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                537&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                538&nbsp;&nbsp;;;;;&nbsp;TRACE&nbsp;and&nbsp;friends&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                539&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                540&nbsp;&nbsp;(def&nbsp;traced-symbols
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                541&nbsp;&nbsp;&nbsp;&nbsp;&quot;Symbols&nbsp;currently&nbsp;being&nbsp;traced.&quot;
+                </span><br/>
+<span class="covered" title="3 out of 3 forms covered">
+                542&nbsp;&nbsp;&nbsp;&nbsp;(atom&nbsp;#{}))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                543&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                544&nbsp;&nbsp;(defn&nbsp;traced?
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                545&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;`true`&nbsp;iff&nbsp;`s`&nbsp;is&nbsp;a&nbsp;symbol&nbsp;currently&nbsp;being&nbsp;traced,&nbsp;else&nbsp;`nil`.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
                 546&nbsp;&nbsp;&nbsp;&nbsp;[s]
                 </span><br/>
+<span class="partial" title="7 out of 8 forms covered">
+                547&nbsp;&nbsp;&nbsp;&nbsp;(try&nbsp;(contains?&nbsp;@traced-symbols&nbsp;s)
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                548&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(catch&nbsp;Throwable&nbsp;_&nbsp;nil)))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                549&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                550&nbsp;&nbsp;(defn&nbsp;TRACE
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                551&nbsp;&nbsp;&nbsp;&nbsp;&quot;Add&nbsp;this&nbsp;`s`&nbsp;to&nbsp;the&nbsp;set&nbsp;of&nbsp;symbols&nbsp;currently&nbsp;being&nbsp;traced.&nbsp;If&nbsp;`s`
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                552&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;is&nbsp;not&nbsp;a&nbsp;symbol&nbsp;or&nbsp;sequence&nbsp;of&nbsp;symbols,&nbsp;does&nbsp;nothing.&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                553&nbsp;&nbsp;&nbsp;&nbsp;[s]
+                </span><br/>
+<span class="not-covered" title="0 out of 4 forms covered">
+                554&nbsp;&nbsp;&nbsp;&nbsp;(swap!&nbsp;traced-symbols
+                </span><br/>
+<span class="not-covered" title="0 out of 4 forms covered">
+                555&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(cond
+                </span><br/>
+<span class="not-covered" title="0 out of 7 forms covered">
+                556&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;s)&nbsp;(conj&nbsp;%&nbsp;s)
+                </span><br/>
+<span class="not-covered" title="0 out of 17 forms covered">
+                557&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(seq?&nbsp;s)&nbsp;(every?&nbsp;symbol?&nbsp;s))&nbsp;(union&nbsp;%&nbsp;(set&nbsp;s))
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                558&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;%)))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                559&nbsp;&nbsp;
+                </span><br/>
+<span class="partial" title="1 out of 3 forms covered">
+                560&nbsp;&nbsp;(defn&nbsp;UNTRACE
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                561&nbsp;&nbsp;&nbsp;&nbsp;&quot;Remove&nbsp;this&nbsp;`s`&nbsp;from&nbsp;the&nbsp;set&nbsp;of&nbsp;symbols&nbsp;currently&nbsp;being&nbsp;traced.&nbsp;If&nbsp;`s`
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                562&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;is&nbsp;not&nbsp;a&nbsp;symbol&nbsp;or&nbsp;sequence&nbsp;of&nbsp;symbols,&nbsp;does&nbsp;nothing.&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                563&nbsp;&nbsp;&nbsp;&nbsp;[s]
+                </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                547&nbsp;&nbsp;&nbsp;&nbsp;(cond
+                564&nbsp;&nbsp;&nbsp;&nbsp;(cond
                 </span><br/>
 <span class="not-covered" title="0 out of 16 forms covered">
-                548&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;s)&nbsp;(swap!&nbsp;traced-symbols&nbsp;#(set&nbsp;(remove&nbsp;(fn&nbsp;[x]&nbsp;(=&nbsp;s&nbsp;x))&nbsp;%)))
+                565&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(symbol?&nbsp;s)&nbsp;(swap!&nbsp;traced-symbols&nbsp;#(set&nbsp;(remove&nbsp;(fn&nbsp;[x]&nbsp;(=&nbsp;s&nbsp;x))&nbsp;%)))
                 </span><br/>
 <span class="not-covered" title="0 out of 15 forms covered">
-                549&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(seq?&nbsp;s)&nbsp;(every?&nbsp;symbol?&nbsp;s))&nbsp;(map&nbsp;UNTRACE&nbsp;s))
+                566&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(and&nbsp;(seq?&nbsp;s)&nbsp;(every?&nbsp;symbol?&nbsp;s))&nbsp;(map&nbsp;UNTRACE&nbsp;s))
                 </span><br/>
 <span class="not-covered" title="0 out of 1 forms covered">
-                550&nbsp;&nbsp;&nbsp;&nbsp;@traced-symbols)
+                567&nbsp;&nbsp;&nbsp;&nbsp;@traced-symbols)
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                551&nbsp;&nbsp;
+                568&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                552&nbsp;&nbsp;;;;;&nbsp;Extensions&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                569&nbsp;&nbsp;;;;;&nbsp;Extensions&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                553&nbsp;&nbsp;
+                570&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                554&nbsp;&nbsp;(defn&nbsp;DOC
+                571&nbsp;&nbsp;(defn&nbsp;DOC
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                555&nbsp;&nbsp;&nbsp;&nbsp;&quot;Open&nbsp;the&nbsp;page&nbsp;for&nbsp;this&nbsp;`symbol`&nbsp;in&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;manual,&nbsp;if&nbsp;known,&nbsp;in&nbsp;the&nbsp;
+                572&nbsp;&nbsp;&nbsp;&nbsp;&quot;Open&nbsp;the&nbsp;page&nbsp;for&nbsp;this&nbsp;`symbol`&nbsp;in&nbsp;the&nbsp;Lisp&nbsp;1.5&nbsp;manual,&nbsp;if&nbsp;known,&nbsp;in&nbsp;the&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                556&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;default&nbsp;web&nbsp;browser.
+                573&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;default&nbsp;web&nbsp;browser.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                557&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                574&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                558&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;is&nbsp;an&nbsp;extension&nbsp;function,&nbsp;not&nbsp;available&nbsp;in&nbsp;strct&nbsp;mode.&quot;
+                575&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;is&nbsp;an&nbsp;extension&nbsp;function,&nbsp;not&nbsp;available&nbsp;in&nbsp;strct&nbsp;mode.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                559&nbsp;&nbsp;&nbsp;&nbsp;[symbol]
+                576&nbsp;&nbsp;&nbsp;&nbsp;[symbol]
                 </span><br/>
 <span class="not-covered" title="0 out of 5 forms covered">
-                560&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(lax?&nbsp;&#x27;DOC)
+                577&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(lax?&nbsp;&#x27;DOC)
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                561&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(open-doc&nbsp;symbol)))
+                578&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(open-doc&nbsp;symbol)))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                562&nbsp;&nbsp;
+                579&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                563&nbsp;&nbsp;(defn&nbsp;CONSP
+                580&nbsp;&nbsp;(defn&nbsp;CONSP
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                564&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;`T`&nbsp;if&nbsp;object&nbsp;`o`&nbsp;is&nbsp;a&nbsp;cons&nbsp;cell,&nbsp;else&nbsp;`F`.
+                581&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;`T`&nbsp;if&nbsp;object&nbsp;`o`&nbsp;is&nbsp;a&nbsp;cons&nbsp;cell,&nbsp;else&nbsp;`F`.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                565&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                582&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                566&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;is&nbsp;an&nbsp;extension&nbsp;function,&nbsp;not&nbsp;available&nbsp;in&nbsp;strct&nbsp;mode.&nbsp;
+                583&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;is&nbsp;an&nbsp;extension&nbsp;function,&nbsp;not&nbsp;available&nbsp;in&nbsp;strct&nbsp;mode.&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                567&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I&nbsp;believe&nbsp;that&nbsp;Lisp&nbsp;1.5&nbsp;did&nbsp;not&nbsp;have&nbsp;any&nbsp;mechanism&nbsp;for&nbsp;testing&nbsp;whether&nbsp;an
+                584&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I&nbsp;believe&nbsp;that&nbsp;Lisp&nbsp;1.5&nbsp;did&nbsp;not&nbsp;have&nbsp;any&nbsp;mechanism&nbsp;for&nbsp;testing&nbsp;whether&nbsp;an
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                568&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;argument&nbsp;was,&nbsp;or&nbsp;was&nbsp;not,&nbsp;a&nbsp;cons&nbsp;cell.&quot;
+                585&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;argument&nbsp;was,&nbsp;or&nbsp;was&nbsp;not,&nbsp;a&nbsp;cons&nbsp;cell.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                569&nbsp;&nbsp;&nbsp;&nbsp;[o]
+                586&nbsp;&nbsp;&nbsp;&nbsp;[o]
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
-                570&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(lax?&nbsp;&#x27;CONSP)
+                587&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(lax?&nbsp;&#x27;CONSP)
                 </span><br/>
 <span class="covered" title="7 out of 7 forms covered">
-                571&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;o)&nbsp;&#x27;T&nbsp;&#x27;F)))
+                588&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;ConsCell&nbsp;o)&nbsp;&#x27;T&nbsp;&#x27;F)))
                 </span><br/>
  </body>
 </html>
diff --git a/docs/cloverage/beowulf/io.clj.html b/docs/cloverage/beowulf/io.clj.html
index 2ef3c37..0eb19d4 100644
--- a/docs/cloverage/beowulf/io.clj.html
+++ b/docs/cloverage/beowulf/io.clj.html
@@ -334,13 +334,13 @@
 <span class="not-tracked" title="0 out of 0 forms covered">
                 110&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;reference.&quot;
                 </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
+<span class="partial" title="1 out of 3 forms covered">
                 111&nbsp;&nbsp;&nbsp;&nbsp;([entry]
                 </span><br/>
 <span class="partial" title="9 out of 12 forms covered">
                 112&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(or&nbsp;(resolve-subr&nbsp;entry&nbsp;&#x27;SUBR)
                 </span><br/>
-<span class="partial" title="1 out of 6 forms covered">
+<span class="not-covered" title="0 out of 3 forms covered">
                 113&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(resolve-subr&nbsp;entry&nbsp;&#x27;FSUBR)))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
diff --git a/docs/cloverage/beowulf/oblist.clj.html b/docs/cloverage/beowulf/oblist.clj.html
index f96cc9c..4ca6768 100644
--- a/docs/cloverage/beowulf/oblist.clj.html
+++ b/docs/cloverage/beowulf/oblist.clj.html
@@ -133,8 +133,8 @@
 <span class="not-tracked" title="0 out of 0 forms covered">
                 043&nbsp;&nbsp;&nbsp;&nbsp;&quot;Command&nbsp;line&nbsp;options&nbsp;from&nbsp;invocation.&quot;
                 </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                044&nbsp;&nbsp;&nbsp;&nbsp;{})
+<span class="covered" title="3 out of 3 forms covered">
+                044&nbsp;&nbsp;&nbsp;&nbsp;{:testing&nbsp;true})
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
                 045&nbsp;&nbsp;
diff --git a/docs/cloverage/beowulf/read.clj.html b/docs/cloverage/beowulf/read.clj.html
index ba3a47f..74998a3 100644
--- a/docs/cloverage/beowulf/read.clj.html
+++ b/docs/cloverage/beowulf/read.clj.html
@@ -50,283 +50,319 @@
                 015&nbsp;&nbsp;&nbsp;&nbsp;switch.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                016&nbsp;&nbsp;&nbsp;&nbsp;(:require&nbsp;;;&nbsp;[beowulf.reader.char-reader&nbsp;:refer&nbsp;[read-chars]]
+                016&nbsp;&nbsp;&nbsp;&nbsp;(:require&nbsp;[beowulf.oblist&nbsp;:refer&nbsp;[*options*]]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                017&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.generate&nbsp;:refer&nbsp;[generate]]
+                017&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.char-reader&nbsp;:refer&nbsp;[read-chars]]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                018&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.parser&nbsp;:refer&nbsp;[parse]]
+                018&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.generate&nbsp;:refer&nbsp;[generate]]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                019&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.simplify&nbsp;:refer&nbsp;[simplify]]
+                019&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.parser&nbsp;:refer&nbsp;[parse]]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                020&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[clojure.string&nbsp;:refer&nbsp;[join&nbsp;split&nbsp;starts-with?&nbsp;trim]])
+                020&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[beowulf.reader.simplify&nbsp;:refer&nbsp;[simplify]]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                021&nbsp;&nbsp;&nbsp;&nbsp;(:import&nbsp;[java.io&nbsp;InputStream]
+                021&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[clojure.string&nbsp;:refer&nbsp;[join&nbsp;split&nbsp;starts-with?&nbsp;trim]])
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                022&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[instaparse.gll&nbsp;Failure]))
+                022&nbsp;&nbsp;&nbsp;&nbsp;(:import&nbsp;[instaparse.gll&nbsp;Failure]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                023&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[java.io&nbsp;InputStream]))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                023&nbsp;&nbsp;
+                024&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                024&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                025&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                025&nbsp;&nbsp;;;;
+                026&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                026&nbsp;&nbsp;;;;&nbsp;This&nbsp;file&nbsp;provides&nbsp;the&nbsp;reader&nbsp;required&nbsp;for&nbsp;boostrapping.&nbsp;It&#x27;s&nbsp;not&nbsp;a&nbsp;bad
+                027&nbsp;&nbsp;;;;&nbsp;This&nbsp;file&nbsp;provides&nbsp;the&nbsp;reader&nbsp;required&nbsp;for&nbsp;boostrapping.&nbsp;It&#x27;s&nbsp;not&nbsp;a&nbsp;bad
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                027&nbsp;&nbsp;;;;&nbsp;reader&nbsp;-&nbsp;it&nbsp;provides&nbsp;feedback&nbsp;on&nbsp;errors&nbsp;found&nbsp;in&nbsp;the&nbsp;input&nbsp;-&nbsp;but&nbsp;it&nbsp;isn&#x27;t
+                028&nbsp;&nbsp;;;;&nbsp;reader&nbsp;-&nbsp;it&nbsp;provides&nbsp;feedback&nbsp;on&nbsp;errors&nbsp;found&nbsp;in&nbsp;the&nbsp;input&nbsp;-&nbsp;but&nbsp;it&nbsp;isn&#x27;t
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                028&nbsp;&nbsp;;;;&nbsp;the&nbsp;real&nbsp;Lisp&nbsp;reader.
+                029&nbsp;&nbsp;;;;&nbsp;the&nbsp;real&nbsp;Lisp&nbsp;reader.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                029&nbsp;&nbsp;;;;
+                030&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                030&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                031&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                031&nbsp;&nbsp;;;;
+                032&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                032&nbsp;&nbsp;;;;&nbsp;Copyright&nbsp;(C)&nbsp;2022-2023&nbsp;Simon&nbsp;Brooke
+                033&nbsp;&nbsp;;;;&nbsp;Copyright&nbsp;(C)&nbsp;2022-2023&nbsp;Simon&nbsp;Brooke
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                033&nbsp;&nbsp;;;;
+                034&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                034&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;free&nbsp;software;&nbsp;you&nbsp;can&nbsp;redistribute&nbsp;it&nbsp;and&#x2F;or
+                035&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;free&nbsp;software;&nbsp;you&nbsp;can&nbsp;redistribute&nbsp;it&nbsp;and&#x2F;or
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                035&nbsp;&nbsp;;;;&nbsp;modify&nbsp;it&nbsp;under&nbsp;the&nbsp;terms&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
+                036&nbsp;&nbsp;;;;&nbsp;modify&nbsp;it&nbsp;under&nbsp;the&nbsp;terms&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                036&nbsp;&nbsp;;;;&nbsp;as&nbsp;published&nbsp;by&nbsp;the&nbsp;Free&nbsp;Software&nbsp;Foundation;&nbsp;either&nbsp;version&nbsp;2
+                037&nbsp;&nbsp;;;;&nbsp;as&nbsp;published&nbsp;by&nbsp;the&nbsp;Free&nbsp;Software&nbsp;Foundation;&nbsp;either&nbsp;version&nbsp;2
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                037&nbsp;&nbsp;;;;&nbsp;of&nbsp;the&nbsp;License,&nbsp;or&nbsp;(at&nbsp;your&nbsp;option)&nbsp;any&nbsp;later&nbsp;version.
+                038&nbsp;&nbsp;;;;&nbsp;of&nbsp;the&nbsp;License,&nbsp;or&nbsp;(at&nbsp;your&nbsp;option)&nbsp;any&nbsp;later&nbsp;version.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                038&nbsp;&nbsp;;;;&nbsp;
+                039&nbsp;&nbsp;;;;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                039&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;distributed&nbsp;in&nbsp;the&nbsp;hope&nbsp;that&nbsp;it&nbsp;will&nbsp;be&nbsp;useful,
+                040&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;distributed&nbsp;in&nbsp;the&nbsp;hope&nbsp;that&nbsp;it&nbsp;will&nbsp;be&nbsp;useful,
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                040&nbsp;&nbsp;;;;&nbsp;but&nbsp;WITHOUT&nbsp;ANY&nbsp;WARRANTY;&nbsp;without&nbsp;even&nbsp;the&nbsp;implied&nbsp;warranty&nbsp;of
+                041&nbsp;&nbsp;;;;&nbsp;but&nbsp;WITHOUT&nbsp;ANY&nbsp;WARRANTY;&nbsp;without&nbsp;even&nbsp;the&nbsp;implied&nbsp;warranty&nbsp;of
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                041&nbsp;&nbsp;;;;&nbsp;MERCHANTABILITY&nbsp;or&nbsp;FITNESS&nbsp;FOR&nbsp;A&nbsp;PARTICULAR&nbsp;PURPOSE.&nbsp;&nbsp;See&nbsp;the
+                042&nbsp;&nbsp;;;;&nbsp;MERCHANTABILITY&nbsp;or&nbsp;FITNESS&nbsp;FOR&nbsp;A&nbsp;PARTICULAR&nbsp;PURPOSE.&nbsp;&nbsp;See&nbsp;the
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                042&nbsp;&nbsp;;;;&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;for&nbsp;more&nbsp;details.
+                043&nbsp;&nbsp;;;;&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;for&nbsp;more&nbsp;details.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                043&nbsp;&nbsp;;;;&nbsp;
+                044&nbsp;&nbsp;;;;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                044&nbsp;&nbsp;;;;&nbsp;You&nbsp;should&nbsp;have&nbsp;received&nbsp;a&nbsp;copy&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
+                045&nbsp;&nbsp;;;;&nbsp;You&nbsp;should&nbsp;have&nbsp;received&nbsp;a&nbsp;copy&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                045&nbsp;&nbsp;;;;&nbsp;along&nbsp;with&nbsp;this&nbsp;program;&nbsp;if&nbsp;not,&nbsp;write&nbsp;to&nbsp;the&nbsp;Free&nbsp;Software
+                046&nbsp;&nbsp;;;;&nbsp;along&nbsp;with&nbsp;this&nbsp;program;&nbsp;if&nbsp;not,&nbsp;write&nbsp;to&nbsp;the&nbsp;Free&nbsp;Software
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                046&nbsp;&nbsp;;;;&nbsp;Foundation,&nbsp;Inc.,&nbsp;51&nbsp;Franklin&nbsp;Street,&nbsp;Fifth&nbsp;Floor,&nbsp;Boston,&nbsp;MA&nbsp;&nbsp;02110-1301,&nbsp;USA.
+                047&nbsp;&nbsp;;;;&nbsp;Foundation,&nbsp;Inc.,&nbsp;51&nbsp;Franklin&nbsp;Street,&nbsp;Fifth&nbsp;Floor,&nbsp;Boston,&nbsp;MA&nbsp;&nbsp;02110-1301,&nbsp;USA.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                047&nbsp;&nbsp;;;;
+                048&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                048&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                049&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                049&nbsp;&nbsp;
+                050&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                050&nbsp;&nbsp;(defn&nbsp;strip-line-comments
+                051&nbsp;&nbsp;(defn&nbsp;strip-line-comments
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                051&nbsp;&nbsp;&nbsp;&nbsp;&quot;Strip&nbsp;blank&nbsp;lines&nbsp;and&nbsp;comment&nbsp;lines&nbsp;from&nbsp;this&nbsp;string&nbsp;`s`,&nbsp;expected&nbsp;to
+                052&nbsp;&nbsp;&nbsp;&nbsp;&quot;Strip&nbsp;blank&nbsp;lines&nbsp;and&nbsp;comment&nbsp;lines&nbsp;from&nbsp;this&nbsp;string&nbsp;`s`,&nbsp;expected&nbsp;to
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                052&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;be&nbsp;Lisp&nbsp;source.&quot;
+                053&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;be&nbsp;Lisp&nbsp;source.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                053&nbsp;&nbsp;&nbsp;&nbsp;[^String&nbsp;s]
+                054&nbsp;&nbsp;&nbsp;&nbsp;[^String&nbsp;s]
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                054&nbsp;&nbsp;&nbsp;&nbsp;(join&nbsp;&quot;\n&quot;
+                055&nbsp;&nbsp;&nbsp;&nbsp;(join&nbsp;&quot;\n&quot;
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                055&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(remove
+                056&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(remove
                 </span><br/>
 <span class="covered" title="9 out of 9 forms covered">
-                056&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(or&nbsp;(empty?&nbsp;%)
+                057&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(or&nbsp;(empty?&nbsp;%)
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                057&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(starts-with?&nbsp;(trim&nbsp;%)&nbsp;&quot;;;&quot;))
+                058&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(starts-with?&nbsp;(trim&nbsp;%)&nbsp;&quot;;;&quot;))
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                058&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(split&nbsp;s&nbsp;#&quot;\n&quot;))))
+                059&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(split&nbsp;s&nbsp;#&quot;\n&quot;))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                059&nbsp;&nbsp;
+                060&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                060&nbsp;&nbsp;(defn&nbsp;number-lines
+                061&nbsp;&nbsp;(defn&nbsp;number-lines
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                061&nbsp;&nbsp;&nbsp;&nbsp;([^String&nbsp;s]
+                062&nbsp;&nbsp;&nbsp;&nbsp;([^String&nbsp;s]
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                062&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number-lines&nbsp;s&nbsp;nil))
+                063&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(number-lines&nbsp;s&nbsp;nil))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                063&nbsp;&nbsp;&nbsp;&nbsp;([^String&nbsp;s&nbsp;^Failure&nbsp;e]
+                064&nbsp;&nbsp;&nbsp;&nbsp;([^String&nbsp;s&nbsp;^Failure&nbsp;e]
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                064&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[l&nbsp;(-&gt;&nbsp;e&nbsp;:line)
+                065&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[l&nbsp;(-&gt;&nbsp;e&nbsp;:line)
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                065&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;c&nbsp;(-&gt;&nbsp;e&nbsp;:column)]
+                066&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;c&nbsp;(-&gt;&nbsp;e&nbsp;:column)]
                 </span><br/>
 <span class="not-covered" title="0 out of 3 forms covered">
-                066&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(join&nbsp;&quot;\n&quot;
+                067&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(join&nbsp;&quot;\n&quot;
                 </span><br/>
 <span class="not-covered" title="0 out of 11 forms covered">
-                067&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(map&nbsp;#(str&nbsp;(format&nbsp;&quot;%5d&nbsp;%s&quot;&nbsp;(inc&nbsp;%1)&nbsp;%2)
+                068&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(map&nbsp;#(str&nbsp;(format&nbsp;&quot;%5d&nbsp;%s&quot;&nbsp;(inc&nbsp;%1)&nbsp;%2)
                 </span><br/>
 <span class="not-covered" title="0 out of 6 forms covered">
-                068&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(=&nbsp;l&nbsp;(inc&nbsp;%1))
+                069&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(when&nbsp;(=&nbsp;l&nbsp;(inc&nbsp;%1))
                 </span><br/>
 <span class="not-covered" title="0 out of 11 forms covered">
-                069&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;\n&quot;&nbsp;(apply&nbsp;str&nbsp;(repeat&nbsp;c&nbsp;&quot;&nbsp;&quot;))&nbsp;&quot;^&quot;)))
+                070&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(str&nbsp;&quot;\n&quot;&nbsp;(apply&nbsp;str&nbsp;(repeat&nbsp;c&nbsp;&quot;&nbsp;&quot;))&nbsp;&quot;^&quot;)))
                 </span><br/>
 <span class="not-covered" title="0 out of 2 forms covered">
-                070&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(range)
+                071&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(range)
                 </span><br/>
 <span class="not-covered" title="0 out of 4 forms covered">
-                071&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(split&nbsp;s&nbsp;#&quot;\n&quot;))))))
+                072&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(split&nbsp;s&nbsp;#&quot;\n&quot;))))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                072&nbsp;&nbsp;
+                073&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                073&nbsp;&nbsp;(defn&nbsp;gsp
+                074&nbsp;&nbsp;(defn&nbsp;gsp
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                074&nbsp;&nbsp;&nbsp;&nbsp;&quot;Shortcut&nbsp;macro&nbsp;-&nbsp;the&nbsp;internals&nbsp;of&nbsp;read;&nbsp;or,&nbsp;if&nbsp;you&nbsp;like,&nbsp;read-string.
+                075&nbsp;&nbsp;&nbsp;&nbsp;&quot;Shortcut&nbsp;macro&nbsp;-&nbsp;the&nbsp;internals&nbsp;of&nbsp;read;&nbsp;or,&nbsp;if&nbsp;you&nbsp;like,&nbsp;read-string.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                075&nbsp;&nbsp;&nbsp;&nbsp;Argument&nbsp;`s`&nbsp;should&nbsp;be&nbsp;a&nbsp;string&nbsp;representation&nbsp;of&nbsp;a&nbsp;valid&nbsp;Lisp
+                076&nbsp;&nbsp;&nbsp;&nbsp;Argument&nbsp;`s`&nbsp;should&nbsp;be&nbsp;a&nbsp;string&nbsp;representation&nbsp;of&nbsp;a&nbsp;valid&nbsp;Lisp
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                076&nbsp;&nbsp;&nbsp;&nbsp;expression.&quot;
+                077&nbsp;&nbsp;&nbsp;&nbsp;expression.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                077&nbsp;&nbsp;&nbsp;&nbsp;[s]
+                078&nbsp;&nbsp;&nbsp;&nbsp;[s]
                 </span><br/>
 <span class="covered" title="4 out of 4 forms covered">
-                078&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[source&nbsp;(strip-line-comments&nbsp;s)
+                079&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[source&nbsp;(strip-line-comments&nbsp;s)
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                079&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;parse-tree&nbsp;(parse&nbsp;source)]
+                080&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;parse-tree&nbsp;(parse&nbsp;source)]
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
-                080&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;Failure&nbsp;parse-tree)
+                081&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(instance?&nbsp;Failure&nbsp;parse-tree)
                 </span><br/>
 <span class="not-covered" title="0 out of 8 forms covered">
-                081&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(doall&nbsp;(println&nbsp;(number-lines&nbsp;source&nbsp;parse-tree))
+                082&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(doall&nbsp;(println&nbsp;(number-lines&nbsp;source&nbsp;parse-tree))
                 </span><br/>
 <span class="not-covered" title="0 out of 9 forms covered">
-                082&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;&quot;Ne&nbsp;can&nbsp;forstande&nbsp;&quot;&nbsp;(assoc&nbsp;parse-tree&nbsp;:source&nbsp;source))))
+                083&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;&quot;Ne&nbsp;can&nbsp;forstande&nbsp;&quot;&nbsp;(assoc&nbsp;parse-tree&nbsp;:source&nbsp;source))))
                 </span><br/>
 <span class="covered" title="5 out of 5 forms covered">
-                083&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(generate&nbsp;(simplify&nbsp;parse-tree)))))
+                084&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(generate&nbsp;(simplify&nbsp;parse-tree)))))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                084&nbsp;&nbsp;
+                085&nbsp;&nbsp;
                 </span><br/>
 <span class="covered" title="1 out of 1 forms covered">
-                085&nbsp;&nbsp;(defn&nbsp;read-from-console
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                086&nbsp;&nbsp;&nbsp;&nbsp;&quot;Attempt&nbsp;to&nbsp;read&nbsp;a&nbsp;complete&nbsp;lisp&nbsp;expression&nbsp;from&nbsp;the&nbsp;console.&nbsp;NOTE&nbsp;that&nbsp;this
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                087&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;will&nbsp;only&nbsp;really&nbsp;work&nbsp;for&nbsp;S-Expressions,&nbsp;not&nbsp;M-Expressions.&quot;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                088&nbsp;&nbsp;&nbsp;&nbsp;[]
+                086&nbsp;&nbsp;(defn-&nbsp;dummy-read-chars&nbsp;[prompt]
                 </span><br/>
 <span class="covered" title="3 out of 3 forms covered">
-                089&nbsp;&nbsp;&nbsp;&nbsp;(loop&nbsp;[r&nbsp;(read-line)]
+                087&nbsp;&nbsp;&nbsp;&nbsp;(loop&nbsp;[r&nbsp;&quot;&quot;&nbsp;p&nbsp;prompt]
                 </span><br/>
-<span class="partial" title="11 out of 12 forms covered">
-                090&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(and&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\(&quot;&nbsp;r))
-                </span><br/>
-<span class="covered" title="5 out of 5 forms covered">
-                091&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\)&quot;&nbsp;r)))
-                </span><br/>
-<span class="covered" title="5 out of 5 forms covered">
-                092&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\[&quot;&nbsp;r))
-                </span><br/>
-<span class="covered" title="5 out of 5 forms covered">
-                093&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\]&quot;&nbsp;r))))
-                </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                094&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;r
-                </span><br/>
-<span class="not-covered" title="0 out of 1 forms covered">
-                095&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(str&nbsp;r&nbsp;&quot;\n&quot;&nbsp;(read-line))))))
-                </span><br/>
-<span class="blank" title="0 out of 0 forms covered">
-                096&nbsp;&nbsp;
-                </span><br/>
-<span class="covered" title="1 out of 1 forms covered">
-                097&nbsp;&nbsp;(defn&nbsp;READ
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                098&nbsp;&nbsp;&nbsp;&nbsp;&quot;An&nbsp;implementation&nbsp;of&nbsp;a&nbsp;Lisp&nbsp;reader&nbsp;sufficient&nbsp;for&nbsp;bootstrapping;&nbsp;not&nbsp;necessarily
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                099&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;final&nbsp;Lisp&nbsp;reader.&nbsp;`input`&nbsp;should&nbsp;be&nbsp;either&nbsp;a&nbsp;string&nbsp;representation&nbsp;of&nbsp;a&nbsp;LISP
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                100&nbsp;&nbsp;&nbsp;&nbsp;expression,&nbsp;or&nbsp;else&nbsp;an&nbsp;input&nbsp;stream.&nbsp;A&nbsp;single&nbsp;form&nbsp;will&nbsp;be&nbsp;read.&quot;
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                101&nbsp;&nbsp;&nbsp;&nbsp;([]
-                </span><br/>
-<span class="not-covered" title="0 out of 4 forms covered">
-                102&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(gsp&nbsp;(read-from-console)))
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                103&nbsp;&nbsp;&nbsp;&nbsp;([input]
-                </span><br/>
-<span class="partial" title="2 out of 4 forms covered">
-                104&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cond
-                </span><br/>
-<span class="partial" title="3 out of 5 forms covered">
-                105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(empty?&nbsp;input)&nbsp;(READ)
+<span class="partial" title="12 out of 13 forms covered">
+                088&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(and&nbsp;(seq&nbsp;r)
                 </span><br/>
 <span class="covered" title="6 out of 6 forms covered">
-                106&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(string?&nbsp;input)&nbsp;(gsp&nbsp;input)
+                089&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\(&quot;&nbsp;r))
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                090&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\)&quot;&nbsp;r)))
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                091&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\[&quot;&nbsp;r))
+                </span><br/>
+<span class="covered" title="5 out of 5 forms covered">
+                092&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\]&quot;&nbsp;r))))
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                093&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;r
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                094&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(do
+                </span><br/>
+<span class="covered" title="6 out of 6 forms covered">
+                095&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(print&nbsp;(str&nbsp;p&nbsp;&quot;&nbsp;&quot;))
+                </span><br/>
+<span class="covered" title="2 out of 2 forms covered">
+                096&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(flush)
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                097&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(str&nbsp;r&nbsp;&quot;\n&quot;&nbsp;(read-line))&nbsp;&quot;::&quot;)))))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                098&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                099&nbsp;&nbsp;(defn&nbsp;read-from-console
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                100&nbsp;&nbsp;&nbsp;&nbsp;&quot;Attempt&nbsp;to&nbsp;read&nbsp;a&nbsp;complete&nbsp;lisp&nbsp;expression&nbsp;from&nbsp;the&nbsp;console.
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                101&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                102&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;There&#x27;s&nbsp;a&nbsp;major&nbsp;problem&nbsp;here&nbsp;that&nbsp;the&nbsp;read-chars&nbsp;reader&nbsp;messes&nbsp;up&nbsp;testing.
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                103&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;We&nbsp;need&nbsp;to&nbsp;be&nbsp;able&nbsp;to&nbsp;disable&nbsp;it&nbsp;while&nbsp;testing!&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                104&nbsp;&nbsp;&nbsp;&nbsp;[prompt]
+                </span><br/>
+<span class="covered" title="4 out of 4 forms covered">
+                105&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(:testing&nbsp;*options*)
+                </span><br/>
+<span class="covered" title="3 out of 3 forms covered">
+                106&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(dummy-read-chars&nbsp;prompt)
+                </span><br/>
+<span class="not-covered" title="0 out of 3 forms covered">
+                107&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(read-chars&nbsp;prompt)))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                108&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                109&nbsp;&nbsp;(defn&nbsp;READ
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                110&nbsp;&nbsp;&nbsp;&nbsp;&quot;An&nbsp;implementation&nbsp;of&nbsp;a&nbsp;Lisp&nbsp;reader&nbsp;sufficient&nbsp;for&nbsp;bootstrapping;&nbsp;not&nbsp;necessarily
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                111&nbsp;&nbsp;&nbsp;&nbsp;the&nbsp;final&nbsp;Lisp&nbsp;reader.&nbsp;`input`&nbsp;should&nbsp;be&nbsp;either&nbsp;a&nbsp;string&nbsp;representation&nbsp;of&nbsp;a&nbsp;LISP
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                112&nbsp;&nbsp;&nbsp;&nbsp;expression,&nbsp;or&nbsp;else&nbsp;an&nbsp;input&nbsp;stream.&nbsp;A&nbsp;single&nbsp;form&nbsp;will&nbsp;be&nbsp;read.&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                113&nbsp;&nbsp;&nbsp;&nbsp;([]
+                </span><br/>
+<span class="not-covered" title="0 out of 7 forms covered">
+                114&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(gsp&nbsp;(read-from-console&nbsp;(:prompt&nbsp;*options*))))
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                115&nbsp;&nbsp;&nbsp;&nbsp;([input]
+                </span><br/>
+<span class="partial" title="2 out of 4 forms covered">
+                116&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(cond
+                </span><br/>
+<span class="partial" title="3 out of 5 forms covered">
+                117&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(empty?&nbsp;input)&nbsp;(READ)
+                </span><br/>
+<span class="covered" title="6 out of 6 forms covered">
+                118&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(string?&nbsp;input)&nbsp;(gsp&nbsp;input)
                 </span><br/>
 <span class="not-covered" title="0 out of 9 forms covered">
-                107&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;InputStream&nbsp;input)&nbsp;(READ&nbsp;(slurp&nbsp;input))
+                119&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(instance?&nbsp;InputStream&nbsp;input)&nbsp;(READ&nbsp;(slurp&nbsp;input))
                 </span><br/>
 <span class="not-covered" title="0 out of 5 forms covered">
-                108&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;&quot;READ:&nbsp;`input`&nbsp;should&nbsp;be&nbsp;a&nbsp;string&nbsp;or&nbsp;an&nbsp;input&nbsp;stream&quot;&nbsp;{})))))
+                120&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:else&nbsp;&nbsp;&nbsp;&nbsp;(throw&nbsp;(ex-info&nbsp;&quot;READ:&nbsp;`input`&nbsp;should&nbsp;be&nbsp;a&nbsp;string&nbsp;or&nbsp;an&nbsp;input&nbsp;stream&quot;&nbsp;{})))))
                 </span><br/>
  </body>
 </html>
diff --git a/docs/cloverage/beowulf/reader/char_reader.clj.html b/docs/cloverage/beowulf/reader/char_reader.clj.html
index f198c42..a0ac0f9 100644
--- a/docs/cloverage/beowulf/reader/char_reader.clj.html
+++ b/docs/cloverage/beowulf/reader/char_reader.clj.html
@@ -71,163 +71,259 @@
                 022&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;https:&#x2F;&#x2F;stackoverflow.com&#x2F;questions&#x2F;7931988&#x2F;how-to-manipulate-control-characters&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                023&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(:import&nbsp;[org.jline.reader&nbsp;LineReader&nbsp;LineReaderBuilder]
+                023&nbsp;&nbsp;&nbsp;&nbsp;(:require&nbsp;[beowulf.oblist&nbsp;:refer&nbsp;[*options*&nbsp;oblist]])
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                024&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[org.jline.terminal&nbsp;TerminalBuilder])
+                024&nbsp;&nbsp;&nbsp;&nbsp;(:import&nbsp;[org.jline.reader.impl.completer&nbsp;StringsCompleter]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                025&nbsp;&nbsp;&nbsp;&nbsp;)
+                025&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[org.jline.reader.impl&nbsp;DefaultParser&nbsp;DefaultParser$Bracket]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                026&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[org.jline.reader&nbsp;LineReaderBuilder]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                027&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[org.jline.terminal&nbsp;TerminalBuilder]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                028&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[org.jline.widget&nbsp;AutopairWidgets&nbsp;AutosuggestionWidgets]))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                026&nbsp;&nbsp;
+                029&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                027&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                030&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                028&nbsp;&nbsp;;;;
+                031&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                029&nbsp;&nbsp;;;;&nbsp;Copyright&nbsp;(C)&nbsp;2022-2023&nbsp;Simon&nbsp;Brooke
+                032&nbsp;&nbsp;;;;&nbsp;Copyright&nbsp;(C)&nbsp;2022-2023&nbsp;Simon&nbsp;Brooke
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                030&nbsp;&nbsp;;;;
+                033&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                031&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;free&nbsp;software;&nbsp;you&nbsp;can&nbsp;redistribute&nbsp;it&nbsp;and&#x2F;or
+                034&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;free&nbsp;software;&nbsp;you&nbsp;can&nbsp;redistribute&nbsp;it&nbsp;and&#x2F;or
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                032&nbsp;&nbsp;;;;&nbsp;modify&nbsp;it&nbsp;under&nbsp;the&nbsp;terms&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
+                035&nbsp;&nbsp;;;;&nbsp;modify&nbsp;it&nbsp;under&nbsp;the&nbsp;terms&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                033&nbsp;&nbsp;;;;&nbsp;as&nbsp;published&nbsp;by&nbsp;the&nbsp;Free&nbsp;Software&nbsp;Foundation;&nbsp;either&nbsp;version&nbsp;2
+                036&nbsp;&nbsp;;;;&nbsp;as&nbsp;published&nbsp;by&nbsp;the&nbsp;Free&nbsp;Software&nbsp;Foundation;&nbsp;either&nbsp;version&nbsp;2
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                034&nbsp;&nbsp;;;;&nbsp;of&nbsp;the&nbsp;License,&nbsp;or&nbsp;(at&nbsp;your&nbsp;option)&nbsp;any&nbsp;later&nbsp;version.
+                037&nbsp;&nbsp;;;;&nbsp;of&nbsp;the&nbsp;License,&nbsp;or&nbsp;(at&nbsp;your&nbsp;option)&nbsp;any&nbsp;later&nbsp;version.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                035&nbsp;&nbsp;;;;&nbsp;
+                038&nbsp;&nbsp;;;;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                036&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;distributed&nbsp;in&nbsp;the&nbsp;hope&nbsp;that&nbsp;it&nbsp;will&nbsp;be&nbsp;useful,
+                039&nbsp;&nbsp;;;;&nbsp;This&nbsp;program&nbsp;is&nbsp;distributed&nbsp;in&nbsp;the&nbsp;hope&nbsp;that&nbsp;it&nbsp;will&nbsp;be&nbsp;useful,
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                037&nbsp;&nbsp;;;;&nbsp;but&nbsp;WITHOUT&nbsp;ANY&nbsp;WARRANTY;&nbsp;without&nbsp;even&nbsp;the&nbsp;implied&nbsp;warranty&nbsp;of
+                040&nbsp;&nbsp;;;;&nbsp;but&nbsp;WITHOUT&nbsp;ANY&nbsp;WARRANTY;&nbsp;without&nbsp;even&nbsp;the&nbsp;implied&nbsp;warranty&nbsp;of
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                038&nbsp;&nbsp;;;;&nbsp;MERCHANTABILITY&nbsp;or&nbsp;FITNESS&nbsp;FOR&nbsp;A&nbsp;PARTICULAR&nbsp;PURPOSE.&nbsp;&nbsp;See&nbsp;the
+                041&nbsp;&nbsp;;;;&nbsp;MERCHANTABILITY&nbsp;or&nbsp;FITNESS&nbsp;FOR&nbsp;A&nbsp;PARTICULAR&nbsp;PURPOSE.&nbsp;&nbsp;See&nbsp;the
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                039&nbsp;&nbsp;;;;&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;for&nbsp;more&nbsp;details.
+                042&nbsp;&nbsp;;;;&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;for&nbsp;more&nbsp;details.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                040&nbsp;&nbsp;;;;&nbsp;
+                043&nbsp;&nbsp;;;;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                041&nbsp;&nbsp;;;;&nbsp;You&nbsp;should&nbsp;have&nbsp;received&nbsp;a&nbsp;copy&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
+                044&nbsp;&nbsp;;;;&nbsp;You&nbsp;should&nbsp;have&nbsp;received&nbsp;a&nbsp;copy&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                042&nbsp;&nbsp;;;;&nbsp;along&nbsp;with&nbsp;this&nbsp;program;&nbsp;if&nbsp;not,&nbsp;write&nbsp;to&nbsp;the&nbsp;Free&nbsp;Software
+                045&nbsp;&nbsp;;;;&nbsp;along&nbsp;with&nbsp;this&nbsp;program;&nbsp;if&nbsp;not,&nbsp;write&nbsp;to&nbsp;the&nbsp;Free&nbsp;Software
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                043&nbsp;&nbsp;;;;&nbsp;Foundation,&nbsp;Inc.,&nbsp;51&nbsp;Franklin&nbsp;Street,&nbsp;Fifth&nbsp;Floor,&nbsp;Boston,&nbsp;MA&nbsp;&nbsp;02110-1301,&nbsp;USA.
+                046&nbsp;&nbsp;;;;&nbsp;Foundation,&nbsp;Inc.,&nbsp;51&nbsp;Franklin&nbsp;Street,&nbsp;Fifth&nbsp;Floor,&nbsp;Boston,&nbsp;MA&nbsp;&nbsp;02110-1301,&nbsp;USA.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                044&nbsp;&nbsp;;;;
+                047&nbsp;&nbsp;;;;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                045&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+                048&nbsp;&nbsp;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                046&nbsp;&nbsp;
+                049&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                047&nbsp;&nbsp;;;&nbsp;It&nbsp;looks&nbsp;from&nbsp;the&nbsp;example&nbsp;given&nbsp;[here](https:&#x2F;&#x2F;github.com&#x2F;jline&#x2F;jline3&#x2F;blob&#x2F;master&#x2F;demo&#x2F;src&#x2F;main&#x2F;java&#x2F;org&#x2F;jline&#x2F;demo&#x2F;Repl.java)
+                050&nbsp;&nbsp;;;&nbsp;It&nbsp;looks&nbsp;from&nbsp;the&nbsp;example&nbsp;given&nbsp;[here](https:&#x2F;&#x2F;github.com&#x2F;jline&#x2F;jline3&#x2F;blob&#x2F;master&#x2F;demo&#x2F;src&#x2F;main&#x2F;java&#x2F;org&#x2F;jline&#x2F;demo&#x2F;Repl.java)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                048&nbsp;&nbsp;;;&nbsp;as&nbsp;though&nbsp;JLine&nbsp;could&nbsp;be&nbsp;used&nbsp;to&nbsp;build&nbsp;a&nbsp;perfect&nbsp;line-reader&nbsp;for&nbsp;Beowulf;&nbsp;but&nbsp;it&nbsp;also
+                051&nbsp;&nbsp;;;&nbsp;as&nbsp;though&nbsp;JLine&nbsp;could&nbsp;be&nbsp;used&nbsp;to&nbsp;build&nbsp;a&nbsp;perfect&nbsp;line-reader&nbsp;for&nbsp;Beowulf;&nbsp;but&nbsp;it&nbsp;also
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                049&nbsp;&nbsp;;;&nbsp;looks&nbsp;as&nbsp;though&nbsp;you&#x27;d&nbsp;need&nbsp;a&nbsp;DPhil&nbsp;in&nbsp;JLine&nbsp;to&nbsp;write&nbsp;it,&nbsp;and&nbsp;I&nbsp;don&#x27;t&nbsp;have
+                052&nbsp;&nbsp;;;&nbsp;looks&nbsp;as&nbsp;though&nbsp;you&#x27;d&nbsp;need&nbsp;a&nbsp;DPhil&nbsp;in&nbsp;JLine&nbsp;to&nbsp;write&nbsp;it,&nbsp;and&nbsp;I&nbsp;don&#x27;t&nbsp;have
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                050&nbsp;&nbsp;;;&nbsp;the&nbsp;time.
+                053&nbsp;&nbsp;;;&nbsp;the&nbsp;time.
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                051&nbsp;&nbsp;
+                054&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                055&nbsp;&nbsp;(defn&nbsp;build-completer
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                052&nbsp;&nbsp;;;&nbsp;(def&nbsp;get-reader
+                056&nbsp;&nbsp;&nbsp;&nbsp;&quot;Build&nbsp;a&nbsp;completer&nbsp;which&nbsp;takes&nbsp;tokens&nbsp;from&nbsp;the&nbsp;oblist.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                053&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;a&nbsp;reader,&nbsp;first&nbsp;constructing&nbsp;it&nbsp;if&nbsp;necessary.
+                057&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                054&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                058&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;This&nbsp;is&nbsp;sort-of&nbsp;working,&nbsp;in&nbsp;as&nbsp;much&nbsp;as&nbsp;hitting&nbsp;&lt;TAB&gt;&nbsp;on&nbsp;a&nbsp;blank&nbsp;line&nbsp;will&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                055&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;is&nbsp;not&nbsp;settled&nbsp;API.&nbsp;The&nbsp;existence&nbsp;and&nbsp;call&nbsp;signature&nbsp;of
+                059&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;show&nbsp;a&nbsp;table&nbsp;of&nbsp;values&nbsp;from&nbsp;the&nbsp;oblist,&nbsp;but&nbsp;hitting&nbsp;&lt;TAB&gt;&nbsp;after&nbsp;you&#x27;ve&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                056&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;this&nbsp;function&nbsp;is&nbsp;not&nbsp;guaranteed&nbsp;in&nbsp;future&nbsp;versions.&quot;
+                060&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;started&nbsp;input&nbsp;does&nbsp;not&nbsp;show&nbsp;potential&nbsp;completions&nbsp;for&nbsp;tokens&nbsp;you&#x27;ve&nbsp;started.&quot;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                057&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;(memoize&nbsp;(fn&nbsp;[]
+                061&nbsp;&nbsp;&nbsp;&nbsp;[]
                 </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                058&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;(let&nbsp;[term&nbsp;(.build&nbsp;(.system&nbsp;(TerminalBuilder&#x2F;builder)&nbsp;true))]
-                </span><br/>
-<span class="not-tracked" title="0 out of 0 forms covered">
-                059&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.build&nbsp;(.terminal&nbsp;(LineReaderBuilder&#x2F;builder)&nbsp;term))))))
+<span class="not-covered" title="0 out of 12 forms covered">
+                062&nbsp;&nbsp;&nbsp;&nbsp;(StringsCompleter.&nbsp;(map&nbsp;#(str&nbsp;(first&nbsp;%))&nbsp;@oblist)))
                 </span><br/>
 <span class="blank" title="0 out of 0 forms covered">
-                060&nbsp;&nbsp;
+                063&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                061&nbsp;&nbsp;;;&nbsp;(defn&nbsp;read-chars
+                064&nbsp;&nbsp;;;&nbsp;This&nbsp;breaks;&nbsp;it&nbsp;is&nbsp;not&nbsp;correctly&nbsp;resolving&nbsp;the&nbsp;Enum,&nbsp;although&nbsp;I&nbsp;can&#x27;t&nbsp;work&nbsp;out
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                062&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&quot;A&nbsp;drop-in&nbsp;replacement&nbsp;for&nbsp;`clojure.core&#x2F;read-line`,&nbsp;except&nbsp;that&nbsp;line&nbsp;editing
+                065&nbsp;&nbsp;;;&nbsp;why&nbsp;not.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                063&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;history&nbsp;should&nbsp;be&nbsp;enabled.
+                066&nbsp;&nbsp;;;&nbsp;(defn&nbsp;build-parser
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                064&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                067&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;[]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                065&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;does&nbsp;not&nbsp;work&nbsp;yet,&nbsp;but&nbsp;it&nbsp;is&nbsp;in&nbsp;the&nbsp;API&nbsp;because&nbsp;I&nbsp;hope&nbsp;
+                068&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;(println&nbsp;&quot;Building&nbsp;parser&quot;)
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                066&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;that&nbsp;it&nbsp;will&nbsp;work&nbsp;later!&quot;
+                069&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;(let&nbsp;[parser&nbsp;(DefaultParser.)]
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                067&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;[]&nbsp;
+                070&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(doall
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                068&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[eddie&nbsp;(get-reader)]
+                071&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.setEofOnUnclosedBracket&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                069&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(loop&nbsp;[s&nbsp;(.readLine&nbsp;eddie)]
+                072&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;parser&nbsp;DefaultParser$Bracket&#x2F;ROUND))))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                073&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                074&nbsp;&nbsp;(def&nbsp;get-reader
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                070&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(and&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\(&quot;&nbsp;s))
+                075&nbsp;&nbsp;&nbsp;&nbsp;&quot;Return&nbsp;a&nbsp;reader,&nbsp;first&nbsp;constructing&nbsp;it&nbsp;if&nbsp;necessary.
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                071&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\)&quot;&nbsp;s)))
+                076&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                072&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\[]&quot;&nbsp;s))
+                077&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;is&nbsp;not&nbsp;settled&nbsp;API.&nbsp;The&nbsp;existence&nbsp;and&nbsp;call&nbsp;signature&nbsp;of
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                073&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\]&quot;&nbsp;s))))
+                078&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;this&nbsp;function&nbsp;is&nbsp;not&nbsp;guaranteed&nbsp;in&nbsp;future&nbsp;versions.&quot;
+                </span><br/>
+<span class="covered" title="3 out of 3 forms covered">
+                079&nbsp;&nbsp;&nbsp;&nbsp;(memoize&nbsp;(fn&nbsp;[]
+                </span><br/>
+<span class="not-covered" title="0 out of 5 forms covered">
+                080&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[term&nbsp;(.build&nbsp;(.system&nbsp;(TerminalBuilder&#x2F;builder)&nbsp;true))
+                </span><br/>
+<span class="not-covered" title="0 out of 2 forms covered">
+                081&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;reader&nbsp;(-&gt;&nbsp;(LineReaderBuilder&#x2F;builder)
+                </span><br/>
+<span class="not-covered" title="0 out of 2 forms covered">
+                082&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.terminal&nbsp;&nbsp;term)
+                </span><br/>
+<span class="not-covered" title="0 out of 3 forms covered">
+                083&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.completer&nbsp;&nbsp;(build-completer))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                074&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s
+                084&nbsp;&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#(.parser&nbsp;%&nbsp;(build-parser))
                 </span><br/>
 <span class="not-tracked" title="0 out of 0 forms covered">
-                075&nbsp;&nbsp;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(str&nbsp;s&nbsp;&quot;&nbsp;&quot;&nbsp;(.readLine&nbsp;eddie)))))))
+                085&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(.build))
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                086&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;apw&nbsp;(AutopairWidgets.&nbsp;reader&nbsp;false)
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                087&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;asw&nbsp;(AutosuggestionWidgets.&nbsp;reader)
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                088&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;]
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                089&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(.enable&nbsp;apw)
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                090&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;;&nbsp;(.enable&nbsp;asw)
+                </span><br/>
+<span class="not-covered" title="0 out of 1 forms covered">
+                091&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;reader))))
+                </span><br/>
+<span class="blank" title="0 out of 0 forms covered">
+                092&nbsp;&nbsp;
+                </span><br/>
+<span class="covered" title="1 out of 1 forms covered">
+                093&nbsp;&nbsp;(defn&nbsp;read-chars
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                094&nbsp;&nbsp;&nbsp;&nbsp;&quot;A&nbsp;drop-in&nbsp;replacement&nbsp;for&nbsp;`clojure.core&#x2F;read-line`,&nbsp;except&nbsp;that&nbsp;line&nbsp;editing
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                095&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;and&nbsp;history&nbsp;should&nbsp;be&nbsp;enabled.
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                096&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                097&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;**NOTE&nbsp;THAT**&nbsp;this&nbsp;does&nbsp;not&nbsp;fully&nbsp;work&nbsp;yet,&nbsp;but&nbsp;it&nbsp;is&nbsp;in&nbsp;the&nbsp;API&nbsp;because&nbsp;I&nbsp;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                098&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;hope&nbsp;that&nbsp;it&nbsp;will&nbsp;work&nbsp;later!&quot;
+                </span><br/>
+<span class="not-tracked" title="0 out of 0 forms covered">
+                099&nbsp;&nbsp;&nbsp;&nbsp;[prompt]
+                </span><br/>
+<span class="not-covered" title="0 out of 3 forms covered">
+                100&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;[eddie&nbsp;(get-reader)]
+                </span><br/>
+<span class="not-covered" title="0 out of 6 forms covered">
+                101&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(loop&nbsp;[s&nbsp;(.readLine&nbsp;eddie&nbsp;(str&nbsp;prompt&nbsp;&quot;&nbsp;&quot;))]
+                </span><br/>
+<span class="not-covered" title="0 out of 12 forms covered">
+                102&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(and&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\(&quot;&nbsp;s))
+                </span><br/>
+<span class="not-covered" title="0 out of 5 forms covered">
+                103&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\)&quot;&nbsp;s)))
+                </span><br/>
+<span class="not-covered" title="0 out of 5 forms covered">
+                104&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(=&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\[]&quot;&nbsp;s))
+                </span><br/>
+<span class="not-covered" title="0 out of 5 forms covered">
+                105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(count&nbsp;(re-seq&nbsp;#&quot;\]&quot;&nbsp;s))))
+                </span><br/>
+<span class="not-covered" title="0 out of 1 forms covered">
+                106&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s
+                </span><br/>
+<span class="not-covered" title="0 out of 1 forms covered">
+                107&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(recur&nbsp;(str&nbsp;s&nbsp;&quot;&nbsp;&quot;&nbsp;(.readLine&nbsp;eddie&nbsp;&quot;::&nbsp;&quot;)))))))
                 </span><br/>
  </body>
 </html>
diff --git a/docs/cloverage/index.html b/docs/cloverage/index.html
index 8f8236c..69296cf 100644
--- a/docs/cloverage/index.html
+++ b/docs/cloverage/index.html
@@ -16,11 +16,11 @@
    </tr></thead>
 <tr>
  <td><a href="beowulf/bootstrap.clj.html">beowulf.bootstrap</a></td><td class="with-bar"><div class="covered"
-                                style="width:63.9344262295082%;
-                                        float:left;"> 624 </div><div class="not-covered"
-                                style="width:36.0655737704918%;
-                                        float:left;"> 352 </div></td>
-<td class="with-number">63.93 %</td>
+                                style="width:64.03688524590164%;
+                                        float:left;"> 625 </div><div class="not-covered"
+                                style="width:35.96311475409836%;
+                                        float:left;"> 351 </div></td>
+<td class="with-number">64.04 %</td>
 <td class="with-bar"><div class="covered"
                                 style="width:59.48275862068966%;
                                         float:left;"> 138 </div><div class="partial"
@@ -33,54 +33,54 @@
 </tr>
 <tr>
  <td><a href="beowulf/cons_cell.clj.html">beowulf.cons-cell</a></td><td class="with-bar"><div class="covered"
-                                style="width:72.34927234927235%;
-                                        float:left;"> 348 </div><div class="not-covered"
-                                style="width:27.65072765072765%;
-                                        float:left;"> 133 </div></td>
-<td class="with-number">72.35 %</td>
+                                style="width:76.0914760914761%;
+                                        float:left;"> 366 </div><div class="not-covered"
+                                style="width:23.908523908523907%;
+                                        float:left;"> 115 </div></td>
+<td class="with-number">76.09 %</td>
 <td class="with-bar"><div class="covered"
-                                style="width:75.17241379310344%;
-                                        float:left;"> 109 </div><div class="partial"
+                                style="width:78.62068965517241%;
+                                        float:left;"> 114 </div><div class="partial"
                                 style="width:6.206896551724138%;
                                         float:left;"> 9 </div><div class="not-covered"
-                                style="width:18.620689655172413%;
-                                        float:left;"> 27 </div></td>
-<td class="with-number">81.38 %</td>
+                                style="width:15.172413793103448%;
+                                        float:left;"> 22 </div></td>
+<td class="with-number">84.83 %</td>
 <td class="with-number">274</td><td class="with-number">23</td><td class="with-number">145</td>
 </tr>
 <tr>
  <td><a href="beowulf/core.clj.html">beowulf.core</a></td><td class="with-bar"><div class="covered"
-                                style="width:69.47368421052632%;
-                                        float:left;"> 198 </div><div class="not-covered"
-                                style="width:30.526315789473685%;
-                                        float:left;"> 87 </div></td>
-<td class="with-number">69.47 %</td>
+                                style="width:73.94366197183099%;
+                                        float:left;"> 210 </div><div class="not-covered"
+                                style="width:26.056338028169016%;
+                                        float:left;"> 74 </div></td>
+<td class="with-number">73.94 %</td>
 <td class="with-bar"><div class="covered"
-                                style="width:72.46376811594203%;
-                                        float:left;"> 50 </div><div class="partial"
-                                style="width:5.797101449275362%;
-                                        float:left;"> 4 </div><div class="not-covered"
-                                style="width:21.73913043478261%;
-                                        float:left;"> 15 </div></td>
-<td class="with-number">78.26 %</td>
+                                style="width:78.26086956521739%;
+                                        float:left;"> 54 </div><div class="partial"
+                                style="width:2.898550724637681%;
+                                        float:left;"> 2 </div><div class="not-covered"
+                                style="width:18.840579710144926%;
+                                        float:left;"> 13 </div></td>
+<td class="with-number">81.16 %</td>
 <td class="with-number">132</td><td class="with-number">6</td><td class="with-number">69</td>
 </tr>
 <tr>
  <td><a href="beowulf/host.clj.html">beowulf.host</a></td><td class="with-bar"><div class="covered"
-                                style="width:42.77384423157018%;
-                                        float:left;"> 1027 </div><div class="not-covered"
-                                style="width:57.22615576842982%;
-                                        float:left;"> 1374 </div></td>
-<td class="with-number">42.77 %</td>
+                                style="width:46.61776691116545%;
+                                        float:left;"> 1144 </div><div class="not-covered"
+                                style="width:53.38223308883455%;
+                                        float:left;"> 1310 </div></td>
+<td class="with-number">46.62 %</td>
 <td class="with-bar"><div class="covered"
-                                style="width:53.72549019607843%;
-                                        float:left;"> 137 </div><div class="partial"
-                                style="width:14.509803921568627%;
+                                style="width:61.97718631178707%;
+                                        float:left;"> 163 </div><div class="partial"
+                                style="width:14.068441064638783%;
                                         float:left;"> 37 </div><div class="not-covered"
-                                style="width:31.764705882352942%;
-                                        float:left;"> 81 </div></td>
-<td class="with-number">68.24 %</td>
-<td class="with-number">571</td><td class="with-number">66</td><td class="with-number">255</td>
+                                style="width:23.954372623574145%;
+                                        float:left;"> 63 </div></td>
+<td class="with-number">76.05 %</td>
+<td class="with-number">588</td><td class="with-number">67</td><td class="with-number">263</td>
 </tr>
 <tr>
  <td><a href="beowulf/interop.clj.html">beowulf.interop</a></td><td class="with-bar"><div class="covered"
@@ -107,14 +107,14 @@
                                         float:left;"> 181 </div></td>
 <td class="with-number">43.96 %</td>
 <td class="with-bar"><div class="covered"
-                                style="width:46.478873239436616%;
+                                style="width:45.833333333333336%;
                                         float:left;"> 33 </div><div class="partial"
-                                style="width:8.450704225352112%;
+                                style="width:8.333333333333334%;
                                         float:left;"> 6 </div><div class="not-covered"
-                                style="width:45.070422535211264%;
-                                        float:left;"> 32 </div></td>
-<td class="with-number">54.93 %</td>
-<td class="with-number">171</td><td class="with-number">12</td><td class="with-number">71</td>
+                                style="width:45.833333333333336%;
+                                        float:left;"> 33 </div></td>
+<td class="with-number">54.17 %</td>
+<td class="with-number">171</td><td class="with-number">12</td><td class="with-number">72</td>
 </tr>
 <tr>
  <td><a href="beowulf/manual.clj.html">beowulf.manual</a></td><td class="with-bar"><div class="covered"
@@ -134,7 +134,7 @@
 <tr>
  <td><a href="beowulf/oblist.clj.html">beowulf.oblist</a></td><td class="with-bar"><div class="covered"
                                 style="width:100.0%;
-                                        float:left;"> 9 </div></td>
+                                        float:left;"> 11 </div></td>
 <td class="with-number">100.00 %</td>
 <td class="with-bar"><div class="covered"
                                 style="width:100.0%;
@@ -144,31 +144,35 @@
 </tr>
 <tr>
  <td><a href="beowulf/read.clj.html">beowulf.read</a></td><td class="with-bar"><div class="covered"
-                                style="width:49.43181818181818%;
-                                        float:left;"> 87 </div><div class="not-covered"
-                                style="width:50.56818181818182%;
-                                        float:left;"> 89 </div></td>
-<td class="with-number">49.43 %</td>
+                                style="width:54.36893203883495%;
+                                        float:left;"> 112 </div><div class="not-covered"
+                                style="width:45.63106796116505%;
+                                        float:left;"> 94 </div></td>
+<td class="with-number">54.37 %</td>
 <td class="with-bar"><div class="covered"
-                                style="width:53.84615384615385%;
-                                        float:left;"> 21 </div><div class="partial"
-                                style="width:7.6923076923076925%;
+                                style="width:61.702127659574465%;
+                                        float:left;"> 29 </div><div class="partial"
+                                style="width:6.382978723404255%;
                                         float:left;"> 3 </div><div class="not-covered"
-                                style="width:38.46153846153846%;
+                                style="width:31.914893617021278%;
                                         float:left;"> 15 </div></td>
-<td class="with-number">61.54 %</td>
-<td class="with-number">108</td><td class="with-number">9</td><td class="with-number">39</td>
+<td class="with-number">68.09 %</td>
+<td class="with-number">120</td><td class="with-number">10</td><td class="with-number">47</td>
 </tr>
 <tr>
  <td><a href="beowulf/reader/char_reader.clj.html">beowulf.reader.char-reader</a></td><td class="with-bar"><div class="covered"
-                                style="width:100.0%;
-                                        float:left;"> 1 </div></td>
-<td class="with-number">100.00 %</td>
+                                style="width:10.0%;
+                                        float:left;"> 7 </div><div class="not-covered"
+                                style="width:90.0%;
+                                        float:left;"> 63 </div></td>
+<td class="with-number">10.00 %</td>
 <td class="with-bar"><div class="covered"
-                                style="width:100.0%;
-                                        float:left;"> 1 </div></td>
-<td class="with-number">100.00 %</td>
-<td class="with-number">75</td><td class="with-number">4</td><td class="with-number">1</td>
+                                style="width:26.31578947368421%;
+                                        float:left;"> 5 </div><div class="not-covered"
+                                style="width:73.6842105263158%;
+                                        float:left;"> 14 </div></td>
+<td class="with-number">26.32 %</td>
+<td class="with-number">107</td><td class="with-number">6</td><td class="with-number">19</td>
 </tr>
 <tr>
  <td><a href="beowulf/reader/generate.clj.html">beowulf.reader.generate</a></td><td class="with-bar"><div class="covered"
@@ -232,9 +236,9 @@
 </tr>
 <tr><td>Totals:</td>
 <td class="with-bar"></td>
-<td class="with-number">64.63 %</td>
+<td class="with-number">65.64 %</td>
 <td class="with-bar"></td>
-<td class="with-number">74.41 %</td>
+<td class="with-number">75.70 %</td>
    </tr>
   </table>
  </body>
diff --git a/resources/lisp1.5.lsp b/resources/lisp1.5.lsp
index e56bc7d..09bf054 100644
--- a/resources/lisp1.5.lsp
+++ b/resources/lisp1.5.lsp
@@ -170,6 +170,7 @@
       (COND
         ((NULL X) (U))
         ((EQ (CAR X) Y) (CDR X)) (T (PROP (CDR X) Y U)))))
+  (PUT 32767 SUBR (BEOWULF HOST PUT))
   (QUOTE 32767 EXPR (LAMBDA (X) X))
   (QUOTIENT 32767 SUBR (BEOWULF HOST QUOTIENT))
   (RANGE
diff --git a/src/beowulf/core.clj b/src/beowulf/core.clj
index dacedef..74131ff 100644
--- a/src/beowulf/core.clj
+++ b/src/beowulf/core.clj
@@ -53,7 +53,8 @@
                  (.canRead (io/file %)))
                "Could not find sysout file"]]
    ["-s" "--strict" "Strictly interpret the Lisp 1.5 language, without extensions."]
-   ["-t" "--time" "Time evaluations."]])
+   ["-t" "--time" "Time evaluations."]
+   ["-x" "--testing" "Disable the jline reader - useful when piping input."]])
 
 (defn- re 
   "Like REPL, but it isn't a loop and doesn't print."
diff --git a/src/beowulf/host.clj b/src/beowulf/host.clj
index 48f622d..56fae9a 100644
--- a/src/beowulf/host.clj
+++ b/src/beowulf/host.clj
@@ -91,22 +91,21 @@
   (cond
     (= l NIL) NIL
     (empty? path) l
-    :else
-    (try
-      (case (last path)
-        \a (uaf (.first l) (butlast path))
-        \d (uaf (.getCdr l) (butlast path))
-        (throw (ex-info (str "uaf: unexpected letter in path (only `a` and `d` permitted): " (last path))
-                        {:cause  :uaf
-                         :detail :unexpected-letter
-                         :expr   (last path)})))
-      (catch ClassCastException e
-        (throw (ex-info
-                (str "uaf: Not a LISP list? " (type l))
-                {:cause  :uaf
-                 :detail :not-a-lisp-list
-                 :expr   l}
-                e))))))
+    (not (instance? ConsCell l)) (throw (ex-info (str "Ne liste: "
+                                                      l "; " (type l))
+                                                 {:phase :eval
+                                                  :function "universal access function"
+                                                  :args [l path]
+                                                  :type :beowulf}))
+    :else (case (last path)
+            \a (uaf (.first l) (butlast path))
+            \d (uaf (.getCdr l) (butlast path))
+            (throw (ex-info (str "uaf: unexpected letter in path (only `a` and `d` permitted): "
+                                 (last path))
+                            {:phase :eval
+                             :function "universal access function"
+                             :args [l path]
+                             :type :beowulf})))))
 
 (defmacro CAAR [x] `(uaf ~x '(\a \a)))
 (defmacro CADR [x] `(uaf ~x '(\a \d)))
@@ -433,6 +432,21 @@
   "The unexplained magic number which marks the start of a property list."
   (Integer/parseInt "77777" 8))
 
+(defn hit-or-miss-assoc
+  "Find the position of the binding of this `target` in a Lisp 1.5 
+   property list `plist`.
+   
+   Lisp 1.5 property lists are not assoc lists, but lists of the form
+   `(name value name value name value...)`. It's therefore necessary to
+   recurse down the list two entries at a time to avoid confusing names
+   with values."
+  [target plist]
+  (if (and (instance? ConsCell plist)(even? (count plist)))
+    (cond (= plist NIL) NIL
+          (= (first plist) target) plist
+          :else (hit-or-miss-assoc target (CDDR plist)))
+    NIL))
+
 (defn PUT
   "Put this `value` as the value of the property indicated by this `indicator` 
    of this `symbol`. Return `value` on success.
@@ -440,22 +454,25 @@
    NOTE THAT there is no `PUT` defined in the manual, but it would have been 
    easy to have defined it so I don't think this fully counts as an extension."
   [symbol indicator value]
-  (if-let [binding (ASSOC symbol @oblist)]
-    (if-let [prop (ASSOC indicator (CDDR binding))]
-      (RPLACD prop value)
-      (RPLACD binding
-              (make-cons-cell
-               magic-marker
-               (make-cons-cell
-                indicator
-                (make-cons-cell value (CDDR binding))))))
-    (swap!
-     oblist
-     (fn [ob s p v]
-       (make-cons-cell
-        (make-beowulf-list (list s magic-marker p v))
-        ob))
-     symbol indicator value)))
+  (let [binding (ASSOC symbol @oblist)]
+    (if (instance? ConsCell binding)
+      (let [prop (hit-or-miss-assoc indicator (CDDR binding))]
+        (if (instance? ConsCell prop)
+          (RPLACA (CDR prop) value)
+          (RPLACD binding
+                  (make-cons-cell
+                   magic-marker
+                   (make-cons-cell
+                    indicator
+                    (make-cons-cell value (CDDR binding)))))))
+      (swap!
+       oblist
+       (fn [ob s p v]
+         (make-cons-cell
+          (make-beowulf-list (list s magic-marker p v))
+          ob))
+       symbol indicator value)))
+  value)
 
 (defn GET
   "From the manual:
diff --git a/src/beowulf/oblist.clj b/src/beowulf/oblist.clj
index 38aa999..8769b7f 100644
--- a/src/beowulf/oblist.clj
+++ b/src/beowulf/oblist.clj
@@ -41,5 +41,5 @@
 
 (def ^:dynamic *options*
   "Command line options from invocation."
-  {})
+  {:testing true})
 
diff --git a/src/beowulf/read.clj b/src/beowulf/read.clj
index 38860dc..8ed736a 100644
--- a/src/beowulf/read.clj
+++ b/src/beowulf/read.clj
@@ -83,16 +83,28 @@
              (throw (ex-info "Ne can forstande " (assoc parse-tree :source source))))
       (generate (simplify parse-tree)))))
 
-(defn read-from-console
-  "Attempt to read a complete lisp expression from the console."
-  [prompt]
-  (loop [r (read-chars prompt)]
-    (if (and (= (count (re-seq #"\(" r))
-           (count (re-seq #"\)" r)))
+(defn- dummy-read-chars [prompt]
+  (loop [r "" p prompt]
+    (if (and (seq r)
+             (= (count (re-seq #"\(" r))
+                (count (re-seq #"\)" r)))
              (= (count (re-seq #"\[" r))
                 (count (re-seq #"\]" r))))
       r
-      (recur (str r "\n" (read-chars ""))))))
+      (do
+        (print (str p " "))
+        (flush)
+        (recur (str r "\n" (read-line)) "::")))))
+
+(defn read-from-console
+  "Attempt to read a complete lisp expression from the console.
+   
+   There's a major problem here that the read-chars reader messes up testing.
+   We need to be able to disable it while testing!"
+  [prompt]
+  (if (:testing *options*)
+    (dummy-read-chars prompt)
+    (read-chars prompt)))
 
 (defn READ
   "An implementation of a Lisp reader sufficient for bootstrapping; not necessarily
diff --git a/test/beowulf/core_test.clj b/test/beowulf/core_test.clj
index 81cb86b..9c2029f 100644
--- a/test/beowulf/core_test.clj
+++ b/test/beowulf/core_test.clj
@@ -1,8 +1,9 @@
 (ns beowulf.core-test
-  (:require [clojure.java.io :refer [reader]]
-            [clojure.string :refer [split]]
-            [clojure.test :refer [deftest is testing]]
-            [beowulf.core :refer [-main repl stop-word]]))
+  (:require [beowulf.core :refer [-main repl stop-word]]
+            [beowulf.oblist :refer [*options*]]
+            [clojure.java.io :refer [reader]]
+            [clojure.string :refer [split starts-with?]]
+            [clojure.test :refer [deftest is testing]]))
 
 ;; (deftest a-test
 ;;   (testing "FIXME, I fail."
@@ -20,45 +21,43 @@
 (deftest repl-tests
   (testing "quit functionality"
     (with-open [r (reader (string->stream stop-word))]
-      (binding [*in* r]
+      (binding [clojure.core/*in* r
+                *options* (assoc *options* :testing true)]
         (is (thrown-with-msg? Exception #"\nFærwell!" (repl "")))))
-
     (let [expected nil
           actual (with-open [r (reader (string->stream stop-word))]
                    (binding [*in* r]
-                     (-main)))]
+                     (-main "--testing")))]
       (is (= actual expected)))))
 
-;; TODO: not working because STOP is not being recognised, but I haven't
-;; worked out why not yet. It *did* work.
-
+;; The new read-chars interface is really messing with this. Need to sort out!
+;; OK, binding `:testing` doesn't work because `*options*` gets rebound in main.
+;; Need to be able to pass in a testing flag as argument to -main
 (deftest flag-tests
-  (testing "No flags"
+  (testing "Only testing flag"
     (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
           expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
           expected-result #".*\(3 \. 4\)"
           expected-prompt "Sprecan:: "
           expected-signoff "Færwell!"
           ;; anticipated output (note blank lines):
-          
-          ; Hider wilcuman. Béowulf is mín nama.
-          
-          ; Sprecan 'STOP' tó laéfan
-          
-          ; Sprecan:: >  (3 . 4)
-          ; Sprecan:: 
-          ; Færwell!
+
+          ;; Hider wilcuman. Béowulf is mín nama.
+
+          ;; Sprecan 'STOP' tó laéfan
+
+          ;; Sprecan:: >  (3 . 4)
+          ;; Sprecan:: 
+          ;; Færwell!
           [_ greeting _ _ quit-message _ result prompt signoff]
           (with-open [r (reader (string->stream (str "cons[3; 4]\n" stop-word)))]
             (binding [*in* r]
-              (split (with-out-str (-main)) #"\n")))]
+              (split (with-out-str (-main "--testing")) #"\n")))]
       (is (= greeting expected-greeting))
-      ; (is (= error expected-error))
       (is (re-matches expected-result result))
       (is (= quit-message expected-quit-message))
       (is (= prompt expected-prompt))
-      (is (= signoff expected-signoff))
-      ))
+      (is (= signoff expected-signoff))))
   (testing "unknown flag"
     (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
           expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
@@ -69,115 +68,63 @@
           [_ greeting _ error quit-message _ result prompt signoff]
           (with-open [r (reader (string->stream (str "cons[5; 6]\n" stop-word)))]
             (binding [*in* r]
-              (split (with-out-str (-main "--unknown")) #"\n")))]
+              (split (with-out-str (-main "--unknown" "--testing")) #"\n")))]
       (is (= greeting expected-greeting))
       (is (re-matches expected-error error))
       (is (re-matches expected-result result))
       (is (= quit-message expected-quit-message))
       (is (= prompt expected-prompt))
-      (is (= signoff expected-signoff))
-      ))
-  ; (testing "help"
-  ;   (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
-  ;         expected-h1 "  -h, --help"
-  ;         expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
-  ;         expected-result #".*\(A \. B\)"
-  ;         expected-prompt "Sprecan:: "
-  ;         expected-signoff "Færwell!"
-  ;         [_ greeting _ h1 _ _ _ _ quit-message _ result prompt signoff]
-  ;         (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
-  ;                  (binding [*in* r]
-  ;                    (split (with-out-str (-main "--help")) #"\n")))]
-  ;     (is (= greeting expected-greeting))
-  ;     (is (= h1 expected-h1))
-  ;     (is (re-matches expected-result result))
-  ;     (is (= quit-message expected-quit-message))
-  ;     (is (= prompt expected-prompt))
-  ;     (is (= signoff expected-signoff))
-  ;     ))
-  ; (testing "prompt"
-  ;   (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
-  ;         expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
-  ;         expected-error ""
-  ;         expected-result #".*\(A \. B\).*"
-  ;         expected-prompt "? "
-  ;         expected-signoff "Færwell!"
-  ;         [_ greeting _ error quit-message _ result prompt signoff]
-  ;         (with-open [r (reader (string->stream (str stop-word)))]
-  ;           (binding [*in* r]
-  ;             (split (with-out-str (-main "--prompt" "?")) #"\n")))]
-  ;     (is (= greeting expected-greeting))
-  ;     (is (= error expected-error))
-  ;     (is (re-matches expected-result result ))
-  ;     (is (= quit-message expected-quit-message))
-  ;     (is (= prompt expected-prompt))
-  ;     (is (= signoff expected-signoff))
-  ;     ))
-  ; (testing "read - file not found"
-  ;   (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
-  ;         expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
-  ;         expected-error #"Failed to validate.*"
-  ;         expected-result #".*\(A \. B\)"
-  ;         expected-prompt "Sprecan:: "
-  ;         expected-signoff "Færwell!"
-  ;         [_ greeting _ error quit-message _ result prompt signoff]
-  ;         (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
-  ;           (binding [*in* r]
-  ;             (split (with-out-str (-main "--read" "froboz")) #"\n")))]
-  ;     (is (= greeting expected-greeting))
-  ;     (is (re-matches expected-error error))
-  ;     (is (re-matches expected-result result))
-  ;     (is (= quit-message expected-quit-message))
-  ;     (is (= prompt expected-prompt))
-  ;     (is (= signoff expected-signoff))
-  ;     ))
-  ; (testing "read - file found"
-  ;   ;; TODO: there's no feedback from this because the initfile
-  ;   ;; is not yet read. This will change
-  ;   (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
-  ;         expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
-  ;         expected-error ""
-  ;         expected-result #".*\(A \. B\)"
-  ;         expected-prompt "Sprecan:: "
-  ;         expected-signoff "Færwell!"
-  ;         [_ greeting error quit-message _ _ result prompt signoff]
-  ;         (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
-  ;           (binding [*in* r]
-  ;             (split (with-out-str (-main "--read" "README.md")) #"\n")))]
-  ;     (is (= greeting expected-greeting))
-  ;     (is (= error expected-error))
-  ;     (is (re-matches expected-result result))
-  ;     (is (= quit-message expected-quit-message))
-  ;     (is (= prompt expected-prompt))
-  ;     (is (= signoff expected-signoff))
-  ;     ))
-  ; (testing "strict"
-  ;   (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
-  ;         expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
-  ;         expected-error ""
-  ;         expected-result #".*Cannot parse meta expressions in strict mode.*"
-  ;         expected-prompt "Sprecan:: "
-  ;         expected-signoff "Færwell!"
-  ;         [_ greeting _ error quit-message _ result prompt signoff]
-  ;         (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
-  ;           (binding [*in* r]
-  ;             (split (with-out-str (-main "--strict")) #"\n")))]
-  ;     (is (= greeting expected-greeting))
-  ;     (is (= error expected-error))
-  ;     (is (re-matches expected-result result ))
-  ;     (is (= quit-message expected-quit-message))
-  ;     (is (= prompt expected-prompt))
-  ;     (is (= signoff expected-signoff))
-  ;     ))
-  ; ; (testing "trace"
-  ;   (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
-  ;         expected-error ""
-  ;         expected-trace #".*traced-eval.*"
-  ;         [_ greeting _ error _ _ trace & _]
-  ;         (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
-  ;           (binding [*in* r]
-  ;             (split (with-out-str (-main "--trace")) #"\n")))]
-  ;     (is (= greeting expected-greeting))
-  ;     (is (= error expected-error))
-  ;     (is (re-matches expected-trace trace))
-)
\ No newline at end of file
+      (is (= signoff expected-signoff))))
+;; ;; TODO: not working because STOP is not being recognised, but I haven't
+;; ;; worked out why not yet. It *did* work.
+
+;; Hider wilcuman. Béowulf is mín nama.
+;;   -f FILEPATH, --file-path FILEPATH               Set the path to the directory for reading and writing Lisp files.
+;;   -h, --help
+;;   -p PROMPT, --prompt PROMPT         Sprecan::    Set the REPL prompt to PROMPT
+;;   -r SYSOUTFILE, --read SYSOUTFILE   lisp1.5.lsp  Read Lisp system from file SYSOUTFILE
+;;   -s, --strict                                    Strictly interpret the Lisp 1.5 language, without extensions.
+;;   -t, --time                                      Time evaluations.
+;;   -x, --testing                                   Disable the jline reader - useful when piping input.
+;; Sprecan 'STOP' tó laéfan
+
+;; Sprecan:: 
+
+  (testing "help"
+    (let [expected-greeting "Hider wilcuman. Béowulf is mín nama."
+          expected-h1 "  -h, --help"
+          expected-quit-message (str "Sprecan '" stop-word "' tó laéfan")
+          expected-result #".*\(A \. B\)"
+          expected-prompt "Sprecan:: "
+          expected-signoff "Færwell!"
+          [_ greeting _ _ h1 _ _ _ _ _ quit-message _ result prompt signoff]
+          (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
+            (binding [*in* r]
+              (split (with-out-str (-main "--help" "--testing")) #"\n")))]
+      (is (= greeting expected-greeting))
+      (is (= h1 expected-h1))
+      (is (re-matches expected-result result))
+      (is (= quit-message expected-quit-message))
+      (is (starts-with? prompt expected-prompt))
+      (is (= signoff expected-signoff))))
+  (testing "prompt"
+    (let [expected-prompt "? "
+          [_ _ _ _ _ _ prompt _]
+          (with-open [r (reader (string->stream stop-word))]
+            (binding [*in* r]
+              (split (with-out-str (-main "--prompt" "?" "--testing")) #"\n")))]
+      (is (= prompt expected-prompt))))
+   (testing "read - file not found"
+     (let [expected-error #"Failed to validate.*"
+           [_ _ _ error _ _ _ _ _]
+           (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
+             (binding [*in* r]
+               (split (with-out-str (-main "--testing" "--read" "froboz")) #"\n")))]
+       (is (re-matches expected-error error))))
+   (testing "strict"
+     (let [expected-result #".*Cannot parse meta expressions in strict mode.*"
+           [_ _ _ _ _ _ result _ _]
+           (with-open [r (reader (string->stream (str "cons[A; B]\n" stop-word)))]
+             (binding [*in* r]
+               (split (with-out-str (-main "--strict" "--testing")) #"\n")))]
+       (is (re-matches expected-result result )))))
diff --git a/test/beowulf/host_test.clj b/test/beowulf/host_test.clj
index 7e5e1ff..5f73ea8 100644
--- a/test/beowulf/host_test.clj
+++ b/test/beowulf/host_test.clj
@@ -1,9 +1,21 @@
 (ns beowulf.host-test
-  (:require [clojure.test :refer [deftest is testing]]
-            [beowulf.cons-cell :refer [F make-beowulf-list T]] 
-            [beowulf.host :refer [CDR DIFFERENCE NUMBERP PLUS RPLACA RPLACD TIMES]]
+  (:require [beowulf.cons-cell :refer [F make-beowulf-list T]]
+            [beowulf.host :refer [CDR DIFFERENCE GENSYM GET NUMBERP PLUS PUT
+                                  RPLACA RPLACD TIMES]]
+            [beowulf.io :refer [SYSIN]]
             [beowulf.oblist :refer [NIL]]
-            [beowulf.read :refer [gsp]]))
+            [beowulf.read :refer [gsp]]
+            [clojure.test :refer [deftest is testing use-fixtures]]))
+
+(use-fixtures :once (fn [f]
+                      (try (when (SYSIN "resources/lisp1.5.lsp")
+                             (f))
+                           (catch Throwable any
+                             (throw (ex-info "Failed to load Lisp sysout"
+                                             {:phase test
+                                              :function 'SYSIN
+                                              :file "resources/lisp1.5.lsp"}
+                                             any))))))
 
 (deftest destructive-change-test
   (testing "RPLACA"
@@ -64,7 +76,8 @@
     (let [expected 6
           actual (TIMES 2 3)]
       (is (= actual expected))))
-  (testing DIFFERENCE
+  (testing "DIFFERENCE"
     (let [expected -1
           actual (DIFFERENCE 1 2)]
       (is (= actual expected)))))
+
diff --git a/test/beowulf/lisp_test.clj b/test/beowulf/lisp_test.clj
index 7d9fa64..5095999 100644
--- a/test/beowulf/lisp_test.clj
+++ b/test/beowulf/lisp_test.clj
@@ -1,11 +1,11 @@
 (ns beowulf.lisp-test
   "The idea here is to test actual Lisp functions"
-  (:require [clojure.test :refer [deftest testing is use-fixtures]]
-            [beowulf.bootstrap :refer [EVAL]]
+  (:require [beowulf.bootstrap :refer [EVAL]]
             [beowulf.cons-cell :refer [make-beowulf-list]]
-            [beowulf.io :refer [SYSIN]]
-            ;; [beowulf.oblist :refer [NIL]]
-            [beowulf.read :refer [READ]]))
+            [beowulf.io :refer [SYSIN]] ;; [beowulf.oblist :refer [NIL]]
+            [beowulf.oblist :refer [NIL]]
+            [beowulf.read :refer [READ]]
+            [clojure.test :refer [deftest is testing use-fixtures]]))
 
 (defn- reps
   "'Read eval print string', or 'read eval print single'.
@@ -165,4 +165,42 @@
     (SETQ X (ADD1 X))
     (COND ((EQ X 5) (RETURN X))
         (T (GO START))))")]
-      (is (= actual expected)))))
\ No newline at end of file
+      (is (= actual expected)))))
+
+
+(deftest put-get-tests
+  (let [symbol 'TESTSYMBOL
+        p1 'TESTPROPONE
+        p2 'TESTPROPTWO]
+    (testing "GET - property should be missing"
+      (let [expected "NIL"
+            actual (reps "(GET 'TESTSYMBOL 'TESTPROPONE)")]
+        (is (= actual expected))))
+    (testing "PUT and GET: value of new property; change value of property"
+      (let [prop (reps "(GENSYM)")
+            val1 (reps "(GENSYM)")
+            val2 (reps "(GENSYM)")
+            expected1 val1
+            actual1 (when (reps (str "(PUT '" symbol " '" prop " '" val1 ")"))
+                      (reps (str "(GET '" symbol " '" prop ")")))
+            expected2 val2
+            actual2 (when (reps (str "(PUT '" symbol " '" prop " '" val2 ")"))
+                      (reps (str "(GET '" symbol " '" prop ")")))]
+        (is (not= val1 val2))
+        (is (= actual1 expected1) "The value set can be retrieved.")
+        (is (= actual2 expected2) "The value is changed.")))
+    (testing "PUT and GET: different properties have independent values"
+      (let [val1 (reps "(GENSYM)")
+            val2 (reps "(GENSYM)")
+            expected1 val1
+            actual1 (when (reps (str "(PUT '" symbol " '" p1 " '" val1 ")"))
+                      (reps (str "(GET '" symbol " '" p1 ")")))
+            expected2 val2
+            actual2 (when (reps (str "(PUT '" symbol " '" p2 " '" val2 ")"))
+                      (reps (str "(GET '" symbol " '" p2 ")")))
+            expected3 val1
+            actual3 (reps (str "(GET '" symbol " '" p1 ")"))]
+        (is (not= val1 val2))
+        (is (= actual1 expected1) "The value set can be retrieved.")
+        (is (= actual2 expected2) "Values are independent.")
+        (is (= actual3 expected3) "Setting a second property does not obliterate the first.")))))
\ No newline at end of file