diff --git a/docs/cloverage/beowulf/host.clj.html b/docs/cloverage/beowulf/host.clj.html
index 6437d2b..e11a000 100644
--- a/docs/cloverage/beowulf/host.clj.html
+++ b/docs/cloverage/beowulf/host.clj.html
@@ -130,19 +130,19 @@
042 [symbol]
-
+
043 (when (:strict *options*)
-
+
044 (throw (ex-info (format "%s ne āfand innan Lisp 1.5" symbol)
-
+
045 {:type :strict
046 :phase :host
-
+
047 :function symbol})))
@@ -283,19 +283,19 @@
093 (empty? path) l
-
+
094 (not (instance? ConsCell l)) (throw (ex-info (str "Ne liste: "
-
+
095 l "; " (type l))
-
+
096 {:phase :eval
097 :function "universal access function"
-
+
098 :args [l path]
@@ -310,19 +310,19 @@
102 \d (uaf (.getCdr l) (butlast path))
-
+
103 (throw (ex-info (str "uaf: unexpected letter in path (only `a` and `d` permitted): "
-
+
104 (last path))
-
+
105 {:phase :eval
106 :function "universal access function"
-
+
107 :args [l path]
@@ -568,7 +568,7 @@
188 (if
-
+
189 (or
@@ -580,7 +580,7 @@
192 (symbol? value)
-
+
193 (= value NIL))
@@ -619,13 +619,13 @@
205 any))))
-
+
206 (throw (ex-info
-
+
207 (str "Un-ġefōg þing in RPLACD: `" value "` (" (type value) ")")
-
+
208 {:cause :bad-value
@@ -634,19 +634,19 @@
210 :function :rplacd
-
+
211 :args (list cell value)
212 :type :beowulf})))
-
+
213 (throw (ex-info
-
+
214 (str "Uncynlic miercels in RPLACD: `" cell "` (" (type cell) ")")
-
+
215 {:cause :bad-cell
@@ -655,7 +655,7 @@
217 :detail :rplacd
-
+
218 :args (list cell value)
@@ -682,7 +682,7 @@
226
-
+
227 (defmacro NULL
@@ -691,13 +691,13 @@
229 [x]
-
+
230 `(if (= ~x NIL) T F))
231
-
+
232 (defmacro NILP
@@ -706,7 +706,7 @@
234 [x]
-
+
235 `(if (= ~x NIL) T NIL))
@@ -847,13 +847,13 @@
281 ;; (println " filtered: " (seq (filter #{F NIL} args)))
-
+
282 (cond (= NIL args) T
283 (seq? args) (if (seq (filter #{F NIL} args)) F T)
-
+
284 :else T))
@@ -889,13 +889,13 @@
295 ;; (println " filtered: " (seq (remove #{F NIL} args)))
-
+
296 (cond (= NIL args) F
-
+
297 (seq? args) (if (seq (remove #{F NIL} args)) T F)
-
+
298 :else F))
@@ -1078,7 +1078,7 @@
358 (let [p (apply * args)]
-
+
359 (if (integer? p) p (float p))))
@@ -1093,7 +1093,7 @@
363 (let [d (- x y)]
-
+
364 (if (integer? d) d (float d))))
@@ -1153,7 +1153,7 @@
383 [x]
-
+
384 (dec x))
@@ -1165,7 +1165,7 @@
387 [x]
-
+
388 (if (integer? x) T F))
@@ -1189,7 +1189,7 @@
395 [x y]
-
+
396 (if (< x y) T F))
@@ -1201,7 +1201,7 @@
399 [x y]
-
+
400 (if (> x y) T F))
@@ -1237,7 +1237,7 @@
411 [& args]
-
+
412 (throw (ex-info "LISP STÆFLEAHTER" {:args args
@@ -1249,7 +1249,7 @@
415 :type :lisp
-
+
416 :code (or (first args) 'A1)})))
@@ -1334,7 +1334,7 @@
443 [target plist]
- 444 (if (and (instance? ConsCell plist)(even? (count plist)))
+ 444 (if (and (instance? ConsCell plist) (even? (count plist)))
445 (cond (= plist NIL) NIL
@@ -1558,215 +1558,218 @@
518 [a-list indicator]
-
- 519 (map
+
+ 519 (doall
-
- 520 #(PUT (CAR %) indicator (CDR %))
+
+ 520 (map
+
+
+ 521 #(when (PUT (CAR %) indicator (CDR %)) (CAR %))
- 521 a-list))
+ 522 a-list)))
- 522
+ 523
- 523 (defn DEFINE
+ 524 (defn DEFINE
- 524 "Bootstrap-only version of `DEFINE` which, post boostrap, can be overwritten
+ 525 "Bootstrap-only version of `DEFINE` which, post boostrap, can be overwritten
- 525 in LISP.
+ 526 in LISP.
- 526
+ 527
- 527 The single argument to `DEFINE` should be an association list of symbols to
+ 528 The single argument to `DEFINE` should be an association list of symbols to
- 528 lambda functions. See page 58 of the manual."
+ 529 lambda functions. See page 58 of the manual."
- 529 [a-list]
+ 530 [a-list]
- 530 (DEFLIST a-list 'EXPR))
+ 531 (DEFLIST a-list 'EXPR))
- 531
+ 532
- 532 (defn SET
+ 533 (defn SET
- 533 "Implementation of SET in Clojure. Add to the `oblist` a binding of the
+ 534 "Implementation of SET in Clojure. Add to the `oblist` a binding of the
- 534 value of `var` to the value of `val`. NOTE WELL: this is not SETQ!"
+ 535 value of `var` to the value of `val`. NOTE WELL: this is not SETQ!"
- 535 [symbol val]
+ 536 [symbol val]
- 536 (PUT symbol 'APVAL val))
+ 537 (PUT symbol 'APVAL val))
- 537
+ 538
- 538 ;;;; TRACE and friends ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ 539 ;;;; TRACE and friends ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 539
+ 540
- 540 (def traced-symbols
+ 541 (def traced-symbols
- 541 "Symbols currently being traced."
+ 542 "Symbols currently being traced."
- 542 (atom #{}))
+ 543 (atom #{}))
- 543
+ 544
- 544 (defn traced?
+ 545 (defn traced?
- 545 "Return `true` iff `s` is a symbol currently being traced, else `nil`."
+ 546 "Return `true` iff `s` is a symbol currently being traced, else `nil`."
- 546 [s]
+ 547 [s]
- 547 (try (contains? @traced-symbols s)
+ 548 (try (contains? @traced-symbols s)
- 548 (catch Throwable _ nil)))
+ 549 (catch Throwable _ nil)))
- 549
+ 550
- 550 (defn TRACE
+ 551 (defn TRACE
- 551 "Add this `s` to the set of symbols currently being traced. If `s`
+ 552 "Add this `s` to the set of symbols currently being traced. If `s`
- 552 is not a symbol or sequence of symbols, does nothing."
+ 553 is not a symbol or sequence of symbols, does nothing."
- 553 [s]
+ 554 [s]
- 554 (swap! traced-symbols
+ 555 (swap! traced-symbols
- 555 #(cond
+ 556 #(cond
- 556 (symbol? s) (conj % s)
+ 557 (symbol? s) (conj % s)
- 557 (and (seq? s) (every? symbol? s)) (union % (set s))
+ 558 (and (seq? s) (every? symbol? s)) (union % (set s))
- 558 :else %)))
+ 559 :else %)))
- 559
+ 560
- 560 (defn UNTRACE
+ 561 (defn UNTRACE
- 561 "Remove this `s` from the set of symbols currently being traced. If `s`
+ 562 "Remove this `s` from the set of symbols currently being traced. If `s`
- 562 is not a symbol or sequence of symbols, does nothing."
+ 563 is not a symbol or sequence of symbols, does nothing."
- 563 [s]
+ 564 [s]
- 564 (cond
+ 565 (cond
- 565 (symbol? s) (swap! traced-symbols #(set (remove (fn [x] (= s x)) %)))
+ 566 (symbol? s) (swap! traced-symbols #(set (remove (fn [x] (= s x)) %)))
- 566 (and (seq? s) (every? symbol? s)) (map UNTRACE s))
+ 567 (and (seq? s) (every? symbol? s)) (map UNTRACE s))
- 567 @traced-symbols)
+ 568 @traced-symbols)
- 568
+ 569
- 569 ;;;; Extensions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ 570 ;;;; Extensions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 570
+ 571
- 571 (defn DOC
+ 572 (defn DOC
- 572 "Open the page for this `symbol` in the Lisp 1.5 manual, if known, in the
+ 573 "Open the page for this `symbol` in the Lisp 1.5 manual, if known, in the
- 573 default web browser.
+ 574 default web browser.
- 574
+ 575
- 575 **NOTE THAT** this is an extension function, not available in strct mode."
+ 576 **NOTE THAT** this is an extension function, not available in strct mode."
- 576 [symbol]
+ 577 [symbol]
- 577 (when (lax? 'DOC)
+ 578 (when (lax? 'DOC)
- 578 (open-doc symbol)))
+ 579 (open-doc symbol)))
- 579
+ 580
- 580 (defn CONSP
+ 581 (defn CONSP
- 581 "Return `T` if object `o` is a cons cell, else `F`.
+ 582 "Return `T` if object `o` is a cons cell, else `F`.
- 582
+ 583
- 583 **NOTE THAT** this is an extension function, not available in strct mode.
+ 584 **NOTE THAT** this is an extension function, not available in strct mode.
- 584 I believe that Lisp 1.5 did not have any mechanism for testing whether an
+ 585 I believe that Lisp 1.5 did not have any mechanism for testing whether an
- 585 argument was, or was not, a cons cell."
+ 586 argument was, or was not, a cons cell."
- 586 [o]
+ 587 [o]
- 587 (when (lax? 'CONSP)
+ 588 (when (lax? 'CONSP)
- 588 (if (instance? ConsCell o) 'T 'F)))
+ 589 (if (instance? ConsCell o) 'T 'F)))