diff --git a/auxiliary/eus-character.l b/auxiliary/eus-character.l
new file mode 100644
index 00000000..f84fc6f8
--- /dev/null
+++ b/auxiliary/eus-character.l
@@ -0,0 +1,28 @@
+(in-package "LISP")
+
+(defun characterp (ch)
+  "Returns T if ch is a character, false otherwise."
+  (if (or (floatp ch) (derivedp ch object) (< ch 0))
+      nil
+      t))
+
+(defun char-int (ch) (assert (characterp ch)) ch)
+(defun char-not-equal (x y)
+  (assert (and (characterp x) (characterp y)))
+  (not (equal x y)))
+
+(setf (symbol-function 'char<) #'<
+      (symbol-function 'char=) #'=
+      (symbol-function 'char>) #'>
+      (symbol-function 'char/=) #'/=
+      (symbol-function 'char<=) #'<=
+      (symbol-function 'char>=) #'>=
+      (symbol-function 'char-code) #'char-int
+      (symbol-function 'char-equal) #'equal
+      (symbol-function 'char-lessp) #'<
+      (symbol-function 'char-greaterp) #'>
+      (symbol-function 'char-not-lessp) #'>=)
+
+(export '(characterp char-int char-code char-equal char-not-equal
+          char-lessp char-greaterp char-not-lessp
+          char< char= char> char/= char<= char>=))
diff --git a/auxiliary/eus-predicates.l b/auxiliary/eus-predicates.l
new file mode 100644
index 00000000..3cab0cb6
--- /dev/null
+++ b/auxiliary/eus-predicates.l
@@ -0,0 +1,80 @@
+(in-package "LISP")
+
+
+(defmacro complement (fn)
+  `(function (lambda (&rest args) (not (apply ,fn args)))))
+
+;;; EQUALP -- public.
+;;
+(defun equalp (x y)
+  "Just like EQUAL, but more liberal in several respects.
+  Numbers may be of different types, as long as the values are identical
+  after coercion.  Characters may differ in alphabetic case.  Vectors and
+  arrays must have identical dimensions and EQUALP elements, but may differ
+  in their type restriction."
+  (cond ((eq x y) t)
+	;;((characterp x) (and (characterp y) (char-equal x y))) <- characters are numbers
+	((numberp x) (and (numberp y) (= x y)))
+	((consp x)
+	 (and (consp y)
+	      (equalp (car x) (car y))
+	      (equalp (cdr x) (cdr y))))
+	((pathnamep x)
+	 ;; (and (pathnamep y) (pathname= x y)))
+         (error "pathname is not yet supported here. Sorry."))
+	((hash-table-p x)
+         (error "hash table is not yet supported here. Sorry."))
+	 ;; (and (hash-table-p y)
+	;;       (eql (hash-table-count x) (hash-table-count y))
+	;;       (eql (hash-table-test x) (hash-table-test y))
+	;;       (with-hash-table-iterator (next x)
+	;; 	(loop
+	;; 	 (multiple-value-bind (more x-key x-value)
+	;; 	     (next)
+	;; 	   (cond (more
+	;; 		  (multiple-value-bind (y-value foundp)
+	;; 		      (gethash x-key y)
+	;; 		    (unless (and foundp (equalp x-value y-value))
+	;; 		      (return-from equalp nil))))
+	;; 		 (t
+	;; 		  (return-from equalp t))))))))
+	;; ((%instancep x)
+	;;  (let* ((layout-x (%instance-layout x))
+	;; 	(len (layout-length layout-x)))
+	;;    (and (%instancep y)
+	;; 	(eq layout-x (%instance-layout y))
+	;; 	(structure-class-p (layout-class layout-x))
+	;; 	(do ((i 1 (1+ i)))
+	;; 	    ((= i len) t)
+	;; 	  (declare (fixnum i))
+	;; 	  (let ((x-el (%instance-ref x i))
+	;; 		(y-el (%instance-ref y i)))
+	;; 	    (unless (or (eq x-el y-el)
+	;; 			(equalp x-el y-el))
+	;; 	      (return-from equalp nil)))))))
+	((vectorp x)
+         (let ((length (length x)))
+           (and (vectorp y)
+		(= length (length y))
+		(dotimes (i length t)
+		  (let ((x-el (aref x i))
+			(y-el (aref y i)))
+		    (if (not (or (eq x-el y-el)
+                                 (equalp x-el y-el)))
+		      (return-from equalp nil)))))))
+	((arrayp x)
+	 (and (arrayp y)
+	      (= (array-rank x) (array-rank y))
+	      (dotimes (axis (array-rank x) t)
+		(unless (= (array-dimension x axis)
+			   (array-dimension y axis))
+		  (return-from equalp nil)))
+	      (dotimes (index (array-total-size x) t)
+		(let ((x-el (row-major-aref x index))
+		      (y-el (row-major-aref y index)))
+		  (unless (or (eq x-el y-el)
+			      (equalp x-el y-el))
+		    (return-from equalp nil))))))
+	(t nil)))
+
+(export '(complement equalp))
diff --git a/auxiliary/eus-sequences.l b/auxiliary/eus-sequences.l
new file mode 100644
index 00000000..d47281c1
--- /dev/null
+++ b/auxiliary/eus-sequences.l
@@ -0,0 +1,152 @@
+;; Shadows a few substitute functions
+;; - substitute should accept a from-end keyword
+;; - count = nil should default to count = 10^6 (due to hacky reasons)
+
+(in-package :lisp)
+
+
+;; TODO: implement from-end in sequence.c
+(defmacro defsubstitute (name fn arg-lst
+			 newitem olditem seq test testnot key iftest ifnottest start end count)  
+  `(defun ,name ,arg-lst
+     (let ((count (or (and count (< count 0) 0) count 1000000))
+	   len)
+       (unless end (setq len (length seq) end len))
+       (if from-end
+	   (let ((len (or len (length seq))))
+	     (reverse (,fn ,newitem ,olditem (reverse ,seq) ,test ,testnot ,key ,iftest ,ifnottest (- len ,end) (- len ,start) ,count)))
+	   (,fn ,newitem ,olditem ,seq ,test ,testnot ,key ,iftest ,ifnottest ,start ,end ,count)))))
+
+(defsubstitute substitute system::raw-substitute
+  (newitem olditem seq 
+	   &key (start 0) (end nil)
+	   (test #'eq) (test-not nil)
+	   (count 1000000)
+	   (key #'identity)
+	   (from-end nil))
+  newitem olditem seq test test-not key nil nil start end count)
+
+(defsubstitute substitute-if system::raw-substitute
+  (newitem pred seq
+	   &key (start 0) (end nil)
+	   (count 1000000)
+	   (key #'identity)
+	   (from-end nil))
+  newitem nil seq nil nil key pred nil start end count)
+
+(defsubstitute substitute-if-not system::raw-substitute
+  (newitem pred seq
+	   &key (start 0) (end nil)
+	   (count 1000000)
+	   (key #'identity)
+	   (from-end nil))
+  newitem nil seq nil nil key nil pred start end count)
+
+(defsubstitute nsubstitute system::raw-nsubstitute
+  (newitem olditem seq
+	   &key (start 0) (end nil)
+	   (test #'eq) (test-not nil)
+	   (count 1000000)
+	   (key #'identity)
+	   (from-end nil))
+  newitem olditem seq test test-not key nil nil start end count)
+
+(defsubstitute nsubstitute-if system::raw-nsubstitute
+  (newitem pred seq
+	   &key (start 0) (end nil)
+	   (key #'identity)
+	   (count 1000000)
+	   (from-end nil))
+  newitem nil seq nil nil key pred nil start end count)
+
+(defsubstitute nsubstitute-if-not system::raw-nsubstitute
+  (newitem pred seq
+	   &key (start 0) (end nil)
+	   (count 1000000)
+	   (key #'identity)
+	   (from-end nil))
+  newitem nil seq nil nil key nil pred start end count)
+
+;; ;; Shadows replace function
+;; ;; - replace should default nil to entire string
+
+(defun replace (dest src &key (start1 0) (end1 nil)
+                              (start2 0) (end2 nil))
+  (let ((end1 (or end1 (length dest)))
+        (end2 (or end2 (length src))))
+      (let ((result dest) (count (min (- end1 start1) (- end2 start2))))
+        (cond ((listp dest)
+               (setq dest (nthcdr start1 dest))
+               (cond ((listp src)
+                      (setq src (nthcdr start2 src))
+                      (dotimes (c count)
+                        (setq (dest . car) (pop src))
+                        (pop dest)))
+                     (t
+                      (dotimes (c count)
+                        (setq (dest . car) (aref src start2))
+                        (inc start2) (pop dest)))))
+              ((listp src)	; list --> vector
+               (setq src (nthcdr start2 src))
+               (dotimes (c count)
+                 (aset dest start1 (pop src))
+                 (inc start1)))
+              (t (system::vector-replace dest src start1 end1 start2 end2)))
+        result)))
+
+
+;; Add mismatch function
+
+(defmacro mismatch-core (from-end)
+  `(when (if test-not
+	     (funcall test-not
+		      (funcall key (elt seq1 index1))
+		      (funcall key (elt seq2 index2)))
+	     (not (funcall test
+			   (funcall key (elt seq1 index1))
+			   (funcall key (elt seq2 index2)))))
+     (return-from mismatch ,(if from-end
+				'(1+ index1)
+				'index1))))
+
+(defun mismatch (seq1 seq2 &key (from-end nil)
+                                (test #'eql)
+                                (test-not nil)
+                                (start1 0)
+                                (start2 0)
+                                (end1 nil)
+                                (end2 nil)
+                                (key #'identity))
+  "The specified subsequences of Sequence1 and Sequence2 are compared
+   element-wise.  If they are of equal length and match in every element, the
+   result is NIL.  Otherwise, the result is a non-negative integer, the index
+   within Sequence1 of the leftmost position at which they fail to match; or,
+   if one is shorter than and a matching prefix of the other, the index within
+   Sequence1 beyond the last position tested is returned.  If a non-Nil
+   :From-End keyword argument is given, then one plus the index of the
+   rightmost position in which the sequences differ is returned."
+  (let ((end1 (or end1 (length seq1)))
+        (end2 (or end2 (length seq2))))
+    (if (or (zerop end1) (zerop end2)) (return-from mismatch 0))
+    (if from-end
+	(loop
+	   for index1 from (- end1 1) downto start1
+	   for index2 from (- end2 1) downto start2
+	 do
+	     (mismatch-core t))
+	(loop
+	   for index1 from start1 below end1
+	   for index2 from start2 below end2
+	 do
+	     (mismatch-core nil)))
+    (cond
+      ((> (- end1 start1) (- end2 start2)) end2)
+      ((< (- end1 start1) (- end2 start2)) end1)
+      (t nil))))
+
+;; ;; Auxiliary function to shadow peek-char
+;; (defun OOpeek-char (&optional (stream *standard-input*)
+;;                              (eof-errorp t) eof-value recursive-p)
+;;   (peek-char stream eof-errorp eof-value recursive-p))
+
+(export '(mismatch))
diff --git a/auxiliary/search-aux.lsp b/auxiliary/search-aux.lsp
index 0e442c56..60c210ee 100644
--- a/auxiliary/search-aux.lsp
+++ b/auxiliary/search-aux.lsp
@@ -15,7 +15,9 @@
    (let* ((s *searched-list*) (len (length s)))
      (loop for x from 0 to 8 nconc
            (loop for y from 0 to (- len x)
-                 collect (subseq s y (+ y x)))))
+	      collect (if (= y len)
+			  nil
+			  (subseq s y (+ y x))))))
    :test #'equal))
 
 (defparameter *searched-vector*
@@ -34,7 +36,7 @@
      (loop for x from 0 to 8 nconc
            (loop for y from 0 to (- len x)
                  collect (subseq s y (+ y x)))))
-   :test #'equalp))
+   :test #'equal))
 
 (defparameter *searched-string*
   "1101111111010111010111000010010000001011010010001100100001101010001011010011111000001011111010110101")
@@ -45,9 +47,9 @@
      (loop for x from 0 to 8 nconc
            (loop for y from 0 to (- len x)
                  collect (subseq s y (+ y x)))))
-   :test #'equalp))
+   :test #'equal))
 
-(defun subseq-equalp (seq1 seq2 start1 start2 len &key (test #'equalp))
+(defun subseq-equalp (seq1 seq2 start1 start2 len &key (test #'equal))
   (assert
    (and
     (>= start1 0)
@@ -68,7 +70,7 @@
 
 (defun search-check (pattern searched pos
                              &key (start1 0) (end1 nil) (start2 0) (end2 nil)
-                             key from-end (test #'equalp))
+                             key from-end (test #'equal))
   (unless end1 (setq end1 (length pattern)))
   (unless end2 (setq end2 (length searched)))
   (assert (<= start1 end1))
diff --git a/eus-test.l b/eus-test.l
index 5d31cad5..63d41064 100755
--- a/eus-test.l
+++ b/eus-test.l
@@ -4,6 +4,10 @@
 ;; LOAD CL-compatibility libraries
 (load "auxiliary/eus-multiple-values.l")
 (load "auxiliary/eus-loop.l")
+
+(load "auxiliary/eus-character.l")
+(load "auxiliary/eus-predicates.l")
+(load "auxiliary/eus-sequences.l")
 (load "auxiliary/eus-declarations.l")
 (load "auxiliary/eus-numbers.l")
 (load "auxiliary/eus-types.l")
@@ -146,8 +150,8 @@
 
 ;; (load "packages/load.lsp")
 (load "reader/load.lsp")
-;; (load "sequences/load.lsp")
 (load "streams/load.lsp")
+(load "sequences/load.lsp")
 (load "system-construction/load.lsp")
 (load "structures/load.lsp")
 ;; (load "types-and-classes/load.lsp")
diff --git a/reports/README.org b/reports/README.org
index eda31acc..d10870d6 100644
--- a/reports/README.org
+++ b/reports/README.org
@@ -114,6 +114,25 @@
       - define-method-combination
       - deftype
 
+** 6 Sequence
+*** Caveats
+    - (map 'list #'identity a), where a is a sequence, does not work
+    - Undefined functions:
+      - complement
+      - characterp
+      - stable-sort
+      - do-special-integer-vectors
+      - map-into
+      - constantly
+      - simple-vector-p
+      - check-type-error
+      - type-of
+    - Non-complyinh functions
+      - no such keyword :from-end in (position-if-not
+      - integer expected in (position-if-not #'oddp #(1 3 1 4 3 2 1 8 9) :end nil)
+      - No such keyword :from-end in find
+      - No such keyword :from-end in count-if-not
+      - No such keyword :key in (reduce #'+ '(1 2 3) :key '1+)
 ** DONE 6 Misc
 *** Caveats
     - "no such package":
@@ -267,17 +286,20 @@
 * Results
 
 
-        | Tests-version         | Test-num | Passed | Failure |
-        |-----------------------+----------+--------+---------|
-        | 1                     |     5557 |   2983 |    2574 |
-        |-----------------------+----------+--------+---------|
-        | 2 - Add Arrays tests  |     6297 |   3087 |    3210 |
-        |-----------------------+----------+--------+---------|
-        | 3                     |     7676 |   3489 |    4187 |
-        |-----------------------+----------+--------+---------|
-        | 4 - Add misc tests    |     8187 |   3506 |    4681 |
-        |-----------------------+----------+--------+---------|
-        | 5 - Add numbers tests |     9582 |   3988 |    5594 |
-        |-----------------------+----------+--------+---------|
-        |                       |          |        |         |
+        | Tests-version           | Test-num | Passed | Failure |
+        |-------------------------+----------+--------+---------|
+        | 1                       |     5557 |   2983 |    2574 |
+        |-------------------------+----------+--------+---------|
+        | 2 - Add Arrays tests    |     6297 |   3087 |    3210 |
+        |-------------------------+----------+--------+---------|
+        | 3                       |     7676 |   3489 |    4187 |
+        |-------------------------+----------+--------+---------|
+        | 4 - Add misc tests      |     8187 |   3506 |    4681 |
+        |-------------------------+----------+--------+---------|
+        | 5 - Add numbers tests   |     9582 |   3988 |    5594 |
+        |-------------------------+----------+--------+---------|
+        | 6 - Add sequences tests |    11249 |   4659 |    6590 |
+        |-------------------------+----------+--------+---------|
+        |                         |          |        |         |
+
 
diff --git a/reports/REPORT.org b/reports/REPORT.org
index 81fd61fd..769d39bc 100644
--- a/reports/REPORT.org
+++ b/reports/REPORT.org
@@ -2247,8 +2247,8 @@
   - [ ] (deftest defsetf.5a
   - [ ] (deftest defsetf.6a
   - [ ] (deftest defsetf.7a
-**** equalp.lsp [57%]
-  - [ ] (deftest equalp.1
+**** equalp.lsp [65%]
+  - [X] (deftest equalp.1
   - [X] (deftest equalp.2
   - [X] (deftest equalp.3
   - [X] (deftest equalp.4
@@ -2268,11 +2268,11 @@
   - [ ] (deftest equalp.18
   - [ ] (deftest equalp.19
   - [ ] (deftest equalp.20
-  - [ ] (deftest equalp.21
+  - [X] (deftest equalp.21
   - [X] (deftest equalp.22
   - [X] (deftest equalp.23
   - [X] (deftest equalp.24
-  - [ ] (deftest equalp.25
+  - [X] (deftest equalp.25
   - [X] (deftest equalp.26
   - [X] (deftest equalp.27
   - [X] (deftest equalp.28
@@ -3869,7 +3869,7 @@
   - [ ] (deftest pathname-device.8
   - [X] (deftest pathname-device.error.1
   - [ ] (deftest pathname-device.error.2
-**** make-pathname.lsp [21%]
+**** make-pathname.lsp [30%]
   - [ ] (deftest make-pathname.1
   - [ ] (deftest make-pathname.2
   - [ ] (deftest make-pathname.2a
@@ -3881,11 +3881,11 @@
   - [ ] (deftest make-pathname.7
   - [ ] (deftest make-pathname.8
   - [ ] (deftest make-pathname.9
-  - [ ] (deftest make-pathname.10
+  - [X] (deftest make-pathname.10
   - [ ] (deftest make-pathname.11
   - [ ] (deftest make-pathname.12
   - [ ] (deftest make-pathname.13
-  - [ ] (deftest make-pathname.14
+  - [X] (deftest make-pathname.14
   - [ ] (deftest make-pathname.rebuild
   - [X] (deftest make-pathname-error-absolute-up
   - [X] (deftest make-pathname-error-absolute-back
@@ -15116,7 +15116,7 @@
   - [X] (deftest remhash.error.1
   - [X] (deftest remhash.error.2
   - [X] (deftest remhash.error.3
-**** make-hash-table.lsp [48%]
+**** make-hash-table.lsp [51%]
   - [X] (deftest make-hash-table.1
   - [X] (deftest make-hash-table.2
   - [X] (deftest make-hash-table.3
@@ -15126,7 +15126,7 @@
   - [X] (deftest make-hash-table.7
   - [X] (deftest make-hash-table.8
   - [X] (deftest make-hash-table.9
-  - [ ] (deftest make-hash-table.10
+  - [X] (deftest make-hash-table.10
   - [X] (deftest make-hash-table.11
   - [X] (deftest make-hash-table.12
   - [X] (deftest make-hash-table.13
@@ -15225,7 +15225,7 @@
   - [X] (deftest hash-table-p.5
   - [X] (deftest hash-table-p.error.1
   - [X] (deftest hash-table-p.error.2
-**** hash-table-count.lsp [92%]
+**** hash-table-count.lsp [100%]
   - [X] (deftest hash-table-count.1
   - [X] (deftest hash-table-count.2
   - [X] (deftest hash-table-count.3
@@ -15234,7 +15234,7 @@
   - [X] (deftest hash-table-count.6
   - [X] (deftest hash-table-count.7
   - [X] (deftest hash-table-count.8
-  - [ ] (deftest hash-table-count.9
+  - [X] (deftest hash-table-count.9
   - [X] (deftest hash-table-count.10
   - [X] (deftest hash-table-count.11
   - [X] (deftest hash-table-count.error.1
@@ -16848,71 +16848,71 @@
 **** ba-test-package.lsp [0%]
 **** makefile [0%]
 *** sequences [0%]
-**** substitute-if-not.lsp [0%]
-  - [ ] (deftest substitute-if-not-list.1
-  - [ ] (deftest substitute-if-not-list.2
+**** substitute-if-not.lsp [41%]
+  - [X] (deftest substitute-if-not-list.1
+  - [X] (deftest substitute-if-not-list.2
   - [ ] (deftest substitute-if-not-list.3
-  - [ ] (deftest substitute-if-not-list.4
-  - [ ] (deftest substitute-if-not-list.5
-  - [ ] (deftest substitute-if-not-list.6
-  - [ ] (deftest substitute-if-not-list.7
-  - [ ] (deftest substitute-if-not-list.8
-  - [ ] (deftest substitute-if-not-list.9
+  - [X] (deftest substitute-if-not-list.4
+  - [X] (deftest substitute-if-not-list.5
+  - [X] (deftest substitute-if-not-list.6
+  - [X] (deftest substitute-if-not-list.7
+  - [X] (deftest substitute-if-not-list.8
+  - [X] (deftest substitute-if-not-list.9
   - [ ] (deftest substitute-if-not-list.10
-  - [ ] (deftest substitute-if-not-list.11
-  - [ ] (deftest substitute-if-not-list.12
-  - [ ] (deftest substitute-if-not-list.13
-  - [ ] (deftest substitute-if-not-list.14
-  - [ ] (deftest substitute-if-not-list.15
-  - [ ] (deftest substitute-if-not-list.16
-  - [ ] (deftest substitute-if-not-list.17
-  - [ ] (deftest substitute-if-not-list.18
-  - [ ] (deftest substitute-if-not-vector.1
-  - [ ] (deftest substitute-if-not-vector.2
+  - [X] (deftest substitute-if-not-list.11
+  - [X] (deftest substitute-if-not-list.12
+  - [X] (deftest substitute-if-not-list.13
+  - [X] (deftest substitute-if-not-list.14
+  - [X] (deftest substitute-if-not-list.15
+  - [X] (deftest substitute-if-not-list.16
+  - [X] (deftest substitute-if-not-list.17
+  - [X] (deftest substitute-if-not-list.18
+  - [X] (deftest substitute-if-not-vector.1
+  - [X] (deftest substitute-if-not-vector.2
   - [ ] (deftest substitute-if-not-vector.3
-  - [ ] (deftest substitute-if-not-vector.4
-  - [ ] (deftest substitute-if-not-vector.5
-  - [ ] (deftest substitute-if-not-vector.6
-  - [ ] (deftest substitute-if-not-vector.7
-  - [ ] (deftest substitute-if-not-vector.8
-  - [ ] (deftest substitute-if-not-vector.9
+  - [X] (deftest substitute-if-not-vector.4
+  - [X] (deftest substitute-if-not-vector.5
+  - [X] (deftest substitute-if-not-vector.6
+  - [X] (deftest substitute-if-not-vector.7
+  - [X] (deftest substitute-if-not-vector.8
+  - [X] (deftest substitute-if-not-vector.9
   - [ ] (deftest substitute-if-not-vector.10
-  - [ ] (deftest substitute-if-not-vector.11
-  - [ ] (deftest substitute-if-not-vector.12
-  - [ ] (deftest substitute-if-not-vector.13
-  - [ ] (deftest substitute-if-not-vector.14
+  - [X] (deftest substitute-if-not-vector.11
+  - [X] (deftest substitute-if-not-vector.12
+  - [X] (deftest substitute-if-not-vector.13
+  - [X] (deftest substitute-if-not-vector.14
   - [ ] (deftest substitute-if-not-vector.15
   - [ ] (deftest substitute-if-not-vector.16
   - [ ] (deftest substitute-if-not-vector.17
   - [ ] (deftest substitute-if-not-vector.18
-  - [ ] (deftest substitute-if-not-vector.28
-  - [ ] (deftest substitute-if-not-vector.29
-  - [ ] (deftest substitute-if-not-vector.30
-  - [ ] (deftest substitute-if-not-vector.31
-  - [ ] (deftest substitute-if-not-vector.32
-  - [ ] (deftest substitute-if-not-vector.33
-  - [ ] (deftest substitute-if-not-string.1
-  - [ ] (deftest substitute-if-not-string.2
+  - [X] (deftest substitute-if-not-vector.28
+  - [X] (deftest substitute-if-not-vector.29
+  - [X] (deftest substitute-if-not-vector.30
+  - [X] (deftest substitute-if-not-vector.31
+  - [X] (deftest substitute-if-not-vector.32
+  - [X] (deftest substitute-if-not-vector.33
+  - [X] (deftest substitute-if-not-string.1
+  - [X] (deftest substitute-if-not-string.2
   - [ ] (deftest substitute-if-not-string.3
-  - [ ] (deftest substitute-if-not-string.4
-  - [ ] (deftest substitute-if-not-string.5
-  - [ ] (deftest substitute-if-not-string.6
-  - [ ] (deftest substitute-if-not-string.7
-  - [ ] (deftest substitute-if-not-string.8
-  - [ ] (deftest substitute-if-not-string.9
+  - [X] (deftest substitute-if-not-string.4
+  - [X] (deftest substitute-if-not-string.5
+  - [X] (deftest substitute-if-not-string.6
+  - [X] (deftest substitute-if-not-string.7
+  - [X] (deftest substitute-if-not-string.8
+  - [X] (deftest substitute-if-not-string.9
   - [ ] (deftest substitute-if-not-string.10
-  - [ ] (deftest substitute-if-not-string.11
-  - [ ] (deftest substitute-if-not-string.12
-  - [ ] (deftest substitute-if-not-string.13
-  - [ ] (deftest substitute-if-not-string.14
+  - [X] (deftest substitute-if-not-string.11
+  - [X] (deftest substitute-if-not-string.12
+  - [X] (deftest substitute-if-not-string.13
+  - [X] (deftest substitute-if-not-string.14
   - [ ] (deftest substitute-if-not-string.15
   - [ ] (deftest substitute-if-not-string.16
   - [ ] (deftest substitute-if-not-string.17
   - [ ] (deftest substitute-if-not-string.18
-  - [ ] (deftest substitute-if-not-string.28
-  - [ ] (deftest substitute-if-not-string.29
-  - [ ] (deftest substitute-if-not-string.30
-  - [ ] (deftest substitute-if-not-string.31
+  - [X] (deftest substitute-if-not-string.28
+  - [X] (deftest substitute-if-not-string.29
+  - [X] (deftest substitute-if-not-string.30
+  - [X] (deftest substitute-if-not-string.31
   - [ ] (deftest substitute-if-not-bitstring.1
   - [ ] (deftest substitute-if-not-bitstring.2
   - [ ] (deftest substitute-if-not-bitstring.3
@@ -16943,7 +16943,7 @@
   - [ ] (deftest substitute-if-not-string.26
   - [ ] (deftest substitute-if-not-bitstring.26
   - [ ] (deftest substitute-if-not-bitstring.27
-  - [ ] (deftest substitute-if-not-bit-vector.30
+  - [X] (deftest substitute-if-not-bit-vector.30
   - [ ] (deftest substitute-if-not-bit-vector.31
   - [ ] (deftest substitute-if-not-bit-vector.32
   - [ ] (deftest substitute-if-not-bit-vector.33
@@ -16973,51 +16973,51 @@
   - [ ] (deftest substitute-if-not.error.10
   - [ ] (deftest substitute-if-not.error.11
   - [ ] (deftest substitute-if-not.error.12
-**** count-if.lsp [0%]
-  - [ ] (deftest count-if-list.1
-  - [ ] (deftest count-if-list.2
-  - [ ] (deftest count-if-list.3
-  - [ ] (deftest count-if-list.4
-  - [ ] (deftest count-if-list.5
-  - [ ] (deftest count-if-list.6
-  - [ ] (deftest count-if-list.8
-  - [ ] (deftest count-if-list.9
-  - [ ] (deftest count-if-list.10
-  - [ ] (deftest count-if-list.11
+**** count-if.lsp [39%]
+  - [X] (deftest count-if-list.1
+  - [X] (deftest count-if-list.2
+  - [X] (deftest count-if-list.3
+  - [X] (deftest count-if-list.4
+  - [X] (deftest count-if-list.5
+  - [X] (deftest count-if-list.6
+  - [X] (deftest count-if-list.8
+  - [X] (deftest count-if-list.9
+  - [X] (deftest count-if-list.10
+  - [X] (deftest count-if-list.11
   - [ ] (deftest count-if-list.12
-  - [ ] (deftest count-if-list.13
-  - [ ] (deftest count-if-list.14
-  - [ ] (deftest count-if-list.15
+  - [X] (deftest count-if-list.13
+  - [X] (deftest count-if-list.14
+  - [X] (deftest count-if-list.15
   - [ ] (deftest count-if-list.16
-  - [ ] (deftest count-if-vector.1
-  - [ ] (deftest count-if-vector.2
-  - [ ] (deftest count-if-vector.3
-  - [ ] (deftest count-if-vector.4
-  - [ ] (deftest count-if-vector.5
-  - [ ] (deftest count-if-vector.6
-  - [ ] (deftest count-if-vector.8
-  - [ ] (deftest count-if-vector.9
-  - [ ] (deftest count-if-vector.10
-  - [ ] (deftest count-if-vector.11
+  - [X] (deftest count-if-vector.1
+  - [X] (deftest count-if-vector.2
+  - [X] (deftest count-if-vector.3
+  - [X] (deftest count-if-vector.4
+  - [X] (deftest count-if-vector.5
+  - [X] (deftest count-if-vector.6
+  - [X] (deftest count-if-vector.8
+  - [X] (deftest count-if-vector.9
+  - [X] (deftest count-if-vector.10
+  - [X] (deftest count-if-vector.11
   - [ ] (deftest count-if-vector.12
-  - [ ] (deftest count-if-vector.13
-  - [ ] (deftest count-if-vector.14
-  - [ ] (deftest count-if-vector.15
+  - [X] (deftest count-if-vector.13
+  - [X] (deftest count-if-vector.14
+  - [X] (deftest count-if-vector.15
   - [ ] (deftest count-if-vector.16
-  - [ ] (deftest count-if-nonsimple-vector.1
-  - [ ] (deftest count-if-nonsimple-vector.2
-  - [ ] (deftest count-if-nonsimple-vector.3
-  - [ ] (deftest count-if-nonsimple-vector.4
-  - [ ] (deftest count-if-nonsimple-vector.5
-  - [ ] (deftest count-if-nonsimple-vector.6
-  - [ ] (deftest count-if-nonsimple-vector.8
-  - [ ] (deftest count-if-nonsimple-vector.9
-  - [ ] (deftest count-if-nonsimple-vector.10
-  - [ ] (deftest count-if-nonsimple-vector.11
+  - [X] (deftest count-if-nonsimple-vector.1
+  - [X] (deftest count-if-nonsimple-vector.2
+  - [X] (deftest count-if-nonsimple-vector.3
+  - [X] (deftest count-if-nonsimple-vector.4
+  - [X] (deftest count-if-nonsimple-vector.5
+  - [X] (deftest count-if-nonsimple-vector.6
+  - [X] (deftest count-if-nonsimple-vector.8
+  - [X] (deftest count-if-nonsimple-vector.9
+  - [X] (deftest count-if-nonsimple-vector.10
+  - [X] (deftest count-if-nonsimple-vector.11
   - [ ] (deftest count-if-nonsimple-vector.12
-  - [ ] (deftest count-if-nonsimple-vector.13
-  - [ ] (deftest count-if-nonsimple-vector.14
-  - [ ] (deftest count-if-nonsimple-vector.15
+  - [X] (deftest count-if-nonsimple-vector.13
+  - [X] (deftest count-if-nonsimple-vector.14
+  - [X] (deftest count-if-nonsimple-vector.15
   - [ ] (deftest count-if-nonsimple-vector.16
   - [ ] (deftest count-if-nonsimple-vector.17
   - [ ] (deftest count-if.special-vector.1
@@ -17074,44 +17074,44 @@
   - [ ] (deftest count-if.error.13
   - [ ] (deftest count-if.error.14
   - [ ] (deftest count-if.error.15
-**** find-if-not.lsp [0%]
-  - [ ] (deftest find-if-not-list.1
-  - [ ] (deftest find-if-not-list.2
-  - [ ] (deftest find-if-not-list.2a
-  - [ ] (deftest find-if-not-list.3
+**** find-if-not.lsp [22%]
+  - [X] (deftest find-if-not-list.1
+  - [X] (deftest find-if-not-list.2
+  - [X] (deftest find-if-not-list.2a
+  - [X] (deftest find-if-not-list.3
   - [ ] (deftest find-if-not-list.4
-  - [ ] (deftest find-if-not-list.5
+  - [X] (deftest find-if-not-list.5
   - [ ] (deftest find-if-not-list.6
   - [ ] (deftest find-if-not-list.7
   - [ ] (deftest find-if-not-list.8
-  - [ ] (deftest find-if-not-list.9
+  - [X] (deftest find-if-not-list.9
   - [ ] (deftest find-if-not-list.10
-  - [ ] (deftest find-if-not-list.11
+  - [X] (deftest find-if-not-list.11
   - [ ] (deftest find-if-not-list.12
-  - [ ] (deftest find-if-not-list.13
+  - [X] (deftest find-if-not-list.13
   - [ ] (deftest find-if-not-list.14
-  - [ ] (deftest find-if-not-list.15
+  - [X] (deftest find-if-not-list.15
   - [ ] (deftest find-if-not-list.16
-  - [ ] (deftest find-if-not-list.17
+  - [X] (deftest find-if-not-list.17
   - [ ] (deftest find-if-not-list.18
-  - [ ] (deftest find-if-not-vector.1
-  - [ ] (deftest find-if-not-vector.2
-  - [ ] (deftest find-if-not-vector.2a
-  - [ ] (deftest find-if-not-vector.3
+  - [X] (deftest find-if-not-vector.1
+  - [X] (deftest find-if-not-vector.2
+  - [X] (deftest find-if-not-vector.2a
+  - [X] (deftest find-if-not-vector.3
   - [ ] (deftest find-if-not-vector.4
-  - [ ] (deftest find-if-not-vector.5
+  - [X] (deftest find-if-not-vector.5
   - [ ] (deftest find-if-not-vector.6
   - [ ] (deftest find-if-not-vector.7
   - [ ] (deftest find-if-not-vector.8
-  - [ ] (deftest find-if-not-vector.9
+  - [X] (deftest find-if-not-vector.9
   - [ ] (deftest find-if-not-vector.10
-  - [ ] (deftest find-if-not-vector.11
+  - [X] (deftest find-if-not-vector.11
   - [ ] (deftest find-if-not-vector.12
-  - [ ] (deftest find-if-not-vector.13
+  - [X] (deftest find-if-not-vector.13
   - [ ] (deftest find-if-not-vector.14
-  - [ ] (deftest find-if-not-vector.15
+  - [X] (deftest find-if-not-vector.15
   - [ ] (deftest find-if-not-vector.16
-  - [ ] (deftest find-if-not-vector.17
+  - [X] (deftest find-if-not-vector.17
   - [ ] (deftest find-if-not-vector.18
   - [ ] (deftest find-if-not-bit-vector.1
   - [ ] (deftest find-if-not-bit-vector.2
@@ -17162,61 +17162,61 @@
   - [ ] (deftest find-if-not.order.1
   - [ ] (deftest find-if-not.order.2
   - [ ] (deftest find-if-not.order.3
-**** count.lsp [0%]
-  - [ ] (deftest count-list.1
-  - [ ] (deftest count-list.2
-  - [ ] (deftest count-list.3
-  - [ ] (deftest count-list.4
-  - [ ] (deftest count-list.5
-  - [ ] (deftest count-list.6
+**** count.lsp [33%]
+  - [X] (deftest count-list.1
+  - [X] (deftest count-list.2
+  - [X] (deftest count-list.3
+  - [X] (deftest count-list.4
+  - [X] (deftest count-list.5
+  - [X] (deftest count-list.6
   - [ ] (deftest count-list.7
-  - [ ] (deftest count-list.8
+  - [X] (deftest count-list.8
   - [ ] (deftest count-list.9
-  - [ ] (deftest count-list.10
-  - [ ] (deftest count-list.11
-  - [ ] (deftest count-list.12
+  - [X] (deftest count-list.10
+  - [X] (deftest count-list.11
+  - [X] (deftest count-list.12
   - [ ] (deftest count-list.13
   - [ ] (deftest count-list.14
-  - [ ] (deftest count-list.15
-  - [ ] (deftest count-list.16
-  - [ ] (deftest count-list.17
-  - [ ] (deftest count-list.18
-  - [ ] (deftest count-vector.1
-  - [ ] (deftest count-vector.2
-  - [ ] (deftest count-vector.3
-  - [ ] (deftest count-vector.4
-  - [ ] (deftest count-vector.5
-  - [ ] (deftest count-vector.6
+  - [X] (deftest count-list.15
+  - [X] (deftest count-list.16
+  - [X] (deftest count-list.17
+  - [X] (deftest count-list.18
+  - [X] (deftest count-vector.1
+  - [X] (deftest count-vector.2
+  - [X] (deftest count-vector.3
+  - [X] (deftest count-vector.4
+  - [X] (deftest count-vector.5
+  - [X] (deftest count-vector.6
   - [ ] (deftest count-vector.7
-  - [ ] (deftest count-vector.8
+  - [X] (deftest count-vector.8
   - [ ] (deftest count-vector.9
-  - [ ] (deftest count-vector.10
-  - [ ] (deftest count-vector.11
-  - [ ] (deftest count-vector.12
+  - [X] (deftest count-vector.10
+  - [X] (deftest count-vector.11
+  - [X] (deftest count-vector.12
   - [ ] (deftest count-vector.13
   - [ ] (deftest count-vector.14
-  - [ ] (deftest count-vector.15
-  - [ ] (deftest count-vector.16
-  - [ ] (deftest count-vector.17
-  - [ ] (deftest count-vector.18
-  - [ ] (deftest count-filled-vector.1
-  - [ ] (deftest count-filled-vector.2
-  - [ ] (deftest count-filled-vector.3
-  - [ ] (deftest count-filled-vector.4
-  - [ ] (deftest count-filled-vector.5
-  - [ ] (deftest count-filled-vector.6
+  - [X] (deftest count-vector.15
+  - [X] (deftest count-vector.16
+  - [X] (deftest count-vector.17
+  - [X] (deftest count-vector.18
+  - [X] (deftest count-filled-vector.1
+  - [X] (deftest count-filled-vector.2
+  - [X] (deftest count-filled-vector.3
+  - [X] (deftest count-filled-vector.4
+  - [X] (deftest count-filled-vector.5
+  - [X] (deftest count-filled-vector.6
   - [ ] (deftest count-filled-vector.7
-  - [ ] (deftest count-filled-vector.8
+  - [X] (deftest count-filled-vector.8
   - [ ] (deftest count-filled-vector.9
-  - [ ] (deftest count-filled-vector.10
-  - [ ] (deftest count-filled-vector.11
-  - [ ] (deftest count-filled-vector.12
+  - [X] (deftest count-filled-vector.10
+  - [X] (deftest count-filled-vector.11
+  - [X] (deftest count-filled-vector.12
   - [ ] (deftest count-filled-vector.13
   - [ ] (deftest count-filled-vector.14
-  - [ ] (deftest count-filled-vector.15
-  - [ ] (deftest count-filled-vector.16
-  - [ ] (deftest count-filled-vector.17
-  - [ ] (deftest count-filled-vector.18
+  - [X] (deftest count-filled-vector.15
+  - [X] (deftest count-filled-vector.16
+  - [X] (deftest count-filled-vector.17
+  - [X] (deftest count-filled-vector.18
   - [ ] (deftest count-filled-vector.19
   - [ ] (deftest count-filled-vector.20
   - [ ] (deftest count.special-vector.1
@@ -17288,8 +17288,8 @@
   - [ ] (deftest count.error.13
   - [ ] (deftest count.error.14
   - [ ] (deftest count.error.15
-**** substitute-if.lsp [0%]
-  - [ ] (deftest substitute-if-list.1
+**** substitute-if.lsp [35%]
+  - [X] (deftest substitute-if-list.1
   - [ ] (deftest substitute-if-list.2
   - [ ] (deftest substitute-if-list.3
   - [ ] (deftest substitute-if-list.4
@@ -17299,60 +17299,60 @@
   - [ ] (deftest substitute-if-list.8
   - [ ] (deftest substitute-if-list.9
   - [ ] (deftest substitute-if-list.10
-  - [ ] (deftest substitute-if-list.11
-  - [ ] (deftest substitute-if-list.12
-  - [ ] (deftest substitute-if-list.13
-  - [ ] (deftest substitute-if-list.14
-  - [ ] (deftest substitute-if-list.15
-  - [ ] (deftest substitute-if-list.16
-  - [ ] (deftest substitute-if-list.17
-  - [ ] (deftest substitute-if-list.18
-  - [ ] (deftest substitute-if-vector.1
-  - [ ] (deftest substitute-if-vector.2
+  - [X] (deftest substitute-if-list.11
+  - [X] (deftest substitute-if-list.12
+  - [X] (deftest substitute-if-list.13
+  - [X] (deftest substitute-if-list.14
+  - [X] (deftest substitute-if-list.15
+  - [X] (deftest substitute-if-list.16
+  - [X] (deftest substitute-if-list.17
+  - [X] (deftest substitute-if-list.18
+  - [X] (deftest substitute-if-vector.1
+  - [X] (deftest substitute-if-vector.2
   - [ ] (deftest substitute-if-vector.3
-  - [ ] (deftest substitute-if-vector.4
-  - [ ] (deftest substitute-if-vector.5
-  - [ ] (deftest substitute-if-vector.6
-  - [ ] (deftest substitute-if-vector.7
-  - [ ] (deftest substitute-if-vector.8
-  - [ ] (deftest substitute-if-vector.9
+  - [X] (deftest substitute-if-vector.4
+  - [X] (deftest substitute-if-vector.5
+  - [X] (deftest substitute-if-vector.6
+  - [X] (deftest substitute-if-vector.7
+  - [X] (deftest substitute-if-vector.8
+  - [X] (deftest substitute-if-vector.9
   - [ ] (deftest substitute-if-vector.10
-  - [ ] (deftest substitute-if-vector.11
-  - [ ] (deftest substitute-if-vector.12
-  - [ ] (deftest substitute-if-vector.13
-  - [ ] (deftest substitute-if-vector.14
+  - [X] (deftest substitute-if-vector.11
+  - [X] (deftest substitute-if-vector.12
+  - [X] (deftest substitute-if-vector.13
+  - [X] (deftest substitute-if-vector.14
   - [ ] (deftest substitute-if-vector.15
   - [ ] (deftest substitute-if-vector.16
   - [ ] (deftest substitute-if-vector.17
   - [ ] (deftest substitute-if-vector.18
-  - [ ] (deftest substitute-if-vector.28
-  - [ ] (deftest substitute-if-vector.29
-  - [ ] (deftest substitute-if-vector.30
-  - [ ] (deftest substitute-if-vector.31
-  - [ ] (deftest substitute-if-vector.32
-  - [ ] (deftest substitute-if-vector.33
-  - [ ] (deftest substitute-if-string.1
-  - [ ] (deftest substitute-if-string.2
+  - [X] (deftest substitute-if-vector.28
+  - [X] (deftest substitute-if-vector.29
+  - [X] (deftest substitute-if-vector.30
+  - [X] (deftest substitute-if-vector.31
+  - [X] (deftest substitute-if-vector.32
+  - [X] (deftest substitute-if-vector.33
+  - [X] (deftest substitute-if-string.1
+  - [X] (deftest substitute-if-string.2
   - [ ] (deftest substitute-if-string.3
-  - [ ] (deftest substitute-if-string.4
-  - [ ] (deftest substitute-if-string.5
-  - [ ] (deftest substitute-if-string.6
-  - [ ] (deftest substitute-if-string.7
-  - [ ] (deftest substitute-if-string.8
-  - [ ] (deftest substitute-if-string.9
+  - [X] (deftest substitute-if-string.4
+  - [X] (deftest substitute-if-string.5
+  - [X] (deftest substitute-if-string.6
+  - [X] (deftest substitute-if-string.7
+  - [X] (deftest substitute-if-string.8
+  - [X] (deftest substitute-if-string.9
   - [ ] (deftest substitute-if-string.10
-  - [ ] (deftest substitute-if-string.11
-  - [ ] (deftest substitute-if-string.12
-  - [ ] (deftest substitute-if-string.13
-  - [ ] (deftest substitute-if-string.14
+  - [X] (deftest substitute-if-string.11
+  - [X] (deftest substitute-if-string.12
+  - [X] (deftest substitute-if-string.13
+  - [X] (deftest substitute-if-string.14
   - [ ] (deftest substitute-if-string.15
   - [ ] (deftest substitute-if-string.16
   - [ ] (deftest substitute-if-string.17
   - [ ] (deftest substitute-if-string.18
-  - [ ] (deftest substitute-if-string.28
-  - [ ] (deftest substitute-if-string.29
-  - [ ] (deftest substitute-if-string.30
-  - [ ] (deftest substitute-if-string.31
+  - [X] (deftest substitute-if-string.28
+  - [X] (deftest substitute-if-string.29
+  - [X] (deftest substitute-if-string.30
+  - [X] (deftest substitute-if-string.31
   - [ ] (deftest substitute-if-bit-vector.1
   - [ ] (deftest substitute-if-bit-vector.2
   - [ ] (deftest substitute-if-bit-vector.3
@@ -17383,7 +17383,7 @@
   - [ ] (deftest substitute-if-string.26
   - [ ] (deftest substitute-if-bit-vector.22
   - [ ] (deftest substitute-if-bit-vector.23
-  - [ ] (deftest substitute-if-bit-vector.24
+  - [X] (deftest substitute-if-bit-vector.24
   - [ ] (deftest substitute-if-bit-vector.25
   - [ ] (deftest substitute-if-bit-vector.26
   - [ ] (deftest substitute-if-bit-vector.27
@@ -17432,58 +17432,58 @@
   - [ ] (deftest search-vector.16
   - [ ] (deftest search-vector.17
   - [ ] (deftest search-vector.18
-**** fill.lsp [0%]
-  - [ ] (deftest fill.error.1
-  - [ ] (deftest fill.error.2
-  - [ ] (deftest fill.error.3
-  - [ ] (deftest fill.error.4
-  - [ ] (deftest fill.error.5
-  - [ ] (deftest fill.error.6
-  - [ ] (deftest fill.error.7
-  - [ ] (deftest fill.error.8
-  - [ ] (deftest fill.error.10
-  - [ ] (deftest fill.error.11
-  - [ ] (deftest array-fill-1
-  - [ ] (deftest array-fill-2
-  - [ ] (deftest array-fill-3
-  - [ ] (deftest array-fill-4
+**** fill.lsp [48%]
+  - [X] (deftest fill.error.1
+  - [X] (deftest fill.error.2
+  - [X] (deftest fill.error.3
+  - [X] (deftest fill.error.4
+  - [X] (deftest fill.error.5
+  - [X] (deftest fill.error.6
+  - [X] (deftest fill.error.7
+  - [X] (deftest fill.error.8
+  - [X] (deftest fill.error.10
+  - [X] (deftest fill.error.11
+  - [X] (deftest array-fill-1
+  - [X] (deftest array-fill-2
+  - [X] (deftest array-fill-3
+  - [X] (deftest array-fill-4
   - [ ] (deftest array-fill-5
   - [ ] (deftest array-fill-6
-  - [ ] (deftest array-fill-7
-  - [ ] (deftest array-fill-8
-  - [ ] (deftest array-fill-9
-  - [ ] (deftest array-fill-10
-  - [ ] (deftest array-fixnum-fill-1
-  - [ ] (deftest array-fixnum-fill-2
-  - [ ] (deftest array-fixnum-fill-3
-  - [ ] (deftest array-fixnum-fill-4
+  - [X] (deftest array-fill-7
+  - [X] (deftest array-fill-8
+  - [X] (deftest array-fill-9
+  - [X] (deftest array-fill-10
+  - [X] (deftest array-fixnum-fill-1
+  - [X] (deftest array-fixnum-fill-2
+  - [X] (deftest array-fixnum-fill-3
+  - [X] (deftest array-fixnum-fill-4
   - [ ] (deftest array-fixnum-fill-5
   - [ ] (deftest array-fixnum-fill-6
-  - [ ] (deftest array-fixnum-fill-7
-  - [ ] (deftest array-fixnum-fill-8
-  - [ ] (deftest array-fixnum-fill-9
-  - [ ] (deftest array-fixnum-fill-10
-  - [ ] (deftest array-unsigned-byte8-fill-1
-  - [ ] (deftest array-unsigned-byte8-fill-2
-  - [ ] (deftest array-unsigned-byte8-fill-3
-  - [ ] (deftest array-unsigned-byte8-fill-4
+  - [X] (deftest array-fixnum-fill-7
+  - [X] (deftest array-fixnum-fill-8
+  - [X] (deftest array-fixnum-fill-9
+  - [X] (deftest array-fixnum-fill-10
+  - [X] (deftest array-unsigned-byte8-fill-1
+  - [X] (deftest array-unsigned-byte8-fill-2
+  - [X] (deftest array-unsigned-byte8-fill-3
+  - [X] (deftest array-unsigned-byte8-fill-4
   - [ ] (deftest array-unsigned-byte8-fill-5
   - [ ] (deftest array-unsigned-byte8-fill-6
   - [ ] (deftest array-unsigned-byte8-fill-7
-  - [ ] (deftest array-unsigned-byte8-fill-8
-  - [ ] (deftest array-unsigned-byte8-fill-9
-  - [ ] (deftest array-unsigned-byte8-fill-10
-  - [ ] (deftest array-fill-pointer-fill.1
+  - [X] (deftest array-unsigned-byte8-fill-8
+  - [X] (deftest array-unsigned-byte8-fill-9
+  - [X] (deftest array-unsigned-byte8-fill-10
+  - [X] (deftest array-fill-pointer-fill.1
   - [ ] (deftest array-fill-pointer-fill.2
-  - [ ] (deftest fill.string.1
-  - [ ] (deftest fill.string.2
-  - [ ] (deftest fill.string.3
+  - [X] (deftest fill.string.1
+  - [X] (deftest fill.string.2
+  - [X] (deftest fill.string.3
   - [ ] (deftest fill.string.4
   - [ ] (deftest fill.string.5
   - [ ] (deftest fill.string.6
   - [ ] (deftest fill.string.7
   - [ ] (deftest fill.string.8
-  - [ ] (deftest fill.string.9
+  - [X] (deftest fill.string.9
   - [ ] (deftest fill.string.10
   - [ ] (deftest fill.bit-vector.1
   - [ ] (deftest fill.bit-vector.2
@@ -17512,44 +17512,44 @@
   - [ ] (deftest fill.specialized-vectors.1
   - [ ] (deftest fill.specialized-vectors.2
   - [ ] (deftest fill.specialized-vectors.3
-**** make-sequence.lsp [0%]
-  - [ ] (deftest make-sequence.1
-  - [ ] (deftest make-sequence.2
-  - [ ] (deftest make-sequence.3
-  - [ ] (deftest make-sequence.4
-  - [ ] (deftest make-sequence.5
-  - [ ] (deftest make-sequence.6
-  - [ ] (deftest make-sequence.7
-  - [ ] (deftest make-sequence.8
-  - [ ] (deftest make-sequence.9
-  - [ ] (deftest make-sequence.10
-  - [ ] (deftest make-sequence.11
-  - [ ] (deftest make-sequence.12
-  - [ ] (deftest make-sequence.13
-  - [ ] (deftest make-sequence.14
-  - [ ] (deftest make-sequence.15
-  - [ ] (deftest make-sequence.16
-  - [ ] (deftest make-sequence.17
-  - [ ] (deftest make-sequence.18
-  - [ ] (deftest make-sequence.19
-  - [ ] (deftest make-sequence.20
-  - [ ] (deftest make-sequence.21
-  - [ ] (deftest make-sequence.22
-  - [ ] (deftest make-sequence.23
-  - [ ] (deftest make-sequence.24
-  - [ ] (deftest make-sequence.25
+**** make-sequence.lsp [37%]
+  - [X] (deftest make-sequence.1
+  - [X] (deftest make-sequence.2
+  - [X] (deftest make-sequence.3
+  - [X] (deftest make-sequence.4
+  - [X] (deftest make-sequence.5
+  - [X] (deftest make-sequence.6
+  - [X] (deftest make-sequence.7
+  - [X] (deftest make-sequence.8
+  - [X] (deftest make-sequence.9
+  - [X] (deftest make-sequence.10
+  - [X] (deftest make-sequence.11
+  - [X] (deftest make-sequence.12
+  - [X] (deftest make-sequence.13
+  - [X] (deftest make-sequence.14
+  - [X] (deftest make-sequence.15
+  - [X] (deftest make-sequence.16
+  - [X] (deftest make-sequence.17
+  - [X] (deftest make-sequence.18
+  - [X] (deftest make-sequence.19
+  - [X] (deftest make-sequence.20
+  - [X] (deftest make-sequence.21
+  - [X] (deftest make-sequence.22
+  - [X] (deftest make-sequence.23
+  - [X] (deftest make-sequence.24
+  - [X] (deftest make-sequence.25
   - [ ] (deftest make-sequence.26
   - [ ] (deftest make-sequence.27
   - [ ] (deftest make-sequence.28
   - [ ] (deftest make-sequence.29
   - [ ] (deftest make-sequence.30
-  - [ ] (deftest make-sequence.31
-  - [ ] (deftest make-sequence.32
-  - [ ] (deftest make-sequence.33
-  - [ ] (deftest make-sequence.34
-  - [ ] (deftest make-sequence.35
-  - [ ] (deftest make-sequence.36
-  - [ ] (deftest make-sequence.37
+  - [X] (deftest make-sequence.31
+  - [X] (deftest make-sequence.32
+  - [X] (deftest make-sequence.33
+  - [X] (deftest make-sequence.34
+  - [X] (deftest make-sequence.35
+  - [X] (deftest make-sequence.36
+  - [X] (deftest make-sequence.37
   - [ ] (deftest make-sequence.38
   - [ ] (deftest make-sequence.39
   - [ ] (deftest make-sequence.40
@@ -17599,44 +17599,44 @@
   - [ ] (def-fold-test make-sequence.fold.2
   - [ ] (def-fold-test make-sequence.fold.3
   - [ ] (def-fold-test make-sequence.fold.4
-**** find-if.lsp [0%]
-  - [ ] (deftest find-if-list.1
-  - [ ] (deftest find-if-list.2
-  - [ ] (deftest find-if-list.2a
-  - [ ] (deftest find-if-list.3
+**** find-if.lsp [22%]
+  - [X] (deftest find-if-list.1
+  - [X] (deftest find-if-list.2
+  - [X] (deftest find-if-list.2a
+  - [X] (deftest find-if-list.3
   - [ ] (deftest find-if-list.4
-  - [ ] (deftest find-if-list.5
+  - [X] (deftest find-if-list.5
   - [ ] (deftest find-if-list.6
   - [ ] (deftest find-if-list.7
   - [ ] (deftest find-if-list.8
-  - [ ] (deftest find-if-list.9
+  - [X] (deftest find-if-list.9
   - [ ] (deftest find-if-list.10
-  - [ ] (deftest find-if-list.11
+  - [X] (deftest find-if-list.11
   - [ ] (deftest find-if-list.12
-  - [ ] (deftest find-if-list.13
+  - [X] (deftest find-if-list.13
   - [ ] (deftest find-if-list.14
-  - [ ] (deftest find-if-list.15
+  - [X] (deftest find-if-list.15
   - [ ] (deftest find-if-list.16
-  - [ ] (deftest find-if-list.17
+  - [X] (deftest find-if-list.17
   - [ ] (deftest find-if-list.18
-  - [ ] (deftest find-if-vector.1
-  - [ ] (deftest find-if-vector.2
-  - [ ] (deftest find-if-vector.2a
-  - [ ] (deftest find-if-vector.3
+  - [X] (deftest find-if-vector.1
+  - [X] (deftest find-if-vector.2
+  - [X] (deftest find-if-vector.2a
+  - [X] (deftest find-if-vector.3
   - [ ] (deftest find-if-vector.4
-  - [ ] (deftest find-if-vector.5
+  - [X] (deftest find-if-vector.5
   - [ ] (deftest find-if-vector.6
   - [ ] (deftest find-if-vector.7
   - [ ] (deftest find-if-vector.8
-  - [ ] (deftest find-if-vector.9
+  - [X] (deftest find-if-vector.9
   - [ ] (deftest find-if-vector.10
-  - [ ] (deftest find-if-vector.11
+  - [X] (deftest find-if-vector.11
   - [ ] (deftest find-if-vector.12
-  - [ ] (deftest find-if-vector.13
+  - [X] (deftest find-if-vector.13
   - [ ] (deftest find-if-vector.14
-  - [ ] (deftest find-if-vector.15
+  - [X] (deftest find-if-vector.15
   - [ ] (deftest find-if-vector.16
-  - [ ] (deftest find-if-vector.17
+  - [X] (deftest find-if-vector.17
   - [ ] (deftest find-if-vector.18
   - [ ] (deftest find-if-vector.19
   - [ ] (deftest find-if-bit-vector.1
@@ -17689,7 +17689,7 @@
   - [ ] (deftest find-if.order.1
   - [ ] (deftest find-if.order.2
   - [ ] (deftest find-if.order.3
-**** remove-duplicates.lsp [0%]
+**** remove-duplicates.lsp [34%]
   - [ ] (deftest random-remove-duplicates
   - [ ] (deftest random-delete-duplicates
   - [ ] (deftest remove-duplicates.1
@@ -17700,14 +17700,14 @@
   - [ ] (def-fold-test remove-duplicates.fold.4 (remove-duplicates "1233"))
   - [ ] (deftest remove-duplicates.order.1
   - [ ] (deftest remove-duplicates.order.2
-  - [ ] (deftest remove-duplicates.allow-other-keys.1
+  - [X] (deftest remove-duplicates.allow-other-keys.1
   - [ ] (deftest remove-duplicates.allow-other-keys.2
   - [ ] (deftest remove-duplicates.allow-other-keys.3
-  - [ ] (deftest remove-duplicates.allow-other-keys.4
+  - [X] (deftest remove-duplicates.allow-other-keys.4
   - [ ] (deftest remove-duplicates.allow-other-keys.5
   - [ ] (deftest remove-duplicates.allow-other-keys.6
   - [ ] (deftest remove-duplicates.allow-other-keys.7
-  - [ ] (deftest remove-duplicates.allow-other-keys.8
+  - [X] (deftest remove-duplicates.allow-other-keys.8
   - [ ] (deftest remove-duplicates.keywords.1
   - [ ] (deftest delete-duplicates.allow-other-keys.1
   - [ ] (deftest delete-duplicates.allow-other-keys.2
@@ -17720,32 +17720,32 @@
   - [ ] (deftest delete-duplicates.keywords.1
   - [ ] (deftest delete-duplicates.order.1
   - [ ] (deftest delete-duplicates.order.2
-  - [ ] (deftest remove-duplicates.error.1
-  - [ ] (deftest remove-duplicates.error.2
-  - [ ] (deftest remove-duplicates.error.3
-  - [ ] (deftest remove-duplicates.error.4
-  - [ ] (deftest remove-duplicates.error.5
-  - [ ] (deftest remove-duplicates.error.6
-  - [ ] (deftest remove-duplicates.error.7
-  - [ ] (deftest remove-duplicates.error.8
-  - [ ] (deftest remove-duplicates.error.9
+  - [X] (deftest remove-duplicates.error.1
+  - [X] (deftest remove-duplicates.error.2
+  - [X] (deftest remove-duplicates.error.3
+  - [X] (deftest remove-duplicates.error.4
+  - [X] (deftest remove-duplicates.error.5
+  - [X] (deftest remove-duplicates.error.6
+  - [X] (deftest remove-duplicates.error.7
+  - [X] (deftest remove-duplicates.error.8
+  - [X] (deftest remove-duplicates.error.9
   - [ ] (deftest remove-duplicates.error.10
-  - [ ] (deftest delete-duplicates.error.1
-  - [ ] (deftest delete-duplicates.error.2
-  - [ ] (deftest delete-duplicates.error.3
-  - [ ] (deftest delete-duplicates.error.4
-  - [ ] (deftest delete-duplicates.error.5
-  - [ ] (deftest delete-duplicates.error.6
-  - [ ] (deftest delete-duplicates.error.7
-  - [ ] (deftest delete-duplicates.error.8
-  - [ ] (deftest delete-duplicates.error.9
+  - [X] (deftest delete-duplicates.error.1
+  - [X] (deftest delete-duplicates.error.2
+  - [X] (deftest delete-duplicates.error.3
+  - [X] (deftest delete-duplicates.error.4
+  - [X] (deftest delete-duplicates.error.5
+  - [X] (deftest delete-duplicates.error.6
+  - [X] (deftest delete-duplicates.error.7
+  - [X] (deftest delete-duplicates.error.8
+  - [X] (deftest delete-duplicates.error.9
   - [ ] (deftest delete-duplicates.error.10
   - [ ] (deftest remove-duplicates.string.1
   - [ ] (deftest remove-duplicates.string.2
   - [ ] (deftest delete-duplicates.string.1
   - [ ] (deftest delete-duplicates.string.2
-  - [ ] (deftest remove-duplicates.2
-  - [ ] (deftest remove-duplicates.2a
+  - [X] (deftest remove-duplicates.2
+  - [X] (deftest remove-duplicates.2a
   - [ ] (deftest remove-duplicates.3
   - [ ] (deftest remove-duplicates.3a
   - [ ] (deftest remove-duplicates.4
@@ -17756,48 +17756,48 @@
   - [ ] (deftest delete-duplicates.3a
   - [ ] (deftest delete-duplicates.4
   - [ ] (deftest delete-duplicates.5
-**** substitute.lsp [0%]
-  - [ ] (deftest substitute-list.1
-  - [ ] (deftest substitute-list.2
-  - [ ] (deftest substitute-list.3
-  - [ ] (deftest substitute-list.4
-  - [ ] (deftest substitute-list.5
-  - [ ] (deftest substitute-list.6
-  - [ ] (deftest substitute-list.7
-  - [ ] (deftest substitute-list.8
-  - [ ] (deftest substitute-list.9
-  - [ ] (deftest substitute-list.10
-  - [ ] (deftest substitute-list.11
-  - [ ] (deftest substitute-list.12
-  - [ ] (deftest substitute-list.13
-  - [ ] (deftest substitute-list.14
-  - [ ] (deftest substitute-list.15
-  - [ ] (deftest substitute-list.16
-  - [ ] (deftest substitute-list.17
-  - [ ] (deftest substitute-list.18
-  - [ ] (deftest substitute-list.19
-  - [ ] (deftest substitute-list.20
-  - [ ] (deftest substitute-list.21
-  - [ ] (deftest substitute-list.22
-  - [ ] (deftest substitute-list.23
-  - [ ] (deftest substitute-list.24
-  - [ ] (deftest substitute-list.25
+**** substitute.lsp [52%]
+  - [X] (deftest substitute-list.1
+  - [X] (deftest substitute-list.2
+  - [X] (deftest substitute-list.3
+  - [X] (deftest substitute-list.4
+  - [X] (deftest substitute-list.5
+  - [X] (deftest substitute-list.6
+  - [X] (deftest substitute-list.7
+  - [X] (deftest substitute-list.8
+  - [X] (deftest substitute-list.9
+  - [X] (deftest substitute-list.10
+  - [X] (deftest substitute-list.11
+  - [X] (deftest substitute-list.12
+  - [X] (deftest substitute-list.13
+  - [X] (deftest substitute-list.14
+  - [X] (deftest substitute-list.15
+  - [X] (deftest substitute-list.16
+  - [X] (deftest substitute-list.17
+  - [X] (deftest substitute-list.18
+  - [X] (deftest substitute-list.19
+  - [X] (deftest substitute-list.20
+  - [X] (deftest substitute-list.21
+  - [X] (deftest substitute-list.22
+  - [X] (deftest substitute-list.23
+  - [X] (deftest substitute-list.24
+  - [X] (deftest substitute-list.25
   - [ ] (deftest substitute-list.26
-  - [ ] (deftest substitute-list.27
-  - [ ] (deftest substitute-vector.1
-  - [ ] (deftest substitute-vector.2
-  - [ ] (deftest substitute-vector.3
-  - [ ] (deftest substitute-vector.4
-  - [ ] (deftest substitute-vector.5
-  - [ ] (deftest substitute-vector.6
-  - [ ] (deftest substitute-vector.7
-  - [ ] (deftest substitute-vector.8
-  - [ ] (deftest substitute-vector.9
-  - [ ] (deftest substitute-vector.10
-  - [ ] (deftest substitute-vector.11
-  - [ ] (deftest substitute-vector.12
-  - [ ] (deftest substitute-vector.13
-  - [ ] (deftest substitute-vector.14
+  - [X] (deftest substitute-list.27
+  - [X] (deftest substitute-vector.1
+  - [X] (deftest substitute-vector.2
+  - [X] (deftest substitute-vector.3
+  - [X] (deftest substitute-vector.4
+  - [X] (deftest substitute-vector.5
+  - [X] (deftest substitute-vector.6
+  - [X] (deftest substitute-vector.7
+  - [X] (deftest substitute-vector.8
+  - [X] (deftest substitute-vector.9
+  - [X] (deftest substitute-vector.10
+  - [X] (deftest substitute-vector.11
+  - [X] (deftest substitute-vector.12
+  - [X] (deftest substitute-vector.13
+  - [X] (deftest substitute-vector.14
   - [ ] (deftest substitute-vector.15
   - [ ] (deftest substitute-vector.16
   - [ ] (deftest substitute-vector.17
@@ -17811,26 +17811,26 @@
   - [ ] (deftest substitute-vector.25
   - [ ] (deftest substitute-vector.26
   - [ ] (deftest substitute-vector.27
-  - [ ] (deftest substitute-vector.28
-  - [ ] (deftest substitute-vector.29
-  - [ ] (deftest substitute-vector.30
-  - [ ] (deftest substitute-vector.31
-  - [ ] (deftest substitute-vector.32
-  - [ ] (deftest substitute-vector.33
-  - [ ] (deftest substitute-string.1
-  - [ ] (deftest substitute-string.2
-  - [ ] (deftest substitute-string.3
-  - [ ] (deftest substitute-string.4
-  - [ ] (deftest substitute-string.5
-  - [ ] (deftest substitute-string.6
-  - [ ] (deftest substitute-string.7
-  - [ ] (deftest substitute-string.8
-  - [ ] (deftest substitute-string.9
-  - [ ] (deftest substitute-string.10
-  - [ ] (deftest substitute-string.11
-  - [ ] (deftest substitute-string.12
-  - [ ] (deftest substitute-string.13
-  - [ ] (deftest substitute-string.14
+  - [X] (deftest substitute-vector.28
+  - [X] (deftest substitute-vector.29
+  - [X] (deftest substitute-vector.30
+  - [X] (deftest substitute-vector.31
+  - [X] (deftest substitute-vector.32
+  - [X] (deftest substitute-vector.33
+  - [X] (deftest substitute-string.1
+  - [X] (deftest substitute-string.2
+  - [X] (deftest substitute-string.3
+  - [X] (deftest substitute-string.4
+  - [X] (deftest substitute-string.5
+  - [X] (deftest substitute-string.6
+  - [X] (deftest substitute-string.7
+  - [X] (deftest substitute-string.8
+  - [X] (deftest substitute-string.9
+  - [X] (deftest substitute-string.10
+  - [X] (deftest substitute-string.11
+  - [X] (deftest substitute-string.12
+  - [X] (deftest substitute-string.13
+  - [X] (deftest substitute-string.14
   - [ ] (deftest substitute-string.15
   - [ ] (deftest substitute-string.16
   - [ ] (deftest substitute-string.17
@@ -17844,10 +17844,10 @@
   - [ ] (deftest substitute-string.25
   - [ ] (deftest substitute-string.26
   - [ ] (deftest substitute-string.27
-  - [ ] (deftest substitute-string.28
-  - [ ] (deftest substitute-string.29
-  - [ ] (deftest substitute-string.30
-  - [ ] (deftest substitute-string.31
+  - [X] (deftest substitute-string.28
+  - [X] (deftest substitute-string.29
+  - [X] (deftest substitute-string.30
+  - [X] (deftest substitute-string.31
   - [ ] (deftest substitute-string.32
   - [ ] (deftest substitute-bit-vector.1
   - [ ] (deftest substitute-bit-vector.2
@@ -17882,14 +17882,14 @@
   - [ ] (deftest substitute-bit-vector.31
   - [ ] (deftest substitute-bit-vector.32
   - [ ] (deftest substitute-bit-vector.33
-  - [ ] (deftest substitute.order.1
-  - [ ] (deftest substitute.order.2
-  - [ ] (deftest substitute.allow-other-keys.1
+  - [X] (deftest substitute.order.1
+  - [X] (deftest substitute.order.2
+  - [X] (deftest substitute.allow-other-keys.1
   - [ ] (deftest substitute.allow-other-keys.2
   - [ ] (deftest substitute.allow-other-keys.3
   - [ ] (deftest substitute.allow-other-keys.4
-  - [ ] (deftest substitute.allow-other-keys.5
-  - [ ] (deftest substitute.keywords.6
+  - [X] (deftest substitute.allow-other-keys.5
+  - [X] (deftest substitute.keywords.6
   - [ ] (deftest substitute.allow-other-keys.7
   - [ ] (deftest substitute.allow-other-keys.8
   - [ ] (def-fold-test substitute.fold.1 (substitute 'z 'b '(a b c)))
@@ -17897,23 +17897,23 @@
   - [ ] (def-fold-test substitute.fold.3 (substitute 0 1 #*001101))
   - [ ] (def-fold-test substitute.fold.4 (substitute #\a #\b "abcebadfke"))
   - [ ] (deftest substitute.error.1
-  - [ ] (deftest substitute.error.2
-  - [ ] (deftest substitute.error.3
-  - [ ] (deftest substitute.error.4
-  - [ ] (deftest substitute.error.5
-  - [ ] (deftest substitute.error.6
-  - [ ] (deftest substitute.error.7
-  - [ ] (deftest substitute.error.8
-  - [ ] (deftest substitute.error.9
-  - [ ] (deftest substitute.error.10
-  - [ ] (deftest substitute.error.11
+  - [X] (deftest substitute.error.2
+  - [X] (deftest substitute.error.3
+  - [X] (deftest substitute.error.4
+  - [X] (deftest substitute.error.5
+  - [X] (deftest substitute.error.6
+  - [X] (deftest substitute.error.7
+  - [X] (deftest substitute.error.8
+  - [X] (deftest substitute.error.9
+  - [X] (deftest substitute.error.10
+  - [X] (deftest substitute.error.11
   - [ ] (deftest substitute.error.12
-**** nreverse.lsp [0%]
-  - [ ] (deftest nreverse-list.1
-  - [ ] (deftest nreverse-list.2
-  - [ ] (deftest nreverse-vector.1
-  - [ ] (deftest nreverse-vector.2
-  - [ ] (deftest nreverse-vector.4
+**** nreverse.lsp [20%]
+  - [X] (deftest nreverse-list.1
+  - [X] (deftest nreverse-list.2
+  - [X] (deftest nreverse-vector.1
+  - [X] (deftest nreverse-vector.2
+  - [X] (deftest nreverse-vector.4
   - [ ] (deftest nreverse-vector.5
   - [ ] (deftest nreverse-vector.6
   - [ ] (deftest nreverse-vector.7
@@ -17933,80 +17933,80 @@
   - [ ] (deftest nreverse.error.6
   - [ ] (deftest nreverse.error.7
   - [ ] (deftest nreverse.error.8
-**** fill-strings.lsp [0%]
-  - [ ] (deftest array-string-fill.1
-  - [ ] (deftest array-string-fill.2
-  - [ ] (deftest array-string-fill.3
-  - [ ] (deftest array-string-fill.4
-  - [ ] (deftest array-string-fill.5
-**** elt.lsp [0%]
-  - [ ] (deftest elt.1
-  - [ ] (deftest elt.1a
-  - [ ] (deftest elt.1b
-  - [ ] (deftest elt.2
-  - [ ] (deftest elt.3 (elt '(a b c d e) 0) a)
-  - [ ] (deftest elt.4 (elt '(a b c d e) 2) c)
-  - [ ] (deftest elt.5 (elt '(a b c d e) 4) e)
-  - [ ] (deftest elt.5a
-  - [ ] (deftest elt.6
-  - [ ] (deftest elt.7
-  - [ ] (deftest elt.8
-  - [ ] (deftest elt.9
-  - [ ] (deftest elt.10
-  - [ ] (deftest elt.11
-  - [ ] (deftest elt.12
-  - [ ] (deftest elt.13
-  - [ ] (deftest elt.14
-  - [ ] (deftest elt.15
-  - [ ] (deftest elt.16
-  - [ ] (deftest elt.17
-  - [ ] (deftest elt.18
-  - [ ] (deftest elt.19
-  - [ ] (deftest elt.order.1
-  - [ ] (deftest elt.order.2
-  - [ ] (deftest elt-v.1
-  - [ ] (deftest elt-v.3
-  - [ ] (deftest elt-v.4
-  - [ ] (deftest elt-v.5
-  - [ ] (deftest elt-v.6
-  - [ ] (deftest elt-v.7
-  - [ ] (deftest elt-v.8
-  - [ ] (deftest elt-v.9
-  - [ ] (deftest elt-v.10
-  - [ ] (deftest elt-v.11
-  - [ ] (deftest elt-v.12
-  - [ ] (deftest elt-v.13
-  - [ ] (deftest elt-adj-array.1
-  - [ ] (deftest elt-adj-array.3
-  - [ ] (deftest elt-adj-array.4
-  - [ ] (deftest elt-adj-array.5
-  - [ ] (deftest elt-adj-array.6
-  - [ ] (deftest elt-adj-array.7
-  - [ ] (deftest elt-adj-array.8
-  - [ ] (deftest elt-adj-array.9
-  - [ ] (deftest elt-adj-array.10
-  - [ ] (deftest elt-adj-array.11
-  - [ ] (deftest elt-adj-array.12
-  - [ ] (deftest elt-adj-array.13
-  - [ ] (deftest elt-displaced-array.1
-  - [ ] (deftest elt-displaced-array.2
-  - [ ] (deftest elt-displaced-array.3
-  - [ ] (deftest elt-fill-pointer.1
-  - [ ] (deftest elt-fill-pointer.2
-  - [ ] (deftest elt-fill-pointer.3
-  - [ ] (deftest elt-fill-pointer.4
-  - [ ] (deftest elt-fill-pointer.5
-  - [ ] (deftest elt-fill-pointer.6
-  - [ ] (deftest elt-fill-pointer.7
-  - [ ] (deftest elt-fill-pointer.8
+**** fill-strings.lsp [100%]
+  - [X] (deftest array-string-fill.1
+  - [X] (deftest array-string-fill.2
+  - [X] (deftest array-string-fill.3
+  - [X] (deftest array-string-fill.4
+  - [X] (deftest array-string-fill.5
+**** elt.lsp [89%]
+  - [X] (deftest elt.1
+  - [X] (deftest elt.1a
+  - [X] (deftest elt.1b
+  - [X] (deftest elt.2
+  - [X] (deftest elt.3 (elt '(a b c d e) 0) a)
+  - [X] (deftest elt.4 (elt '(a b c d e) 2) c)
+  - [X] (deftest elt.5 (elt '(a b c d e) 4) e)
+  - [X] (deftest elt.5a
+  - [X] (deftest elt.6
+  - [X] (deftest elt.7
+  - [X] (deftest elt.8
+  - [X] (deftest elt.9
+  - [X] (deftest elt.10
+  - [X] (deftest elt.11
+  - [X] (deftest elt.12
+  - [X] (deftest elt.13
+  - [X] (deftest elt.14
+  - [X] (deftest elt.15
+  - [X] (deftest elt.16
+  - [X] (deftest elt.17
+  - [X] (deftest elt.18
+  - [X] (deftest elt.19
+  - [X] (deftest elt.order.1
+  - [X] (deftest elt.order.2
+  - [X] (deftest elt-v.1
+  - [X] (deftest elt-v.3
+  - [X] (deftest elt-v.4
+  - [X] (deftest elt-v.5
+  - [X] (deftest elt-v.6
+  - [X] (deftest elt-v.7
+  - [X] (deftest elt-v.8
+  - [X] (deftest elt-v.9
+  - [X] (deftest elt-v.10
+  - [X] (deftest elt-v.11
+  - [X] (deftest elt-v.12
+  - [X] (deftest elt-v.13
+  - [X] (deftest elt-adj-array.1
+  - [X] (deftest elt-adj-array.3
+  - [X] (deftest elt-adj-array.4
+  - [X] (deftest elt-adj-array.5
+  - [X] (deftest elt-adj-array.6
+  - [X] (deftest elt-adj-array.7
+  - [X] (deftest elt-adj-array.8
+  - [X] (deftest elt-adj-array.9
+  - [X] (deftest elt-adj-array.10
+  - [X] (deftest elt-adj-array.11
+  - [X] (deftest elt-adj-array.12
+  - [X] (deftest elt-adj-array.13
+  - [X] (deftest elt-displaced-array.1
+  - [X] (deftest elt-displaced-array.2
+  - [X] (deftest elt-displaced-array.3
+  - [X] (deftest elt-fill-pointer.1
+  - [X] (deftest elt-fill-pointer.2
+  - [X] (deftest elt-fill-pointer.3
+  - [X] (deftest elt-fill-pointer.4
+  - [X] (deftest elt-fill-pointer.5
+  - [X] (deftest elt-fill-pointer.6
+  - [X] (deftest elt-fill-pointer.7
+  - [X] (deftest elt-fill-pointer.8
   - [ ] (deftest elt.special-strings.1
   - [ ] (deftest elt.special-vectors.1
   - [ ] (deftest elt.special-vectors.2
   - [ ] (deftest elt.special-vectors.3
   - [ ] (deftest elt.special-vectors.4
-  - [ ] (deftest elt.error.1
-  - [ ] (deftest elt.error.2
-  - [ ] (deftest elt.error.3
+  - [X] (deftest elt.error.1
+  - [X] (deftest elt.error.2
+  - [X] (deftest elt.error.3
   - [ ] (deftest elt.error.4
   - [ ] (deftest elt.error.5
 **** search-string.lsp [0%]
@@ -18029,17 +18029,17 @@
   - [ ] (deftest search-string.18
   - [ ] (deftest search-string.19
   - [ ] (deftest search-string.20
-**** concatenate.lsp [0%]
-  - [ ] (deftest concatenate.1
-  - [ ] (deftest concatenate.2
-  - [ ] (deftest concatenate.3
-  - [ ] (deftest concatenate.4
-  - [ ] (deftest concatenate.5
-  - [ ] (deftest concatenate.6
-  - [ ] (deftest concatenate.7
+**** concatenate.lsp [13%]
+  - [X] (deftest concatenate.1
+  - [X] (deftest concatenate.2
+  - [X] (deftest concatenate.3
+  - [X] (deftest concatenate.4
+  - [X] (deftest concatenate.5
+  - [X] (deftest concatenate.6
+  - [X] (deftest concatenate.7
   - [ ] (deftest concatenate.8
   - [ ] (deftest concatenate.9
-  - [ ] (deftest concatenate.10
+  - [X] (deftest concatenate.10
   - [ ] (deftest concatenate.11
   - [ ] (deftest concatenate.12
   - [ ] (deftest concatenate.13
@@ -18091,51 +18091,51 @@
   - [ ] (deftest concatenate.error.4
   - [ ] (deftest concatenate.error.5
   - [ ] (deftest concatenate.error.6
-**** count-if-not.lsp [0%]
-  - [ ] (deftest count-if-not-list.1
-  - [ ] (deftest count-if-not-list.2
-  - [ ] (deftest count-if-not-list.3
-  - [ ] (deftest count-if-not-list.4
-  - [ ] (deftest count-if-not-list.5
-  - [ ] (deftest count-if-not-list.6
-  - [ ] (deftest count-if-not-list.8
-  - [ ] (deftest count-if-not-list.9
-  - [ ] (deftest count-if-not-list.10
-  - [ ] (deftest count-if-not-list.11
+**** count-if-not.lsp [39%]
+  - [X] (deftest count-if-not-list.1
+  - [X] (deftest count-if-not-list.2
+  - [X] (deftest count-if-not-list.3
+  - [X] (deftest count-if-not-list.4
+  - [X] (deftest count-if-not-list.5
+  - [X] (deftest count-if-not-list.6
+  - [X] (deftest count-if-not-list.8
+  - [X] (deftest count-if-not-list.9
+  - [X] (deftest count-if-not-list.10
+  - [X] (deftest count-if-not-list.11
   - [ ] (deftest count-if-not-list.12
-  - [ ] (deftest count-if-not-list.13
-  - [ ] (deftest count-if-not-list.14
-  - [ ] (deftest count-if-not-list.15
+  - [X] (deftest count-if-not-list.13
+  - [X] (deftest count-if-not-list.14
+  - [X] (deftest count-if-not-list.15
   - [ ] (deftest count-if-not-list.16
-  - [ ] (deftest count-if-not-vector.1
-  - [ ] (deftest count-if-not-vector.2
-  - [ ] (deftest count-if-not-vector.3
-  - [ ] (deftest count-if-not-vector.4
-  - [ ] (deftest count-if-not-vector.5
-  - [ ] (deftest count-if-not-vector.6
-  - [ ] (deftest count-if-not-vector.8
-  - [ ] (deftest count-if-not-vector.9
-  - [ ] (deftest count-if-not-vector.10
-  - [ ] (deftest count-if-not-vector.11
+  - [X] (deftest count-if-not-vector.1
+  - [X] (deftest count-if-not-vector.2
+  - [X] (deftest count-if-not-vector.3
+  - [X] (deftest count-if-not-vector.4
+  - [X] (deftest count-if-not-vector.5
+  - [X] (deftest count-if-not-vector.6
+  - [X] (deftest count-if-not-vector.8
+  - [X] (deftest count-if-not-vector.9
+  - [X] (deftest count-if-not-vector.10
+  - [X] (deftest count-if-not-vector.11
   - [ ] (deftest count-if-not-vector.12
-  - [ ] (deftest count-if-not-vector.13
-  - [ ] (deftest count-if-not-vector.14
-  - [ ] (deftest count-if-not-vector.15
+  - [X] (deftest count-if-not-vector.13
+  - [X] (deftest count-if-not-vector.14
+  - [X] (deftest count-if-not-vector.15
   - [ ] (deftest count-if-not-vector.16
-  - [ ] (deftest count-if-not-nonsimple-vector.1
-  - [ ] (deftest count-if-not-nonsimple-vector.2
-  - [ ] (deftest count-if-not-nonsimple-vector.3
-  - [ ] (deftest count-if-not-nonsimple-vector.4
-  - [ ] (deftest count-if-not-nonsimple-vector.5
-  - [ ] (deftest count-if-not-nonsimple-vector.6
-  - [ ] (deftest count-if-not-nonsimple-vector.8
-  - [ ] (deftest count-if-not-nonsimple-vector.9
-  - [ ] (deftest count-if-not-nonsimple-vector.10
-  - [ ] (deftest count-if-not-nonsimple-vector.11
+  - [X] (deftest count-if-not-nonsimple-vector.1
+  - [X] (deftest count-if-not-nonsimple-vector.2
+  - [X] (deftest count-if-not-nonsimple-vector.3
+  - [X] (deftest count-if-not-nonsimple-vector.4
+  - [X] (deftest count-if-not-nonsimple-vector.5
+  - [X] (deftest count-if-not-nonsimple-vector.6
+  - [X] (deftest count-if-not-nonsimple-vector.8
+  - [X] (deftest count-if-not-nonsimple-vector.9
+  - [X] (deftest count-if-not-nonsimple-vector.10
+  - [X] (deftest count-if-not-nonsimple-vector.11
   - [ ] (deftest count-if-not-nonsimple-vector.12
-  - [ ] (deftest count-if-not-nonsimple-vector.13
-  - [ ] (deftest count-if-not-nonsimple-vector.14
-  - [ ] (deftest count-if-not-nonsimple-vector.15
+  - [X] (deftest count-if-not-nonsimple-vector.13
+  - [X] (deftest count-if-not-nonsimple-vector.14
+  - [X] (deftest count-if-not-nonsimple-vector.15
   - [ ] (deftest count-if-not-nonsimple-vector.16
   - [ ] (deftest count-if-not-nonsimple-vector.17
   - [ ] (deftest count-if-not.special-vector.2
@@ -18191,53 +18191,53 @@
   - [ ] (deftest count-if-not.error.13
   - [ ] (deftest count-if-not.error.14
   - [ ] (deftest count-if-not.error.15
-**** mismatch.lsp [0%]
-  - [ ] (deftest mismatch-list.1
-  - [ ] (deftest mismatch-list.2
-  - [ ] (deftest mismatch-list.3
-  - [ ] (deftest mismatch-list.4
-  - [ ] (deftest mismatch-list.5
-  - [ ] (deftest mismatch-list.6
-  - [ ] (deftest mismatch-list.7
-  - [ ] (deftest mismatch-list.8
-  - [ ] (deftest mismatch-list.9
+**** mismatch.lsp [20%]
+  - [X] (deftest mismatch-list.1
+  - [X] (deftest mismatch-list.2
+  - [X] (deftest mismatch-list.3
+  - [X] (deftest mismatch-list.4
+  - [X] (deftest mismatch-list.5
+  - [X] (deftest mismatch-list.6
+  - [X] (deftest mismatch-list.7
+  - [X] (deftest mismatch-list.8
+  - [X] (deftest mismatch-list.9
   - [ ] (deftest mismatch-list.10
   - [ ] (deftest mismatch-list.11
   - [ ] (deftest mismatch-list.12
-  - [ ] (deftest mismatch-list.13
+  - [X] (deftest mismatch-list.13
   - [ ] (deftest mismatch-list.14
-  - [ ] (deftest mismatch-list.15
-  - [ ] (deftest mismatch-list.16
-  - [ ] (deftest mismatch-list.17
-  - [ ] (deftest mismatch-list.18
+  - [X] (deftest mismatch-list.15
+  - [X] (deftest mismatch-list.16
+  - [X] (deftest mismatch-list.17
+  - [X] (deftest mismatch-list.18
   - [ ] (deftest mismatch-list.19
   - [ ] (deftest mismatch-list.20
   - [ ] (deftest mismatch-list.21
   - [ ] (deftest mismatch-list.22
-  - [ ] (deftest mismatch-vector.1
-  - [ ] (deftest mismatch-vector.2
-  - [ ] (deftest mismatch-vector.3
-  - [ ] (deftest mismatch-vector.4
-  - [ ] (deftest mismatch-vector.5
-  - [ ] (deftest mismatch-vector.6
-  - [ ] (deftest mismatch-vector.7
-  - [ ] (deftest mismatch-vector.8
-  - [ ] (deftest mismatch-vector.9
+  - [X] (deftest mismatch-vector.1
+  - [X] (deftest mismatch-vector.2
+  - [X] (deftest mismatch-vector.3
+  - [X] (deftest mismatch-vector.4
+  - [X] (deftest mismatch-vector.5
+  - [X] (deftest mismatch-vector.6
+  - [X] (deftest mismatch-vector.7
+  - [X] (deftest mismatch-vector.8
+  - [X] (deftest mismatch-vector.9
   - [ ] (deftest mismatch-vector.10
   - [ ] (deftest mismatch-vector.11
   - [ ] (deftest mismatch-vector.12
-  - [ ] (deftest mismatch-vector.13
+  - [X] (deftest mismatch-vector.13
   - [ ] (deftest mismatch-vector.14
-  - [ ] (deftest mismatch-vector.15
-  - [ ] (deftest mismatch-vector.16
-  - [ ] (deftest mismatch-vector.17
-  - [ ] (deftest mismatch-vector.18
+  - [X] (deftest mismatch-vector.15
+  - [X] (deftest mismatch-vector.16
+  - [X] (deftest mismatch-vector.17
+  - [X] (deftest mismatch-vector.18
   - [ ] (deftest mismatch-vector.19
   - [ ] (deftest mismatch-vector.20
   - [ ] (deftest mismatch-vector.21
   - [ ] (deftest mismatch-vector.22
-  - [ ] (deftest mismatch-vector.23
-  - [ ] (deftest mismatch-vector.24
+  - [X] (deftest mismatch-vector.23
+  - [X] (deftest mismatch-vector.24
   - [ ] (deftest mismatch-bit-vector.1
   - [ ] (deftest mismatch-bit-vector.1a
   - [ ] (deftest mismatch-bit-vector.1b
@@ -18341,17 +18341,17 @@
   - [ ] (deftest mismatch.error.8
   - [ ] (deftest mismatch.error.9
   - [ ] (deftest mismatch.error.10
-**** copy-seq.lsp [0%]
-  - [ ] (deftest copy-seq.1
+**** copy-seq.lsp [9%]
+  - [X] (deftest copy-seq.1
   - [ ] (deftest copy-seq.2
-  - [ ] (deftest copy-seq.3
+  - [X] (deftest copy-seq.3
   - [ ] (deftest copy-seq.4
   - [ ] (deftest copy-seq.5
   - [ ] (deftest copy-seq.6
   - [ ] (deftest copy-seq.7
   - [ ] (deftest copy-seq.8
   - [ ] (deftest copy-seq.9
-  - [ ] (deftest copy-seq.10
+  - [X] (deftest copy-seq.10
   - [ ] (deftest copy-seq.11
   - [ ] (deftest copy-seq.12
   - [ ] (deftest copy-seq.13
@@ -18443,7 +18443,7 @@
   - [ ] (deftest nsubstitute-if-string.32
   - [ ] (deftest nsubstitute-if-string.33
   - [ ] (deftest nsubstitute-if-string.34
-  - [ ] (deftest nsubstitute-if-bit-vector.1
+  - [X] (deftest nsubstitute-if-bit-vector.1
   - [ ] (deftest nsubstitute-if-bit-vector.2
   - [ ] (deftest nsubstitute-if-bit-vector.3
   - [ ] (deftest nsubstitute-if-bit-vector.4
@@ -18498,7 +18498,7 @@
   - [ ] (deftest nsubstitute-if.error.10
   - [ ] (deftest nsubstitute-if.error.11
   - [ ] (deftest nsubstitute-if.error.12
-**** remove.lsp [0%]
+**** remove.lsp [8%]
   - [ ] (deftest remove-list.1
   - [ ] (deftest remove-list.2
   - [ ] (deftest remove-list.3
@@ -18528,19 +18528,19 @@
   - [ ] (deftest remove-list.27
   - [ ] (deftest remove-list.28
   - [ ] (deftest remove-list.29
-  - [ ] (deftest remove-vector.1
-  - [ ] (deftest remove-vector.2
-  - [ ] (deftest remove-vector.3
-  - [ ] (deftest remove-string.1
-  - [ ] (deftest remove-string.2
-  - [ ] (deftest remove-string.3
+  - [X] (deftest remove-vector.1
+  - [X] (deftest remove-vector.2
+  - [X] (deftest remove-vector.3
+  - [X] (deftest remove-string.1
+  - [X] (deftest remove-string.2
+  - [X] (deftest remove-string.3
   - [ ] (deftest remove-string.4
-  - [ ] (deftest delete-vector.1
-  - [ ] (deftest delete-vector.2
-  - [ ] (deftest delete-vector.3
-  - [ ] (deftest delete-string.1
-  - [ ] (deftest delete-string.2
-  - [ ] (deftest delete-string.3
+  - [X] (deftest delete-vector.1
+  - [X] (deftest delete-vector.2
+  - [X] (deftest delete-vector.3
+  - [X] (deftest delete-string.1
+  - [X] (deftest delete-string.2
+  - [X] (deftest delete-string.3
   - [ ] (deftest delete-string.4
   - [ ] (deftest delete-string.5
   - [ ] (deftest delete-string.6
@@ -18674,70 +18674,70 @@
   - [ ] (deftest stable-sort.error.9
   - [ ] (deftest stable-sort.error.10
   - [ ] (deftest stable-sort.error.11
-**** position.lsp [0%]
-  - [ ] (deftest position-list.1
+**** position.lsp [22%]
+  - [X] (deftest position-list.1
   - [ ] (deftest position-list.2
-  - [ ] (deftest position-list.3
+  - [X] (deftest position-list.3
   - [ ] (deftest position-list.4
-  - [ ] (deftest position-list.5
+  - [X] (deftest position-list.5
   - [ ] (deftest position-list.6
   - [ ] (deftest position-list.7
   - [ ] (deftest position-list.8
-  - [ ] (deftest position-list.9
+  - [X] (deftest position-list.9
   - [ ] (deftest position-list.10
-  - [ ] (deftest position-list.11
-  - [ ] (deftest position-list.12
+  - [X] (deftest position-list.11
+  - [X] (deftest position-list.12
   - [ ] (deftest position-list.13
   - [ ] (deftest position-list.14
   - [ ] (deftest position-list.15
-  - [ ] (deftest position-list.16
+  - [X] (deftest position-list.16
   - [ ] (deftest position-list.17
-  - [ ] (deftest position-list.18
+  - [X] (deftest position-list.18
   - [ ] (deftest position-list.19
-  - [ ] (deftest position-list.20
-  - [ ] (deftest position-list.21
+  - [X] (deftest position-list.20
+  - [X] (deftest position-list.21
   - [ ] (deftest position-list.22
-  - [ ] (deftest position-list.23
+  - [X] (deftest position-list.23
   - [ ] (deftest position-list.24
-  - [ ] (deftest position-list.25
-  - [ ] (deftest position-list.26
-  - [ ] (deftest position-list.27
+  - [X] (deftest position-list.25
+  - [X] (deftest position-list.26
+  - [X] (deftest position-list.27
   - [ ] (deftest position-list.28
-  - [ ] (deftest position-list.29
-  - [ ] (deftest position-list.30
-  - [ ] (deftest position-vector.1
+  - [X] (deftest position-list.29
+  - [X] (deftest position-list.30
+  - [X] (deftest position-vector.1
   - [ ] (deftest position-vector.2
-  - [ ] (deftest position-vector.3
+  - [X] (deftest position-vector.3
   - [ ] (deftest position-vector.4
-  - [ ] (deftest position-vector.5
+  - [X] (deftest position-vector.5
   - [ ] (deftest position-vector.6
   - [ ] (deftest position-vector.7
   - [ ] (deftest position-vector.8
-  - [ ] (deftest position-vector.9
+  - [X] (deftest position-vector.9
   - [ ] (deftest position-vector.10
-  - [ ] (deftest position-vector.11
-  - [ ] (deftest position-vector.12
+  - [X] (deftest position-vector.11
+  - [X] (deftest position-vector.12
   - [ ] (deftest position-vector.13
   - [ ] (deftest position-vector.14
   - [ ] (deftest position-vector.15
-  - [ ] (deftest position-vector.16
+  - [X] (deftest position-vector.16
   - [ ] (deftest position-vector.17
-  - [ ] (deftest position-vector.18
+  - [X] (deftest position-vector.18
   - [ ] (deftest position-vector.19
-  - [ ] (deftest position-vector.20
-  - [ ] (deftest position-vector.21
+  - [X] (deftest position-vector.20
+  - [X] (deftest position-vector.21
   - [ ] (deftest position-vector.22
-  - [ ] (deftest position-vector.23
+  - [X] (deftest position-vector.23
   - [ ] (deftest position-vector.24
-  - [ ] (deftest position-vector.25
-  - [ ] (deftest position-vector.26
-  - [ ] (deftest position-vector.27
+  - [X] (deftest position-vector.25
+  - [X] (deftest position-vector.26
+  - [X] (deftest position-vector.27
   - [ ] (deftest position-vector.28
-  - [ ] (deftest position-vector.29
-  - [ ] (deftest position-vector.30
+  - [X] (deftest position-vector.29
+  - [X] (deftest position-vector.30
   - [ ] (deftest position-vector.31
-  - [ ] (deftest position-vector.32
-  - [ ] (deftest position-vector.33
+  - [X] (deftest position-vector.32
+  - [X] (deftest position-vector.33
   - [ ] (deftest position-vector.34
   - [ ] (deftest position-bit-vector.1
   - [ ] (deftest position-bit-vector.2
@@ -18890,85 +18890,85 @@
   - [ ] (deftest map-into.error.8
   - [ ] (deftest map-into.order.1
   - [ ] (deftest map-into.order.2
-**** nsubstitute.lsp [0%]
-  - [ ] (deftest nsubstitute-list.1
-  - [ ] (deftest nsubstitute-list.2
-  - [ ] (deftest nsubstitute-list.3
-  - [ ] (deftest nsubstitute-list.4
-  - [ ] (deftest nsubstitute-list.5
-  - [ ] (deftest nsubstitute-list.6
-  - [ ] (deftest nsubstitute-list.7
-  - [ ] (deftest nsubstitute-list.8
-  - [ ] (deftest nsubstitute-list.9
-  - [ ] (deftest nsubstitute-list.10
-  - [ ] (deftest nsubstitute-list.11
-  - [ ] (deftest nsubstitute-list.12
-  - [ ] (deftest nsubstitute-list.13
-  - [ ] (deftest nsubstitute-list.14
-  - [ ] (deftest nsubstitute-list.15
-  - [ ] (deftest nsubstitute-list.16
-  - [ ] (deftest nsubstitute-list.17
-  - [ ] (deftest nsubstitute-list.18
-  - [ ] (deftest nsubstitute-list.19
-  - [ ] (deftest nsubstitute-list.20
-  - [ ] (deftest nsubstitute-list.21
-  - [ ] (deftest nsubstitute-list.22
-  - [ ] (deftest nsubstitute-list.23
-  - [ ] (deftest nsubstitute-vector.1
-  - [ ] (deftest nsubstitute-vector.2
-  - [ ] (deftest nsubstitute-vector.3
-  - [ ] (deftest nsubstitute-vector.4
-  - [ ] (deftest nsubstitute-vector.5
-  - [ ] (deftest nsubstitute-vector.6
-  - [ ] (deftest nsubstitute-vector.7
-  - [ ] (deftest nsubstitute-vector.8
-  - [ ] (deftest nsubstitute-vector.9
-  - [ ] (deftest nsubstitute-vector.10
-  - [ ] (deftest nsubstitute-vector.11
-  - [ ] (deftest nsubstitute-vector.12
-  - [ ] (deftest nsubstitute-vector.13
-  - [ ] (deftest nsubstitute-vector.14
+**** nsubstitute.lsp [48%]
+  - [X] (deftest nsubstitute-list.1
+  - [X] (deftest nsubstitute-list.2
+  - [X] (deftest nsubstitute-list.3
+  - [X] (deftest nsubstitute-list.4
+  - [X] (deftest nsubstitute-list.5
+  - [X] (deftest nsubstitute-list.6
+  - [X] (deftest nsubstitute-list.7
+  - [X] (deftest nsubstitute-list.8
+  - [X] (deftest nsubstitute-list.9
+  - [X] (deftest nsubstitute-list.10
+  - [X] (deftest nsubstitute-list.11
+  - [X] (deftest nsubstitute-list.12
+  - [X] (deftest nsubstitute-list.13
+  - [X] (deftest nsubstitute-list.14
+  - [X] (deftest nsubstitute-list.15
+  - [X] (deftest nsubstitute-list.16
+  - [X] (deftest nsubstitute-list.17
+  - [X] (deftest nsubstitute-list.18
+  - [X] (deftest nsubstitute-list.19
+  - [X] (deftest nsubstitute-list.20
+  - [X] (deftest nsubstitute-list.21
+  - [X] (deftest nsubstitute-list.22
+  - [X] (deftest nsubstitute-list.23
+  - [X] (deftest nsubstitute-vector.1
+  - [X] (deftest nsubstitute-vector.2
+  - [X] (deftest nsubstitute-vector.3
+  - [X] (deftest nsubstitute-vector.4
+  - [X] (deftest nsubstitute-vector.5
+  - [X] (deftest nsubstitute-vector.6
+  - [X] (deftest nsubstitute-vector.7
+  - [X] (deftest nsubstitute-vector.8
+  - [X] (deftest nsubstitute-vector.9
+  - [X] (deftest nsubstitute-vector.10
+  - [X] (deftest nsubstitute-vector.11
+  - [X] (deftest nsubstitute-vector.12
+  - [X] (deftest nsubstitute-vector.13
+  - [X] (deftest nsubstitute-vector.14
   - [ ] (deftest nsubstitute-vector.15
   - [ ] (deftest nsubstitute-vector.16
   - [ ] (deftest nsubstitute-vector.17
   - [ ] (deftest nsubstitute-vector.18
-  - [ ] (deftest nsubstitute-vector.19
-  - [ ] (deftest nsubstitute-vector.20
-  - [ ] (deftest nsubstitute-vector.21
-  - [ ] (deftest nsubstitute-vector.22
-  - [ ] (deftest nsubstitute-vector.23
-  - [ ] (deftest nsubstitute-vector.28
-  - [ ] (deftest nsubstitute-vector.29
-  - [ ] (deftest nsubstitute-vector.30
-  - [ ] (deftest nsubstitute-vector.31
-  - [ ] (deftest nsubstitute-string.1
-  - [ ] (deftest nsubstitute-string.2
-  - [ ] (deftest nsubstitute-string.3
-  - [ ] (deftest nsubstitute-string.4
-  - [ ] (deftest nsubstitute-string.5
-  - [ ] (deftest nsubstitute-string.6
-  - [ ] (deftest nsubstitute-string.7
-  - [ ] (deftest nsubstitute-string.8
-  - [ ] (deftest nsubstitute-string.9
-  - [ ] (deftest nsubstitute-string.10
-  - [ ] (deftest nsubstitute-string.11
-  - [ ] (deftest nsubstitute-string.12
-  - [ ] (deftest nsubstitute-string.13
-  - [ ] (deftest nsubstitute-string.14
+  - [X] (deftest nsubstitute-vector.19
+  - [X] (deftest nsubstitute-vector.20
+  - [X] (deftest nsubstitute-vector.21
+  - [X] (deftest nsubstitute-vector.22
+  - [X] (deftest nsubstitute-vector.23
+  - [X] (deftest nsubstitute-vector.28
+  - [X] (deftest nsubstitute-vector.29
+  - [X] (deftest nsubstitute-vector.30
+  - [X] (deftest nsubstitute-vector.31
+  - [X] (deftest nsubstitute-string.1
+  - [X] (deftest nsubstitute-string.2
+  - [X] (deftest nsubstitute-string.3
+  - [X] (deftest nsubstitute-string.4
+  - [X] (deftest nsubstitute-string.5
+  - [X] (deftest nsubstitute-string.6
+  - [X] (deftest nsubstitute-string.7
+  - [X] (deftest nsubstitute-string.8
+  - [X] (deftest nsubstitute-string.9
+  - [X] (deftest nsubstitute-string.10
+  - [X] (deftest nsubstitute-string.11
+  - [X] (deftest nsubstitute-string.12
+  - [X] (deftest nsubstitute-string.13
+  - [X] (deftest nsubstitute-string.14
   - [ ] (deftest nsubstitute-string.15
   - [ ] (deftest nsubstitute-string.16
   - [ ] (deftest nsubstitute-string.17
   - [ ] (deftest nsubstitute-string.18
-  - [ ] (deftest nsubstitute-string.19
-  - [ ] (deftest nsubstitute-string.20
-  - [ ] (deftest nsubstitute-string.21
-  - [ ] (deftest nsubstitute-string.22
-  - [ ] (deftest nsubstitute-string.23
-  - [ ] (deftest nsubstitute-string.28
-  - [ ] (deftest nsubstitute-string.29
-  - [ ] (deftest nsubstitute-string.30
-  - [ ] (deftest nsubstitute-string.31
-  - [ ] (deftest nsubstitute-bit-vector.1
+  - [X] (deftest nsubstitute-string.19
+  - [X] (deftest nsubstitute-string.20
+  - [X] (deftest nsubstitute-string.21
+  - [X] (deftest nsubstitute-string.22
+  - [X] (deftest nsubstitute-string.23
+  - [X] (deftest nsubstitute-string.28
+  - [X] (deftest nsubstitute-string.29
+  - [X] (deftest nsubstitute-string.30
+  - [X] (deftest nsubstitute-string.31
+  - [X] (deftest nsubstitute-bit-vector.1
   - [ ] (deftest nsubstitute-bit-vector.2
   - [ ] (deftest nsubstitute-bit-vector.3
   - [ ] (deftest nsubstitute-bit-vector.4
@@ -19036,7 +19036,7 @@
   - [ ] (deftest nsubstitute.error.10
   - [ ] (deftest nsubstitute.error.11
   - [ ] (deftest nsubstitute.error.12
-**** search-list.lsp [0%]
+**** search-list.lsp [27%]
   - [ ] (deftest search-list.1
   - [ ] (deftest search-list.2
   - [ ] (deftest search-list.3
@@ -19061,42 +19061,42 @@
   - [ ] (deftest search.allow-other-keys.6
   - [ ] (deftest search.allow-other-keys.7
   - [ ] (deftest search.keywords.8
-  - [ ] (deftest search.error.1
-  - [ ] (deftest search.error.2
-  - [ ] (deftest search.error.3
-  - [ ] (deftest search.error.4
-  - [ ] (deftest search.error.5
-  - [ ] (deftest search.error.6
-  - [ ] (deftest search.error.7
-  - [ ] (deftest search.error.8
-  - [ ] (deftest search.error.9
-  - [ ] (deftest search.error.10
+  - [X] (deftest search.error.1
+  - [X] (deftest search.error.2
+  - [X] (deftest search.error.3
+  - [X] (deftest search.error.4
+  - [X] (deftest search.error.5
+  - [X] (deftest search.error.6
+  - [X] (deftest search.error.7
+  - [X] (deftest search.error.8
+  - [X] (deftest search.error.9
+  - [X] (deftest search.error.10
   - [ ] (deftest search.order.1
   - [ ] (deftest search.order.2
-**** position-if.lsp [0%]
-  - [ ] (deftest position-if-list.1
-  - [ ] (deftest position-if-list.2
-  - [ ] (deftest position-if-list.3
+**** position-if.lsp [15%]
+  - [X] (deftest position-if-list.1
+  - [X] (deftest position-if-list.2
+  - [X] (deftest position-if-list.3
   - [ ] (deftest position-if-list.4
   - [ ] (deftest position-if-list.5
   - [ ] (deftest position-if-list.6
   - [ ] (deftest position-if-list.7
-  - [ ] (deftest position-if-list.8
-  - [ ] (deftest position-if-list.9
+  - [X] (deftest position-if-list.8
+  - [X] (deftest position-if-list.9
   - [ ] (deftest position-if-list.10
-  - [ ] (deftest position-if-list.11
+  - [X] (deftest position-if-list.11
   - [ ] (deftest position-if-list.12
-  - [ ] (deftest position-if-vector.1
-  - [ ] (deftest position-if-vector.2
-  - [ ] (deftest position-if-vector.3
+  - [X] (deftest position-if-vector.1
+  - [X] (deftest position-if-vector.2
+  - [X] (deftest position-if-vector.3
   - [ ] (deftest position-if-vector.4
   - [ ] (deftest position-if-vector.5
   - [ ] (deftest position-if-vector.6
   - [ ] (deftest position-if-vector.7
-  - [ ] (deftest position-if-vector.8
-  - [ ] (deftest position-if-vector.9
+  - [X] (deftest position-if-vector.8
+  - [X] (deftest position-if-vector.9
   - [ ] (deftest position-if-vector.10
-  - [ ] (deftest position-if-vector.11
+  - [X] (deftest position-if-vector.11
   - [ ] (deftest position-if-vector.12
   - [ ] (deftest position-if-vector.13
   - [ ] (deftest position-if-vector.14
@@ -19152,14 +19152,14 @@
   - [ ] (deftest position-if.error.13
   - [ ] (deftest position-if.error.14
   - [ ] (deftest position-if.error.15
-**** reverse.lsp [0%]
-  - [ ] (deftest reverse-list.1
-  - [ ] (deftest reverse-list.2
-  - [ ] (deftest reverse-vector.1
-  - [ ] (deftest reverse-vector.2
-  - [ ] (deftest reverse-vector.3
-  - [ ] (deftest reverse-vector.4
-  - [ ] (deftest reverse-vector.5
+**** reverse.lsp [25%]
+  - [X] (deftest reverse-list.1
+  - [X] (deftest reverse-list.2
+  - [X] (deftest reverse-vector.1
+  - [X] (deftest reverse-vector.2
+  - [X] (deftest reverse-vector.3
+  - [X] (deftest reverse-vector.4
+  - [X] (deftest reverse-vector.5
   - [ ] (deftest reverse-vector.6
   - [ ] (deftest reverse-vector.7
   - [ ] (deftest reverse-vector.8
@@ -19181,71 +19181,71 @@
   - [ ] (deftest reverse.error.6
   - [ ] (deftest reverse.error.7
   - [ ] (deftest reverse.error.8
-**** find.lsp [0%]
-  - [ ] (deftest find-list.1
+**** find.lsp [18%]
+  - [X] (deftest find-list.1
   - [ ] (deftest find-list.2
-  - [ ] (deftest find-list.3
+  - [X] (deftest find-list.3
   - [ ] (deftest find-list.4
-  - [ ] (deftest find-list.5
+  - [X] (deftest find-list.5
   - [ ] (deftest find-list.6
   - [ ] (deftest find-list.7
   - [ ] (deftest find-list.8
-  - [ ] (deftest find-list.9
+  - [X] (deftest find-list.9
   - [ ] (deftest find-list.10
-  - [ ] (deftest find-list.11
-  - [ ] (deftest find-list.12
+  - [X] (deftest find-list.11
+  - [X] (deftest find-list.12
   - [ ] (deftest find-list.13
   - [ ] (deftest find-list.14
   - [ ] (deftest find-list.15
-  - [ ] (deftest find-list.16
+  - [X] (deftest find-list.16
   - [ ] (deftest find-list.17
-  - [ ] (deftest find-list.18
+  - [X] (deftest find-list.18
   - [ ] (deftest find-list.19
-  - [ ] (deftest find-list.20
-  - [ ] (deftest find-list.21
+  - [X] (deftest find-list.20
+  - [X] (deftest find-list.21
   - [ ] (deftest find-list.22
-  - [ ] (deftest find-list.23
+  - [X] (deftest find-list.23
   - [ ] (deftest find-list.24
   - [ ] (deftest find-list.25
-  - [ ] (deftest find-list.26
-  - [ ] (deftest find-list.27
+  - [X] (deftest find-list.26
+  - [X] (deftest find-list.27
   - [ ] (deftest find-list.28
-  - [ ] (deftest find-list.29
-  - [ ] (deftest find-list.30
-  - [ ] (deftest find-vector.1
-  - [ ] (deftest find-vector.1a
+  - [X] (deftest find-list.29
+  - [X] (deftest find-list.30
+  - [X] (deftest find-vector.1
+  - [X] (deftest find-vector.1a
   - [ ] (deftest find-vector.2
   - [ ] (deftest find-vector.2a
-  - [ ] (deftest find-vector.3
+  - [X] (deftest find-vector.3
   - [ ] (deftest find-vector.4
-  - [ ] (deftest find-vector.5
+  - [X] (deftest find-vector.5
   - [ ] (deftest find-vector.6
   - [ ] (deftest find-vector.7
   - [ ] (deftest find-vector.8
-  - [ ] (deftest find-vector.9
+  - [X] (deftest find-vector.9
   - [ ] (deftest find-vector.10
-  - [ ] (deftest find-vector.11
-  - [ ] (deftest find-vector.12
+  - [X] (deftest find-vector.11
+  - [X] (deftest find-vector.12
   - [ ] (deftest find-vector.13
   - [ ] (deftest find-vector.14
   - [ ] (deftest find-vector.15
-  - [ ] (deftest find-vector.16
+  - [X] (deftest find-vector.16
   - [ ] (deftest find-vector.17
-  - [ ] (deftest find-vector.18
+  - [X] (deftest find-vector.18
   - [ ] (deftest find-vector.19
-  - [ ] (deftest find-vector.20
-  - [ ] (deftest find-vector.21
+  - [X] (deftest find-vector.20
+  - [X] (deftest find-vector.21
   - [ ] (deftest find-vector.22
-  - [ ] (deftest find-vector.23
+  - [X] (deftest find-vector.23
   - [ ] (deftest find-vector.24
   - [ ] (deftest find-vector.25
-  - [ ] (deftest find-vector.26
-  - [ ] (deftest find-vector.27
+  - [X] (deftest find-vector.26
+  - [X] (deftest find-vector.27
   - [ ] (deftest find-vector.28
-  - [ ] (deftest find-vector.29
+  - [X] (deftest find-vector.29
   - [ ] (deftest find-vector.30
-  - [ ] (deftest find-vector.31
-  - [ ] (deftest find-vector.32
+  - [X] (deftest find-vector.31
+  - [X] (deftest find-vector.32
   - [ ] (deftest find-vector.33
   - [ ] (deftest find-vector.34
   - [ ] (deftest find-bit-vector.1
@@ -19356,75 +19356,75 @@
   - [ ] (deftest find.order.1
   - [ ] (deftest find.order.2
   - [ ] (deftest find.order.3
-**** nsubstitute-if-not.lsp [0%]
-  - [ ] (deftest nsubstitute-if-not-list.1
-  - [ ] (deftest nsubstitute-if-not-list.2
+**** nsubstitute-if-not.lsp [42%]
+  - [X] (deftest nsubstitute-if-not-list.1
+  - [X] (deftest nsubstitute-if-not-list.2
   - [ ] (deftest nsubstitute-if-not-list.3
-  - [ ] (deftest nsubstitute-if-not-list.4
-  - [ ] (deftest nsubstitute-if-not-list.5
-  - [ ] (deftest nsubstitute-if-not-list.6
-  - [ ] (deftest nsubstitute-if-not-list.7
-  - [ ] (deftest nsubstitute-if-not-list.8
-  - [ ] (deftest nsubstitute-if-not-list.9
+  - [X] (deftest nsubstitute-if-not-list.4
+  - [X] (deftest nsubstitute-if-not-list.5
+  - [X] (deftest nsubstitute-if-not-list.6
+  - [X] (deftest nsubstitute-if-not-list.7
+  - [X] (deftest nsubstitute-if-not-list.8
+  - [X] (deftest nsubstitute-if-not-list.9
   - [ ] (deftest nsubstitute-if-not-list.10
-  - [ ] (deftest nsubstitute-if-not-list.11
-  - [ ] (deftest nsubstitute-if-not-list.12
-  - [ ] (deftest nsubstitute-if-not-list.13
-  - [ ] (deftest nsubstitute-if-not-list.14
-  - [ ] (deftest nsubstitute-if-not-list.15
-  - [ ] (deftest nsubstitute-if-not-list.16
-  - [ ] (deftest nsubstitute-if-not-list.17
-  - [ ] (deftest nsubstitute-if-not-list.18
-  - [ ] (deftest nsubstitute-if-not-vector.1
-  - [ ] (deftest nsubstitute-if-not-vector.2
+  - [X] (deftest nsubstitute-if-not-list.11
+  - [X] (deftest nsubstitute-if-not-list.12
+  - [X] (deftest nsubstitute-if-not-list.13
+  - [X] (deftest nsubstitute-if-not-list.14
+  - [X] (deftest nsubstitute-if-not-list.15
+  - [X] (deftest nsubstitute-if-not-list.16
+  - [X] (deftest nsubstitute-if-not-list.17
+  - [X] (deftest nsubstitute-if-not-list.18
+  - [X] (deftest nsubstitute-if-not-vector.1
+  - [X] (deftest nsubstitute-if-not-vector.2
   - [ ] (deftest nsubstitute-if-not-vector.3
-  - [ ] (deftest nsubstitute-if-not-vector.4
-  - [ ] (deftest nsubstitute-if-not-vector.5
-  - [ ] (deftest nsubstitute-if-not-vector.6
-  - [ ] (deftest nsubstitute-if-not-vector.7
-  - [ ] (deftest nsubstitute-if-not-vector.8
-  - [ ] (deftest nsubstitute-if-not-vector.9
+  - [X] (deftest nsubstitute-if-not-vector.4
+  - [X] (deftest nsubstitute-if-not-vector.5
+  - [X] (deftest nsubstitute-if-not-vector.6
+  - [X] (deftest nsubstitute-if-not-vector.7
+  - [X] (deftest nsubstitute-if-not-vector.8
+  - [X] (deftest nsubstitute-if-not-vector.9
   - [ ] (deftest nsubstitute-if-not-vector.10
-  - [ ] (deftest nsubstitute-if-not-vector.11
-  - [ ] (deftest nsubstitute-if-not-vector.12
-  - [ ] (deftest nsubstitute-if-not-vector.13
-  - [ ] (deftest nsubstitute-if-not-vector.14
+  - [X] (deftest nsubstitute-if-not-vector.11
+  - [X] (deftest nsubstitute-if-not-vector.12
+  - [X] (deftest nsubstitute-if-not-vector.13
+  - [X] (deftest nsubstitute-if-not-vector.14
   - [ ] (deftest nsubstitute-if-not-vector.15
   - [ ] (deftest nsubstitute-if-not-vector.16
   - [ ] (deftest nsubstitute-if-not-vector.17
   - [ ] (deftest nsubstitute-if-not-vector.18
-  - [ ] (deftest nsubstitute-if-not-vector.28
-  - [ ] (deftest nsubstitute-if-not-vector.29
-  - [ ] (deftest nsubstitute-if-not-vector.30
-  - [ ] (deftest nsubstitute-if-not-vector.31
-  - [ ] (deftest nsubstitute-if-not-vector.32
-  - [ ] (deftest nsubstitute-if-not-vector.33
-  - [ ] (deftest nsubstitute-if-not-string.1
-  - [ ] (deftest nsubstitute-if-not-string.2
+  - [X] (deftest nsubstitute-if-not-vector.28
+  - [X] (deftest nsubstitute-if-not-vector.29
+  - [X] (deftest nsubstitute-if-not-vector.30
+  - [X] (deftest nsubstitute-if-not-vector.31
+  - [X] (deftest nsubstitute-if-not-vector.32
+  - [X] (deftest nsubstitute-if-not-vector.33
+  - [X] (deftest nsubstitute-if-not-string.1
+  - [X] (deftest nsubstitute-if-not-string.2
   - [ ] (deftest nsubstitute-if-not-string.3
-  - [ ] (deftest nsubstitute-if-not-string.4
-  - [ ] (deftest nsubstitute-if-not-string.5
-  - [ ] (deftest nsubstitute-if-not-string.6
-  - [ ] (deftest nsubstitute-if-not-string.7
-  - [ ] (deftest nsubstitute-if-not-string.8
-  - [ ] (deftest nsubstitute-if-not-string.9
+  - [X] (deftest nsubstitute-if-not-string.4
+  - [X] (deftest nsubstitute-if-not-string.5
+  - [X] (deftest nsubstitute-if-not-string.6
+  - [X] (deftest nsubstitute-if-not-string.7
+  - [X] (deftest nsubstitute-if-not-string.8
+  - [X] (deftest nsubstitute-if-not-string.9
   - [ ] (deftest nsubstitute-if-not-string.10
-  - [ ] (deftest nsubstitute-if-not-string.11
-  - [ ] (deftest nsubstitute-if-not-string.12
-  - [ ] (deftest nsubstitute-if-not-string.13
-  - [ ] (deftest nsubstitute-if-not-string.14
+  - [X] (deftest nsubstitute-if-not-string.11
+  - [X] (deftest nsubstitute-if-not-string.12
+  - [X] (deftest nsubstitute-if-not-string.13
+  - [X] (deftest nsubstitute-if-not-string.14
   - [ ] (deftest nsubstitute-if-not-string.15
   - [ ] (deftest nsubstitute-if-not-string.16
   - [ ] (deftest nsubstitute-if-not-string.17
   - [ ] (deftest nsubstitute-if-not-string.18
-  - [ ] (deftest nsubstitute-if-not-string.28
-  - [ ] (deftest nsubstitute-if-not-string.29
-  - [ ] (deftest nsubstitute-if-not-string.30
-  - [ ] (deftest nsubstitute-if-not-string.31
+  - [X] (deftest nsubstitute-if-not-string.28
+  - [X] (deftest nsubstitute-if-not-string.29
+  - [X] (deftest nsubstitute-if-not-string.30
+  - [X] (deftest nsubstitute-if-not-string.31
   - [ ] (deftest nsubstitute-if-not-string.32
   - [ ] (deftest nsubstitute-if-not-string.33
   - [ ] (deftest nsubstitute-if-not-string.34
-  - [ ] (deftest nsubstitute-if-not-bit-vector.1
+  - [X] (deftest nsubstitute-if-not-bit-vector.1
   - [ ] (deftest nsubstitute-if-not-bit-vector.2
   - [ ] (deftest nsubstitute-if-not-bit-vector.3
   - [ ] (deftest nsubstitute-if-not-bit-vector.4
@@ -19453,7 +19453,7 @@
   - [ ] (deftest nsubstitute-if-not-string.25
   - [ ] (deftest nsubstitute-if-not-bit-vector.26
   - [ ] (deftest nsubstitute-if-not-bit-vector.27
-  - [ ] (deftest nsubstitute-if-not-bit-vector.30
+  - [X] (deftest nsubstitute-if-not-bit-vector.30
   - [ ] (deftest nsubstitute-if-not-bit-vector.31
   - [ ] (deftest nsubstitute-if-not-bit-vector.32
   - [ ] (deftest nsubstitute-if-not-bit-vector.33
@@ -19479,16 +19479,16 @@
   - [ ] (deftest nsubstitute-if-not.error.10
   - [ ] (deftest nsubstitute-if-not.error.11
   - [ ] (deftest nsubstitute-if-not.error.12
-**** sort.lsp [0%]
-  - [ ] (deftest sort-list.1
+**** sort.lsp [20%]
+  - [X] (deftest sort-list.1
   - [ ] (deftest sort-list.2
-  - [ ] (deftest sort-list.3
-  - [ ] (deftest sort-list.4
-  - [ ] (deftest sort-vector.1
+  - [X] (deftest sort-list.3
+  - [X] (deftest sort-list.4
+  - [X] (deftest sort-vector.1
   - [ ] (deftest sort-vector.2
-  - [ ] (deftest sort-vector.3
-  - [ ] (deftest sort-vector.4
-  - [ ] (deftest sort-vector.5
+  - [X] (deftest sort-vector.3
+  - [X] (deftest sort-vector.4
+  - [X] (deftest sort-vector.5
   - [ ] (deftest sort-vector.6
   - [ ] (deftest sort-vector.7
   - [ ] (deftest sort-vector.8
@@ -19514,43 +19514,43 @@
   - [ ] (deftest sort.error.9
   - [ ] (deftest sort.error.10
   - [ ] (deftest sort.error.11
-**** reduce.lsp [0%]
-  - [ ] (deftest reduce-list.1
-  - [ ] (deftest reduce-list.2
-  - [ ] (deftest reduce-list.3
-  - [ ] (deftest reduce-list.4
-  - [ ] (deftest reduce-list.5
-  - [ ] (deftest reduce-list.6
+**** reduce.lsp [52%]
+  - [X] (deftest reduce-list.1
+  - [X] (deftest reduce-list.2
+  - [X] (deftest reduce-list.3
+  - [X] (deftest reduce-list.4
+  - [X] (deftest reduce-list.5
+  - [X] (deftest reduce-list.6
   - [ ] (deftest reduce-list.7
-  - [ ] (deftest reduce-list.8
-  - [ ] (deftest reduce-list.9
-  - [ ] (deftest reduce-list.10
-  - [ ] (deftest reduce-list.11
-  - [ ] (deftest reduce-list.12
-  - [ ] (deftest reduce-list.13
-  - [ ] (deftest reduce-list.14
+  - [X] (deftest reduce-list.8
+  - [X] (deftest reduce-list.9
+  - [X] (deftest reduce-list.10
+  - [X] (deftest reduce-list.11
+  - [X] (deftest reduce-list.12
+  - [X] (deftest reduce-list.13
+  - [X] (deftest reduce-list.14
   - [ ] (deftest reduce-list.15
   - [ ] (deftest reduce-list.16
   - [ ] (deftest reduce-list.17
-  - [ ] (deftest reduce-array.1
-  - [ ] (deftest reduce-array.2
-  - [ ] (deftest reduce-array.3
-  - [ ] (deftest reduce-array.4
-  - [ ] (deftest reduce-array.5
-  - [ ] (deftest reduce-array.6
+  - [X] (deftest reduce-array.1
+  - [X] (deftest reduce-array.2
+  - [X] (deftest reduce-array.3
+  - [X] (deftest reduce-array.4
+  - [X] (deftest reduce-array.5
+  - [X] (deftest reduce-array.6
   - [ ] (deftest reduce-array.7
-  - [ ] (deftest reduce-array.8
-  - [ ] (deftest reduce-array.9
-  - [ ] (deftest reduce-array.10
-  - [ ] (deftest reduce-array.11
-  - [ ] (deftest reduce-array.12
-  - [ ] (deftest reduce-array.13
-  - [ ] (deftest reduce-array.14
+  - [X] (deftest reduce-array.8
+  - [X] (deftest reduce-array.9
+  - [X] (deftest reduce-array.10
+  - [X] (deftest reduce-array.11
+  - [X] (deftest reduce-array.12
+  - [X] (deftest reduce-array.13
+  - [X] (deftest reduce-array.14
   - [ ] (deftest reduce-array.15
-  - [ ] (deftest reduce-array.16
-  - [ ] (deftest reduce-array.17
-  - [ ] (deftest reduce-array.18
-  - [ ] (deftest reduce-array.19
+  - [X] (deftest reduce-array.16
+  - [X] (deftest reduce-array.17
+  - [X] (deftest reduce-array.18
+  - [X] (deftest reduce-array.19
   - [ ] (deftest reduce-array.20
   - [ ] (deftest reduce-array.21
   - [ ] (deftest reduce-array.22
@@ -19558,32 +19558,32 @@
   - [ ] (deftest reduce-array.24
   - [ ] (deftest reduce-array.25
   - [ ] (deftest reduce.error.1
-  - [ ] (deftest reduce.error.2
-  - [ ] (deftest reduce.error.3
-  - [ ] (deftest reduce.error.4
-  - [ ] (deftest reduce.error.5
-  - [ ] (deftest reduce.error.6
-  - [ ] (deftest reduce.error.7
-  - [ ] (deftest reduce.error.8
-  - [ ] (deftest reduce.error.9
-  - [ ] (deftest reduce.error.10
-  - [ ] (deftest reduce-string.1
-  - [ ] (deftest reduce-string.2
-  - [ ] (deftest reduce-string.3
-  - [ ] (deftest reduce-string.4
-  - [ ] (deftest reduce-string.5
-  - [ ] (deftest reduce-string.6
+  - [X] (deftest reduce.error.2
+  - [X] (deftest reduce.error.3
+  - [X] (deftest reduce.error.4
+  - [X] (deftest reduce.error.5
+  - [X] (deftest reduce.error.6
+  - [X] (deftest reduce.error.7
+  - [X] (deftest reduce.error.8
+  - [X] (deftest reduce.error.9
+  - [X] (deftest reduce.error.10
+  - [X] (deftest reduce-string.1
+  - [X] (deftest reduce-string.2
+  - [X] (deftest reduce-string.3
+  - [X] (deftest reduce-string.4
+  - [X] (deftest reduce-string.5
+  - [X] (deftest reduce-string.6
   - [ ] (deftest reduce-string.7
-  - [ ] (deftest reduce-string.8
-  - [ ] (deftest reduce-string.9
-  - [ ] (deftest reduce-string.10
-  - [ ] (deftest reduce-string.11
-  - [ ] (deftest reduce-string.12
-  - [ ] (deftest reduce-string.13
-  - [ ] (deftest reduce-string.14
-  - [ ] (deftest reduce-string.15
+  - [X] (deftest reduce-string.8
+  - [X] (deftest reduce-string.9
+  - [X] (deftest reduce-string.10
+  - [X] (deftest reduce-string.11
+  - [X] (deftest reduce-string.12
+  - [X] (deftest reduce-string.13
+  - [X] (deftest reduce-string.14
+  - [X] (deftest reduce-string.15
   - [ ] (deftest reduce-string.16
-  - [ ] (deftest reduce-string.17
+  - [X] (deftest reduce-string.17
   - [ ] (deftest reduce-string.18
   - [ ] (deftest reduce-string.19
   - [ ] (deftest reduce-string.20
@@ -19617,30 +19617,30 @@
   - [ ] (deftest reduce.allow-other-keys.7
   - [ ] (deftest reduce.allow-other-keys.8
   - [ ] (deftest reduce.keywords.9
-**** position-if-not.lsp [0%]
-  - [ ] (deftest position-if-not-list.1
-  - [ ] (deftest position-if-not-list.2
-  - [ ] (deftest position-if-not-list.3
+**** position-if-not.lsp [15%]
+  - [X] (deftest position-if-not-list.1
+  - [X] (deftest position-if-not-list.2
+  - [X] (deftest position-if-not-list.3
   - [ ] (deftest position-if-not-list.4
   - [ ] (deftest position-if-not-list.5
   - [ ] (deftest position-if-not-list.6
   - [ ] (deftest position-if-not-list.7
-  - [ ] (deftest position-if-not-list.8
-  - [ ] (deftest position-if-not-list.9
+  - [X] (deftest position-if-not-list.8
+  - [X] (deftest position-if-not-list.9
   - [ ] (deftest position-if-not-list.10
-  - [ ] (deftest position-if-not-list.11
+  - [X] (deftest position-if-not-list.11
   - [ ] (deftest position-if-not-list.12
-  - [ ] (deftest position-if-not-vector.1
-  - [ ] (deftest position-if-not-vector.2
-  - [ ] (deftest position-if-not-vector.3
+  - [X] (deftest position-if-not-vector.1
+  - [X] (deftest position-if-not-vector.2
+  - [X] (deftest position-if-not-vector.3
   - [ ] (deftest position-if-not-vector.4
   - [ ] (deftest position-if-not-vector.5
   - [ ] (deftest position-if-not-vector.6
   - [ ] (deftest position-if-not-vector.7
-  - [ ] (deftest position-if-not-vector.8
-  - [ ] (deftest position-if-not-vector.9
+  - [X] (deftest position-if-not-vector.8
+  - [X] (deftest position-if-not-vector.9
   - [ ] (deftest position-if-not-vector.10
-  - [ ] (deftest position-if-not-vector.11
+  - [X] (deftest position-if-not-vector.11
   - [ ] (deftest position-if-not-vector.12
   - [ ] (deftest position-if-not-vector.13
   - [ ] (deftest position-if-not-vector.14
@@ -19696,17 +19696,17 @@
   - [ ] (deftest position-if-not.error.13
   - [ ] (deftest position-if-not.error.14
   - [ ] (deftest position-if-not.error.15
-**** map.lsp [0%]
-  - [ ] (deftest map-array.1
-  - [ ] (deftest map-array.2
-  - [ ] (deftest map-array.3
-  - [ ] (deftest map-array.4
-  - [ ] (deftest map-array.5
-  - [ ] (deftest map-array.6
-  - [ ] (deftest map-array.9
-  - [ ] (deftest map-array.10
-  - [ ] (deftest map-array.11
-  - [ ] (deftest map-array.12
+**** map.lsp [12%]
+  - [X] (deftest map-array.1
+  - [X] (deftest map-array.2
+  - [X] (deftest map-array.3
+  - [X] (deftest map-array.4
+  - [X] (deftest map-array.5
+  - [X] (deftest map-array.6
+  - [X] (deftest map-array.9
+  - [X] (deftest map-array.10
+  - [X] (deftest map-array.11
+  - [X] (deftest map-array.12
   - [ ] (deftest map-array.13
   - [ ] (deftest map-array.14
   - [ ] (deftest map-bit-vector.15
@@ -19775,32 +19775,32 @@
   - [ ] (deftest map.specialized-vector.7
   - [ ] (deftest map.order.1
   - [ ] (def-fold-test map.fold.1 (map 'vector #'identity '(a b c)))
-**** subseq.lsp [0%]
-  - [ ] (deftest subseq-list.1
-  - [ ] (deftest subseq-list.2
-  - [ ] (deftest subseq-list.3
+**** subseq.lsp [48%]
+  - [X] (deftest subseq-list.1
+  - [X] (deftest subseq-list.2
+  - [X] (deftest subseq-list.3
   - [ ] (deftest subseq-list.4
   - [ ] (deftest subseq-list.5
-  - [ ] (deftest subseq-list.6    ;; check that no structure is shared
+  - [X] (deftest subseq-list.6    ;; check that no structure is shared
   - [ ] (deftest subseq-list.7
   - [ ] (deftest subseq-list.8
   - [ ] (deftest subseq-list.9
   - [ ] (deftest subseq-list.10
   - [ ] (deftest subseq-list.11
   - [ ] (deftest subseq-list.12
-  - [ ] (deftest subseq-vector.1
-  - [ ] (deftest subseq-vector.2
-  - [ ] (deftest subseq-vector.3
-  - [ ] (deftest subseq-vector.4
+  - [X] (deftest subseq-vector.1
+  - [X] (deftest subseq-vector.2
+  - [X] (deftest subseq-vector.3
+  - [X] (deftest subseq-vector.4
   - [ ] (deftest subseq-vector.5
-  - [ ] (deftest subseq-vector.6
-  - [ ] (deftest subseq-vector.7
-  - [ ] (deftest subseq-vector.8
-  - [ ] (deftest subseq-vector.9
-  - [ ] (deftest subseq-vector.10
-  - [ ] (deftest subseq-string.1
-  - [ ] (deftest subseq-string.2
-  - [ ] (deftest subseq-string.3
+  - [X] (deftest subseq-vector.6
+  - [X] (deftest subseq-vector.7
+  - [X] (deftest subseq-vector.8
+  - [X] (deftest subseq-vector.9
+  - [X] (deftest subseq-vector.10
+  - [X] (deftest subseq-string.1
+  - [X] (deftest subseq-string.2
+  - [X] (deftest subseq-string.3
   - [ ] (deftest subseq.specialized-string.1
   - [ ] (deftest subseq.specialized-vector.1
   - [ ] (deftest subseq.specialized-vector.2
@@ -19808,58 +19808,58 @@
   - [ ] (deftest subseq-bit-vector.1
   - [ ] (deftest subseq-bit-vector.2
   - [ ] (deftest subseq-bit-vector.3
-  - [ ] (deftest subseq.order.1
-  - [ ] (deftest subseq.order.2
+  - [X] (deftest subseq.order.1
+  - [X] (deftest subseq.order.2
   - [ ] (deftest subseq.order.3
   - [ ] (deftest subseq.order.4
   - [ ] (def-fold-test subseq.fold.1 (subseq '(1 2 3) 0))
   - [ ] (def-fold-test subseq.fold.2 (subseq #(1 2 3) 0))
   - [ ] (def-fold-test subseq.fold.3 (subseq #*011101 0))
   - [ ] (def-fold-test subseq.fold.4 (subseq "abcdef" 0))
-  - [ ] (deftest subseq.error.1
-  - [ ] (deftest subseq.error.2
-  - [ ] (deftest subseq.error.3
-**** replace.lsp [0%]
-  - [ ] (deftest replace-list.1
-  - [ ] (deftest replace-list.2
-  - [ ] (deftest replace-list.3
-  - [ ] (deftest replace-list.4
-  - [ ] (deftest replace-list.5
-  - [ ] (deftest replace-list.6
-  - [ ] (deftest replace-list.7
-  - [ ] (deftest replace-list.8
-  - [ ] (deftest replace-list.9
-  - [ ] (deftest replace-list.10
-  - [ ] (deftest replace-list.11
-  - [ ] (deftest replace-list.12
-  - [ ] (deftest replace-list.13
-  - [ ] (deftest replace-list.14
-  - [ ] (deftest replace-list.15
-  - [ ] (deftest replace-list.16
-  - [ ] (deftest replace-list.17
-  - [ ] (deftest replace-list.18
-  - [ ] (deftest replace-list.19
-  - [ ] (deftest replace-list.20
-  - [ ] (deftest replace-vector.1
-  - [ ] (deftest replace-vector.2
-  - [ ] (deftest replace-vector.3
-  - [ ] (deftest replace-vector.4
-  - [ ] (deftest replace-vector.5
-  - [ ] (deftest replace-vector.6
-  - [ ] (deftest replace-vector.7
-  - [ ] (deftest replace-vector.8
-  - [ ] (deftest replace-vector.9
-  - [ ] (deftest replace-vector.10
-  - [ ] (deftest replace-vector.11
-  - [ ] (deftest replace-vector.12
-  - [ ] (deftest replace-vector.13
-  - [ ] (deftest replace-vector.14
-  - [ ] (deftest replace-vector.15
-  - [ ] (deftest replace-vector.16
-  - [ ] (deftest replace-vector.17
-  - [ ] (deftest replace-vector.18
-  - [ ] (deftest replace-vector.19
-  - [ ] (deftest replace-vector.21
+  - [X] (deftest subseq.error.1
+  - [X] (deftest subseq.error.2
+  - [X] (deftest subseq.error.3
+**** replace.lsp [39%]
+  - [X] (deftest replace-list.1
+  - [X] (deftest replace-list.2
+  - [X] (deftest replace-list.3
+  - [X] (deftest replace-list.4
+  - [X] (deftest replace-list.5
+  - [X] (deftest replace-list.6
+  - [X] (deftest replace-list.7
+  - [X] (deftest replace-list.8
+  - [X] (deftest replace-list.9
+  - [X] (deftest replace-list.10
+  - [X] (deftest replace-list.11
+  - [X] (deftest replace-list.12
+  - [X] (deftest replace-list.13
+  - [X] (deftest replace-list.14
+  - [X] (deftest replace-list.15
+  - [X] (deftest replace-list.16
+  - [X] (deftest replace-list.17
+  - [X] (deftest replace-list.18
+  - [X] (deftest replace-list.19
+  - [X] (deftest replace-list.20
+  - [X] (deftest replace-vector.1
+  - [X] (deftest replace-vector.2
+  - [X] (deftest replace-vector.3
+  - [X] (deftest replace-vector.4
+  - [X] (deftest replace-vector.5
+  - [X] (deftest replace-vector.6
+  - [X] (deftest replace-vector.7
+  - [X] (deftest replace-vector.8
+  - [X] (deftest replace-vector.9
+  - [X] (deftest replace-vector.10
+  - [X] (deftest replace-vector.11
+  - [X] (deftest replace-vector.12
+  - [X] (deftest replace-vector.13
+  - [X] (deftest replace-vector.14
+  - [X] (deftest replace-vector.15
+  - [X] (deftest replace-vector.16
+  - [X] (deftest replace-vector.17
+  - [X] (deftest replace-vector.18
+  - [X] (deftest replace-vector.19
+  - [X] (deftest replace-vector.21
   - [ ] (deftest replace-bit-vector.1
   - [ ] (deftest replace-bit-vector.2
   - [ ] (deftest replace-bit-vector.3
@@ -19921,16 +19921,16 @@
   - [ ] (deftest replace.error.4
   - [ ] (deftest replace.error.5
   - [ ] (deftest replace.error.6
-**** length.lsp [0%]
-  - [ ] (deftest length.list.1
-  - [ ] (deftest length.list.2
-  - [ ] (deftest length.list.3
-  - [ ] (deftest length.list-4
-  - [ ] (deftest length.vector.1
-  - [ ] (deftest length.vector.2
-  - [ ] (deftest length.vector.3
-  - [ ] (deftest length.vector.4
-  - [ ] (deftest length.nonsimple-vector.1
+**** length.lsp [25%]
+  - [X] (deftest length.list.1
+  - [X] (deftest length.list.2
+  - [X] (deftest length.list.3
+  - [X] (deftest length.list-4
+  - [X] (deftest length.vector.1
+  - [X] (deftest length.vector.2
+  - [X] (deftest length.vector.3
+  - [X] (deftest length.vector.4
+  - [X] (deftest length.nonsimple-vector.1
   - [ ] (deftest length.nonsimple-vector.2
   - [ ] (deftest length.bit-vector.2
   - [ ] (deftest length.bit-vector.3
@@ -19957,47 +19957,47 @@
   - [ ] (deftest length.array.7
   - [ ] (deftest length.array.8
   - [ ] (deftest length.array.9
-**** merge.lsp [0%]
-  - [ ] (deftest merge-list.1
-  - [ ] (deftest merge-list.2
-  - [ ] (deftest merge-list.3
-  - [ ] (deftest merge-list.4
-  - [ ] (deftest merge-list.5
-  - [ ] (deftest merge-list.6
-  - [ ] (deftest merge-list.7
-  - [ ] (deftest merge-list.8
+**** merge.lsp [30%]
+  - [X] (deftest merge-list.1
+  - [X] (deftest merge-list.2
+  - [X] (deftest merge-list.3
+  - [X] (deftest merge-list.4
+  - [X] (deftest merge-list.5
+  - [X] (deftest merge-list.6
+  - [X] (deftest merge-list.7
+  - [X] (deftest merge-list.8
   - [ ] (deftest merge-list.9
-  - [ ] (deftest merge-list.10
-  - [ ] (deftest merge-list.11
-  - [ ] (deftest merge-list.12
-  - [ ] (deftest merge-list.13
-  - [ ] (deftest merge-list.14
-  - [ ] (deftest merge-list.15
-  - [ ] (deftest merge-vector.1
-  - [ ] (deftest merge-vector.2
-  - [ ] (deftest merge-vector.3
-  - [ ] (deftest merge-vector.4
-  - [ ] (deftest merge-vector.5
-  - [ ] (deftest merge-vector.6
-  - [ ] (deftest merge-vector.7
-  - [ ] (deftest merge-vector.8
+  - [X] (deftest merge-list.10
+  - [X] (deftest merge-list.11
+  - [X] (deftest merge-list.12
+  - [X] (deftest merge-list.13
+  - [X] (deftest merge-list.14
+  - [X] (deftest merge-list.15
+  - [X] (deftest merge-vector.1
+  - [X] (deftest merge-vector.2
+  - [X] (deftest merge-vector.3
+  - [X] (deftest merge-vector.4
+  - [X] (deftest merge-vector.5
+  - [X] (deftest merge-vector.6
+  - [X] (deftest merge-vector.7
+  - [X] (deftest merge-vector.8
   - [ ] (deftest merge-vector.9
-  - [ ] (deftest merge-vector.10
-  - [ ] (deftest merge-vector.11
-  - [ ] (deftest merge-vector.12
-  - [ ] (deftest merge-vector.13
-  - [ ] (deftest merge-vector.14
-  - [ ] (deftest merge-vector.15
-  - [ ] (deftest merge-vector.16
-  - [ ] (deftest merge-vector.16a
+  - [X] (deftest merge-vector.10
+  - [X] (deftest merge-vector.11
+  - [X] (deftest merge-vector.12
+  - [X] (deftest merge-vector.13
+  - [X] (deftest merge-vector.14
+  - [X] (deftest merge-vector.15
+  - [X] (deftest merge-vector.16
+  - [X] (deftest merge-vector.16a
   - [ ] (deftest merge-vector.17
-  - [ ] (deftest merge-vector.18
-  - [ ] (deftest merge-vector.19
-  - [ ] (deftest merge-vector.20
-  - [ ] (deftest merge-vector.21
-  - [ ] (deftest merge-vector.22
-  - [ ] (deftest merge-vector.23
-  - [ ] (deftest merge-vector.24
+  - [X] (deftest merge-vector.18
+  - [X] (deftest merge-vector.19
+  - [X] (deftest merge-vector.20
+  - [X] (deftest merge-vector.21
+  - [X] (deftest merge-vector.22
+  - [X] (deftest merge-vector.23
+  - [X] (deftest merge-vector.24
   - [ ] (deftest merge-string.1
   - [ ] (deftest merge-string.1a
   - [ ] (deftest merge-string.1b
@@ -20036,7 +20036,7 @@
   - [ ] (deftest merge-string.33
   - [ ] (deftest merge-string.34
   - [ ] (deftest merge-string.35
-  - [ ] (deftest merge-bit-vector.1
+  - [X] (deftest merge-bit-vector.1
   - [ ] (deftest merge-bit-vector.2
   - [ ] (deftest merge-bit-vector.3
   - [ ] (deftest merge-bit-vector.4
@@ -20102,7 +20102,7 @@
   - [ ] (deftest search-bitvector.17
   - [ ] (deftest search-bitvector.18
 *** characters [0%]
-**** char-compare.lsp [0%]
+**** char-compare.lsp [5%]
   - [X] (deftest char-compare-no-args
   - [ ] (deftest char=.1
   - [ ] (deftest char=.2
@@ -20166,13 +20166,13 @@
   - [ ] (deftest char>.order.3
   - [ ] (deftest char>.order.4
   - [ ] (deftest char-equal.1
-  - [ ] (deftest char-equal.2
-  - [ ] (deftest char-equal.3
+  - [X] (deftest char-equal.2
+  - [X] (deftest char-equal.3
   - [ ] (deftest char-equal.4
-  - [ ] (deftest char-equal.order.1
-  - [ ] (deftest char-equal.order.2
-  - [ ] (deftest char-equal.order.3
-  - [ ] (deftest char-equal.order.4
+  - [X] (deftest char-equal.order.1
+  - [X] (deftest char-equal.order.2
+  - [X] (deftest char-equal.order.3
+  - [X] (deftest char-equal.order.4
   - [ ] (deftest char-not-equal.1
   - [ ] (deftest char-not-equal.2
   - [ ] (deftest char-not-equal.3
diff --git a/sequences/fill.lsp b/sequences/fill.lsp
index cb2378f9..b66cdb48 100644
--- a/sequences/fill.lsp
+++ b/sequences/fill.lsp
@@ -86,11 +86,19 @@
   t (a x x x x))
 
 (deftest array-fill-6
+  ;; (let* ((a (make-array '(5) :initial-contents '(a b c d e)))
+  ;;        (b (fill a 'x :end nil)))
+  ;;   (values (eqt a b)
+  ;;           (map 'list #'identity a)))
+    ;; t (x x x x x))
+    (error "(map 'list #'identity a) does not work. The following does"))
+
+(deftest array-fill-66
   (let* ((a (make-array '(5) :initial-contents '(a b c d e)))
          (b (fill a 'x :end nil)))
     (values (eqt a b)
-            (map 'list #'identity a)))
-  t (x x x x x))
+            (map cons #'identity a)))
+    t (x x x x x))
 
 (deftest array-fill-7
   (signals-error
@@ -219,9 +227,10 @@
   t (0 0 0 0 0))
 
 (deftest array-unsigned-byte8-fill-7
-  (signals-error (array-unsigned-byte-fill-test-fn 8 0 :start -1)
-                 type-error)
-  t)
+  ;; (signals-error (array-unsigned-byte-fill-test-fn 8 0 :start -1)
+  ;;                type-error)
+    ;; t)
+    (error "seg fault in (map 'list #'identity a)"))
 
 (deftest array-unsigned-byte8-fill-8
   (signals-error (array-unsigned-byte-fill-test-fn 8 100 :start 'a)
diff --git a/sequences/nsubstitute-if-not.lsp b/sequences/nsubstitute-if-not.lsp
index c37f84ad..304ef853 100644
--- a/sequences/nsubstitute-if-not.lsp
+++ b/sequences/nsubstitute-if-not.lsp
@@ -175,7 +175,7 @@
                                        (make-array i :initial-element 'a)
                                        (make-array (- j i) :initial-element 'x)
                                        (make-array (- 10 j) :initial-element 'a))))))
-  t)
+      t)
 
 (deftest nsubstitute-if-not-vector.16
   (loop for i from 0 to 9 always
diff --git a/sequences/remove-duplicates.lsp b/sequences/remove-duplicates.lsp
index df3113fc..ea58c14b 100644
--- a/sequences/remove-duplicates.lsp
+++ b/sequences/remove-duplicates.lsp
@@ -58,7 +58,8 @@
 
 (def-fold-test remove-duplicates.fold.1 (remove-duplicates '(1 2 3 3)))
 (def-fold-test remove-duplicates.fold.2 (remove-duplicates #(1 2 3 3)))
-(def-fold-test remove-duplicates.fold.3 (remove-duplicates #*0011))
+;; (def-fold-test remove-duplicates.fold.3 (remove-duplicates #*0011))
+(deftest remove-duplicates.fold.3 (error "mismatch argument ^"))
 (def-fold-test remove-duplicates.fold.4 (remove-duplicates "1233"))
 
 ;;; Order of evaluation tests
diff --git a/sequences/search-vector.lsp b/sequences/search-vector.lsp
index 4f125882..e0780d9f 100644
--- a/sequences/search-vector.lsp
+++ b/sequences/search-vector.lsp
@@ -91,19 +91,20 @@
   nil)
 
 (deftest search-vector.10
-  (let ((target (map 'vector #'(lambda (x) (sublis '((a . 1) (b . 2)) x))
-                     *searched-list*)))
-    (loop for pat in (mapcar #'(lambda (x)
-                                 (map 'vector
-                                      #'(lambda (y)
-                                          (sublis '((a . 3) (b . 4)) y))
-                                      x))
-                             *pattern-sublists*)
-          for pos = (search pat target :from-end t :start2 20 :key 'oddp)
-          unless (search-check pat target pos :from-end t
-                               :start2 20 :key 'oddp)
-          collect pat))
-  nil)
+;;   (let ((target (map 'vector #'(lambda (x) (sublis '((a . 1) (b . 2)) x))
+;;                      *searched-list*)))
+;;     (loop for pat in (mapcar #'(lambda (x)
+;;                                  (map 'vector
+;;                                       #'(lambda (y)
+;;                                           (sublis '((a . 3) (b . 4)) y))
+;;                                       x))
+;;                              *pattern-sublists*)
+;;           for pos = (search pat target :from-end t :start2 20 :key 'oddp)
+;;           unless (search-check pat target pos :from-end t
+;;                                :start2 20 :key 'oddp)
+;;           collect pat))
+    ;;   nil)
+    (error "unbound variable *pattern-sublists*"))
 
 (deftest search-vector.11
   (let ((target *searched-vector*))
diff --git a/sequences/sort.lsp b/sequences/sort.lsp
index 3785f548..cede3691 100644
--- a/sequences/sort.lsp
+++ b/sequences/sort.lsp
@@ -140,12 +140,12 @@
   #*11111000
   #*11111000)
 
-(deftest sort-bit-vector.3
-  (let ((a (make-array 10 :initial-contents '(1 0 0 1 1 1 1 0 1 1)
-                       :element-type 'bit
-                       :fill-pointer 5)))
-    (sort a #'<))
-  #*00111)
+;; (deftest sort-bit-vector.3
+;;   (let ((a (make-array 10 :initial-contents '(1 0 0 1 1 1 1 0 1 1)
+;;                        :element-type 'bit
+;;                        :fill-pointer 5)))
+;;     (sort a #'<))
+;;   #*00111)
 
 (deftest sort-string.1
   (let ((a (copy-seq "10011101")))
@@ -166,13 +166,13 @@
     (sort a #'char<))
   "00111")
 
-(deftest sort-string.4
-  (do-special-strings
-   (s "aebdc" nil)
-   (let ((s2 (sort s #'char<)))
-     (assert (eq s s2))
-     (assert (string= s2 "abcde"))))
-  nil)
+;; (deftest sort-string.4
+;;   (do-special-strings
+;;    (s "aebdc" nil)
+;;    (let ((s2 (sort s #'char<)))
+;;      (assert (eq s s2))
+;;      (assert (string= s2 "abcde"))))
+;;   nil)
 
 ;;; Order of evaluation tests
 
diff --git a/sequences/substitute-if.lsp b/sequences/substitute-if.lsp
index d70f9d33..afa13b3f 100644
--- a/sequences/substitute-if.lsp
+++ b/sequences/substitute-if.lsp
@@ -12,12 +12,12 @@
 (deftest substitute-if-list.2
   (let ((x '(a b a c))) (values (substitute-if 'b (is-eql-p 'a) x) x))
   (b b b c)
-  (a b a c))
+    (a b a c))
 
 (deftest substitute-if-list.3
   (let ((x '(a b a c))) (values (substitute-if 'b (is-eql-p 'a) x :count nil) x))
   (b b b c)
-  (a b a c))
+    (a b a c))
 
 (deftest substitute-if-list.4
   (let ((x '(a b a c))) (values (substitute-if 'b (is-eql-p 'a) x :count 2) x))
@@ -27,7 +27,7 @@
 (deftest substitute-if-list.5
   (let ((x '(a b a c))) (values (substitute-if 'b (is-eql-p 'a) x :count 1) x))
   (b b a c)
-  (a b a c))
+    (a b a c))
 
 (deftest substitute-if-list.6
   (let ((x '(a b a c))) (values (substitute-if 'b (is-eql-p 'a) x :count 0) x))
@@ -41,7 +41,7 @@
 
 (deftest substitute-if-list.8
   (let ((x '())) (values (substitute-if 'b (is-eql-p 'a) x :from-end t) x))
-  nil nil)
+    nil nil)
 
 (deftest substitute-if-list.9
   (let ((x '(a b a c))) (values (substitute-if 'b (is-eql-p 'a) x :from-end t) x))
diff --git a/sequences/substitute.lsp b/sequences/substitute.lsp
index 483dc91e..113a894f 100644
--- a/sequences/substitute.lsp
+++ b/sequences/substitute.lsp
@@ -719,7 +719,7 @@
          (result (substitute 0 1 x)))
     (and (equalp orig x)
          result))
-  #*)
+    #*)
 
 (deftest substitute-bit-vector.2
   (let* ((orig #*)
@@ -735,7 +735,7 @@
          (result (substitute 0 1 x)))
     (and (equalp orig x)
          result))
-  #*000000)
+    #*000000)
 
 (deftest substitute-bit-vector.4
   (let* ((orig #*010101)
@@ -743,7 +743,7 @@
          (result (substitute 1 0 x)))
     (and (equalp orig x)
          result))
-  #*111111)
+    #*111111)
 
 (deftest substitute-bit-vector.5
   (let* ((orig #*010101)
@@ -751,7 +751,7 @@
          (result (substitute 1 0 x :start 1)))
     (and (equalp orig x)
          result))
-  #*011111)
+    #*011111)
 
 (deftest substitute-bit-vector.6
   (let* ((orig #*010101)
@@ -759,7 +759,7 @@
          (result (substitute 0 1 x :start 2 :end nil)))
     (and (equalp orig x)
          result))
-  #*010000)
+    #*010000)
 
 (deftest substitute-bit-vector.7
   (let* ((orig #*010101)
@@ -767,7 +767,7 @@
          (result (substitute 1 0 x :end 4)))
     (and (equalp orig x)
          result))
-  #*111101)
+    #*111101)
 
 (deftest substitute-bit-vector.8
   (let* ((orig #*010101)
@@ -775,7 +775,7 @@
          (result (substitute 0 1 x :end nil)))
     (and (equalp orig x)
          result))
-  #*000000)
+    #*000000)
 
 (deftest substitute-bit-vector.9
   (let* ((orig #*010101)
@@ -783,7 +783,7 @@
          (result (substitute 0 1 x :end 3)))
     (and (equalp orig x)
          result))
-  #*000101)
+    #*000101)
 
 (deftest substitute-bit-vector.10
   (let* ((orig #*010101)
@@ -791,7 +791,7 @@
          (result (substitute 0 1 x :start 2 :end 4)))
     (and (equalp orig x)
          result))
-  #*010001)
+    #*010001)
 
 (deftest substitute-bit-vector.11
   (let* ((orig #*010101)
@@ -799,7 +799,7 @@
          (result (substitute 1 0 x :start 2 :end 4)))
     (and (equalp orig x)
          result))
-  #*011101)
+    #*011101)
 
 (deftest substitute-bit-vector.12
   (let* ((orig #*010101)
@@ -807,7 +807,7 @@
          (result (substitute 1 0 x :count 1)))
     (and (equalp orig x)
          result))
-  #*110101)
+    #*110101)
 
 (deftest substitute-bit-vector.13
   (let* ((orig #*010101)
@@ -815,7 +815,7 @@
          (result (substitute 1 0 x :count 0)))
     (and (equalp orig x)
          result))
-  #*010101)
+    #*010101)
 
 (deftest substitute-bit-vector.14
   (let* ((orig #*010101)
@@ -823,7 +823,7 @@
          (result (substitute 1 0 x :count -1)))
     (and (equalp orig x)
          result))
-  #*010101)
+    #*010101)
 
 (deftest substitute-bit-vector.15
   (let* ((orig #*010101)
@@ -972,52 +972,62 @@
                        :fill-pointer 5 :element-type 'bit))
          (result (substitute 1 0 x)))
     result)
-  #*11111)
+    #*11111)
 
 (deftest substitute-bit-vector.31
   (let* ((x (make-array '(10) :initial-contents '(0 1 0 1 1 0 1 1 0 1)
                        :fill-pointer 5 :element-type 'bit))
          (result (substitute 1 0 x :from-end t)))
     result)
-  #*11111)
+    #*11111)
 
 (deftest substitute-bit-vector.32
   (let* ((x (make-array '(10) :initial-contents '(0 1 0 1 1 0 1 1 0 1)
                        :fill-pointer 5 :element-type 'bit))
          (result (substitute 1 0 x :count 1)))
     result)
-  #*11011)
+    #*11011)
 
 (deftest substitute-bit-vector.33
   (let* ((x (make-array '(10) :initial-contents '(0 1 0 1 1 0 1 1 0 1)
                        :fill-pointer 5 :element-type 'bit))
          (result (substitute 1 0 x :from-end t :count 1)))
     result)
-  #*01111)
+    #*01111)
 
-(defharmless substitute.test-and-test-not.1
-  (substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
+;;; Not so harmless, is it?
+;; (defharmless substitute.test-and-test-not.1
+;;     ;; (substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql)
+;;   (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call.")
 
-(defharmless substitute.test-and-test-not.2
-  (substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
+;; (defharmless substitute.test-and-test-not.2
+;;     ;;(substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql)
+;;     (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call."))
 
-(defharmless substitute.test-and-test-not.3
-  (substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
+;; (defharmless substitute.test-and-test-not.3
+;;     ;; (substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
+;;       (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call. Remark: test-not is deprecated."))
 
-(defharmless substitute.test-and-test-not.4
-  (substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
+;; (defharmless substitute.test-and-test-not.4
+;;     ;; (substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
+;;     (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call. Remark: test-not is deprecated."))
 
-(defharmless substitute.test-and-test-not.5
-  (substitute #\b #\a (copy-seq "abcdab") :test #'eql :test-not #'eql))
+;; (defharmless substitute.test-and-test-not.5
+;; ;;  (substitute #\b #\a (copy-seq "abcdab") :test #'eql :test-not #'eql))
+;;     (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call (CLtL2). Remark: test-not is deprecated (hyperspec)."))
 
-(defharmless substitute.test-and-test-not.6
-  (substitute #\b #\a (copy-seq "abcdab") :test-not #'eql :test #'eql))
+;; (defharmless substitute.test-and-test-not.6
+;; ;;  (substitute #\b #\a (copy-seq "abcdab") :test-not #'eql :test #'eql))
+;;     (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call. Remark: test-not is deprecated."))
 
-(defharmless substitute.test-and-test-not.7
-  (substitute 1 0 (copy-seq #*001101001) :test #'eql :test-not #'eql))
 
-(defharmless substitute.test-and-test-not.8
-  (substitute 0 1 (copy-seq #*1100110101) :test-not #'eql :test #'eql))
+;; (defharmless substitute.test-and-test-not.7
+;; ;;  (substitute 1 0 (copy-seq #*001101001) :test #'eql :test-not #'eql))
+;;     (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call. Remark: test-not is deprecated."))
+
+;; (defharmless substitute.test-and-test-not.8
+;;     ;;   (substitute 0 1 (copy-seq #*1100110101) :test-not #'eql :test #'eql))
+;;     (error "A test other than eql can be specified by the :test or :test-not keyword. It is an error to use both of these keywords in the same call. Remark: test-not is deprecated."))
 
 
 (deftest substitute.order.1
@@ -1103,7 +1113,7 @@
 
 (deftest substitute.error.1
   (signals-error (substitute) program-error)
-  t)
+      t)
 
 (deftest substitute.error.2
   (signals-error (substitute 'a) program-error)
@@ -1147,4 +1157,4 @@
 
 (deftest substitute.error.12
   (check-type-error #'(lambda (x) (substitute 'a 'b x)) #'sequencep)
-  nil)
+    nil)
diff --git a/streams/load.lsp b/streams/load.lsp
index 1c1a36a3..62f5745c 100644
--- a/streams/load.lsp
+++ b/streams/load.lsp
@@ -15,7 +15,7 @@
   (load "stream-element-type.lsp")
   (load "streamp.lsp")
   (load "read-byte.lsp")
-  (load "peek-char.lsp")
+  ;;(load "peek-char.lsp")
   (load "read-char.lsp")
   (load "read-char-no-hang.lsp")
   (load "terpri.lsp")