From 53735bc427ae61c72c07ce8ead53b2135583fdf5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89ricles=20Lima?= <ericlesaquileslima@gmail.com>
Date: Tue, 10 Jul 2018 21:00:29 -0300
Subject: [PATCH 1/7] Add printer tests

---
 auxiliary/ansi-aux-macros.lsp |  28 ++--
 auxiliary/ansi-aux.lsp        |  28 ++--
 auxiliary/eus-handlers.l      |  86 ++++++++++
 auxiliary/eus-printer.l       |  82 ++++++++++
 cl-symbol-names.lsp           |  53 ++++---
 eus-test.l                    |  18 ++-
 printer/load.lsp              |   4 +-
 printer/print-level.lsp       |   4 +-
 reports/README.org            |  22 +++
 reports/REPORT.org            | 286 +++++++++++++++++-----------------
 10 files changed, 404 insertions(+), 207 deletions(-)
 create mode 100644 auxiliary/eus-handlers.l
 create mode 100644 auxiliary/eus-printer.l

diff --git a/auxiliary/ansi-aux-macros.lsp b/auxiliary/ansi-aux-macros.lsp
index 6b4b9030..1ddd3df6 100644
--- a/auxiliary/ansi-aux-macros.lsp
+++ b/auxiliary/ansi-aux-macros.lsp
@@ -9,11 +9,11 @@
 
 ;;; Macros to avoid annoying sbcl warning notes
 
-(defmacro handler-case (form &rest cases)
-  `(let () (cl:handler-case ,form ,@cases)))
+;; (defmacro handler-case (form &rest cases)
+;;   `(let () (cl:handler-case ,form ,@cases)))
 
-(defmacro handler-bind (handlers &rest body)
-  `(let () (cl:handler-bind ,handlers (normally (progn ,@body)))))
+;; (defmacro handler-bind (handlers &rest body)
+;;   `(let () (cl:handler-bind ,handlers (normally (progn ,@body)))))
 
 ;;; Macros for avoiding dead code warnings
 
@@ -32,15 +32,15 @@
 (defparameter *report-and-ignore-errors-break* nil
   "When true, REPORT-AND-IGNORE-ERRORS breaks instead of discarding the error condition.")
 
-(defmacro report-and-ignore-errors (&body body)
-  `(eval-when (:load-toplevel :compile-toplevel :execute)
-     (#+sbcl let #+sbcl () #-sbcl progn
-       (handler-case
-        (progn ,@body)
-        (error (condition)
-               (princ condition)
-               (terpri)
-               (when *report-and-ignore-errors-break* (break))
-               (values nil condition))))))
+;; (defmacro report-and-ignore-errors (&body body)
+;;   `(eval-when (:load-toplevel :compile-toplevel :execute)
+;;      (#+sbcl let #+sbcl () #-sbcl progn
+;;        (handler-case
+;;         (progn ,@body)
+;;         (error (condition)
+;;                (princ condition)
+;;                (terpri)
+;;                (when *report-and-ignore-errors-break* (break))
+;;                (values nil condition))))))
 
 
diff --git a/auxiliary/ansi-aux.lsp b/auxiliary/ansi-aux.lsp
index 8b20a09d..51225f40 100644
--- a/auxiliary/ansi-aux.lsp
+++ b/auxiliary/ansi-aux.lsp
@@ -4,7 +4,7 @@
 ;;;; Contains: Aux. functions for CL-TEST
 
 (defmacro locally (&rest body) `(progn ,@body))
-(defmacro handler-case (form &rest args) form)
+;;(defmacro handler-case (form &rest args) form)
 (defun typep (obj type) (eq (class obj) (symbol-value type)))
 
 ;;; A function for coercing truth values to BOOLEAN
@@ -1038,16 +1038,16 @@ the condition to go uncaught if it cannot be classified."
 (defmacro expand-in-current-env (macro-form &environment env)
   (macroexpand macro-form env))
 
-;; (defmacro report-and-ignore-errors (form)
-;;   `(unwind-protect
-;;        (let ((lisp::*max-callstack-depth* 0))
-;;          (labels ((hook (form env) (catch 0 (evalhook form #'hook))))
-;;            (lisp::install-error-handler
-;; 	    #'(lambda (code msg1 form &optional (msg2))
-;; 		(format *error-output* "~C[1;3~Cm~A unittest-error: ~A" #x1b (+ 1 48)   *program-name* msg1)
-;; 		(if msg2 (format *error-output* " ~A" msg2))
-;; 		(if form (format *error-output* " in ~s" form))
-;; 		(format *error-output* "~C[0m~%"  #x1b)
-;; 		(reset)))
-;;            (catch 0 (evalhook ',form #'hook))))
-;;      (lisp::install-error-handler *error-handler*)))
+(defmacro report-and-ignore-errors (form)
+  `(unwind-protect
+       (let ((lisp::*max-callstack-depth* 0))
+         (labels ((hook (form env) (catch 0 (evalhook form #'hook))))
+           (lisp::install-error-handler
+	    #'(lambda (code msg1 form &optional (msg2))
+		(format *error-output* "~C[1;3~Cm~A unittest-error: ~A" #x1b (+ 1 48)   *program-name* msg1)
+		(if msg2 (format *error-output* " ~A" msg2))
+		(if form (format *error-output* " in ~s" form))
+		(format *error-output* "~C[0m~%"  #x1b)
+		(reset)))
+           (catch 0 (evalhook ',form #'hook))))
+     (lisp::install-error-handler *error-handler*)))
diff --git a/auxiliary/eus-handlers.l b/auxiliary/eus-handlers.l
new file mode 100644
index 00000000..edf45017
--- /dev/null
+++ b/auxiliary/eus-handlers.l
@@ -0,0 +1,86 @@
+;;; This code is a modified version of public domain code part of the CMU
+;;; Common Lisp project
+
+
+;;;; HANDLER-BIND and SIGNAL.
+
+(in-package :lisp)
+
+
+(defvar *handler-clusters* nil)
+
+(defmacro handler-bind (bindings &body forms)
+  "(HANDLER-BIND ( {(type handler)}* )  body)
+   Executes body in a dynamic context where the given handler bindings are
+   in effect.  Each handler must take the condition being signalled as an
+   argument.  The bindings are searched first to last in the event of a
+   signalled condition."
+  (unless (every #'(lambda (x) (and (listp x) (= (length x) 2))) bindings)
+    (error "Ill-formed handler bindings."))
+  `(let ((*handler-clusters*
+	  (cons (list ,@(mapcar #'(lambda (x) `(cons ',(car x) ,(cadr x)))
+				bindings))
+		*handler-clusters*)))
+     (multiple-value-prog1
+      (progn ,@forms)
+      ;; Wait for any float exceptions
+      #+x87 (float-wait))))
+
+;;;; HANDLER-CASE and IGNORE-ERRORS.
+
+(defmacro handler-case (form &rest cases)
+  "(HANDLER-CASE form
+   { (type ([var]) body) }* )
+   Executes form in a context with handlers established for the condition
+   types.  A peculiar property allows type to be :no-error.  If such a clause
+   occurs, and form returns normally, all its values are passed to this clause
+   as if by MULTIPLE-VALUE-CALL.  The :no-error clause accepts more than one
+   var specification."
+  (let ((no-error-clause (assoc ':no-error cases)))
+    (if no-error-clause
+	(let ((normal-return (make-symbol "normal-return"))
+	      (error-return  (make-symbol "error-return")))
+	  `(block ,error-return
+	     (multiple-value-call (lambda ,@(cdr no-error-clause))
+	       (block ,normal-return
+		 (return-from ,error-return
+		   (handler-case (return-from ,normal-return ,form)
+		     ,@(remove no-error-clause cases)))))))
+	(let ((tag (gensym))
+	      (var (gensym))
+	      (annotated-cases (mapcar (lambda (case) (cons (gensym) case))
+				       cases)))
+	  `(block ,tag
+	     (let ((,var nil))
+	       (declare (ignorable ,var))
+	       (tagbody
+		  (handler-bind
+		      ,(mapcar (lambda (annotated-case)
+				 (list (cadr annotated-case)
+				       `#'(lambda (temp)
+					    ,(if (caddr annotated-case)
+						 `(setq ,var temp)
+						 '(declare (ignore temp)))
+					    (go ,(car annotated-case)))))
+			       annotated-cases)
+		    (return-from ,tag
+		      ,form))
+		  ,@(mapcan
+		     (lambda (annotated-case)
+		       (list (car annotated-case)
+			     (let ((body (cdddr annotated-case)))
+			       `(return-from
+				 ,tag
+				  ,(if (caddr annotated-case)
+				       `(let ((,(caaddr annotated-case) ,var))
+					  ,@body)
+				       `(locally ,@body))))))
+		     annotated-cases))))))))
+
+(defmacro ignore-errors (&rest forms)
+  "Executes forms after establishing a handler for all error conditions that
+   returns from this form nil and the condition signalled."
+  `(handler-case (progn ,@forms)
+     (error (condition) (values nil condition))))
+
+(export '(ignore-errors handler-case handler-bind *handler-clusters*))
diff --git a/auxiliary/eus-printer.l b/auxiliary/eus-printer.l
new file mode 100644
index 00000000..3187754c
--- /dev/null
+++ b/auxiliary/eus-printer.l
@@ -0,0 +1,82 @@
+;;;
+;;; Functions, macros and macros aimed for improving EusLisp compliance
+;;; to Common Lisp
+;;;
+
+;;; Printer - heavily inspired from CMUCL
+
+(in-package :lisp)
+
+(defvar std-lisp-readtable ()
+  "Standard lisp readtable. This is for recovery from broken
+   read-tables, and should not normally be user-visible.")
+
+(defmacro with-standard-io-syntax (&body body)
+  _N"Bind the reader and printer control variables to values that enable READ
+   to reliably read the results of PRINT.  These values are:
+       *PACKAGE*			The COMMON-LISP-USER package
+       *PRINT-ARRAY*			T
+       *PRINT-BASE*			10
+       *PRINT-CASE*			:UPCASE
+       *PRINT-CIRCLE*			NIL
+       *PRINT-ESCAPE*			T
+       *PRINT-GENSYM*			T
+       *PRINT-LENGTH*			NIL
+       *PRINT-LEVEL*			NIL
+       *PRINT-LINES*			NIL
+       *PRINT-MISER-WIDTH*		NIL
+       *PRINT-PPRINT-DISPATCH*          The standard pprint dispatch table
+       *PRINT-PRETTY*			NIL
+       *PRINT-RADIX*			NIL
+       *PRINT-READABLY*			T
+       *PRINT-RIGHT-MARGIN*		NIL
+       *READ-BASE*			10
+       *READ-DEFAULT-FLOAT-FORMAT* 	SINGLE-FLOAT
+       *READ-EVAL*			T
+       *READ-SUPPRESS*			NIL
+       *READTABLE*			the standard readtable."
+  `(Owith-standard-io-syntax #'(lambda () ,@body)))
+
+(defun Owith-standard-io-syntax (function)
+  (let ((*package* (find-package "CL-USER"))
+	(*print-array* t)
+	(*print-base* 10)
+	(*print-case* :upcase)
+	(*print-circle* nil)
+	(*print-escape* t)
+	(*print-gensym* t)
+	(*print-length* nil)
+	(*print-level* nil)
+	(*print-lines* nil)
+	(*print-miser-width* nil)
+	;;(*print-pprint-dispatch* pp::*initial-pprint-dispatch*)
+	(*print-pretty* nil)
+	(*print-radix* nil)
+	(*print-readably* t)
+	(*print-right-margin* nil)
+	(*read-base* 10)
+	(*read-default-float-format* 'single-float)
+	(*read-eval* t)
+	(*read-suppress* nil)
+	;;(*readtable* *readtable*))
+        (*readtable* std-list-readtable))
+    (funcall function)))
+
+
+
+;; Shadows make-string so as to accept initial-element
+
+(defun make-string (size &key (initial-element nil))
+  "Make a string of size size whose elements are initialized to initial-elemenent"
+  (prog1
+      (setq a (instantiate string size))
+    (when initial-element
+      (loop for i from 0 to (- size 1) do
+           (setf (schar a i) initial-element)))))
+
+(defun code-char
+    "Returns char correspondent to integer n.
+     In our case, chars are numbers"
+  (n) n)
+
+(export '(with-standard-io-syntax code-char))
diff --git a/cl-symbol-names.lsp b/cl-symbol-names.lsp
index 74370ca0..2c244b37 100644
--- a/cl-symbol-names.lsp
+++ b/cl-symbol-names.lsp
@@ -992,15 +992,14 @@
 #:yes-or-no-p
 #:zerop)))
 
-(defparameter *cl-symbols*
-  (let ((pkg (find-package :common-lisp)))
-    (#-clisp progn
-     #+clisp ext:without-package-lock  #+clisp ("COMMON-LISP")
-     (mapcar #'(lambda (str) (intern str pkg))
-             *cl-symbol-names*))))
+;; (defparameter *cl-symbols*
+;;   (let ((pkg (find-package :common-lisp)))
+;;     (progn
+;;      (mapcar #'(lambda (str) (intern str pkg))
+;;              *cl-symbol-names*))))
 
-(defparameter *cl-symbols-vector*
-  (make-array (length *cl-symbols*) :initial-contents *cl-symbols*))
+;; (defparameter *cl-symbols-vector*
+;;   (make-array (length *cl-symbols*) :initial-contents *cl-symbols*))
 
 ;;; Symbols that name unary predicate that can be safely applied to any object
 (defparameter *cl-safe-predicates*
@@ -1722,8 +1721,8 @@
     dolist
     dotimes
     formatter
-    cl:handler-bind
-    cl:handler-case
+    ;; cl:handler-bind
+    ;; cl:handler-case
     ignore-errors
     in-package
     incf
@@ -2148,24 +2147,24 @@
                 *cl-system-class-symbols* *cl-class-symbols*
                 *cl-condition-type-symbols*)))
 
-(defparameter *cl-non-function-macro-special-operator-symbols*
-  (set-difference
-   *cl-symbols*
-   (reduce #'union
-           (list *cl-function-symbols*
-                 *cl-macro-symbols*
-                 *cl-accessor-symbols*
-                 *cl-local-function-symbols*
-                 *cl-local-macro-symbols*
-                 *cl-special-operator-symbols*
-                 *cl-standard-generic-function-symbols*
-                 '(declare ed)))))
+;; (defparameter *cl-non-function-macro-special-operator-symbols*
+;;   (set-difference
+;;    *cl-symbols*
+;;    (reduce #'union
+;;            (list *cl-function-symbols*
+;;                  *cl-macro-symbols*
+;;                  *cl-accessor-symbols*
+;;                  *cl-local-function-symbols*
+;;                  *cl-local-macro-symbols*
+;;                  *cl-special-operator-symbols*
+;;                  *cl-standard-generic-function-symbols*
+;;                  '(declare ed)))))
 
 (defparameter *cl-function-or-accessor-symbols*
   (append *cl-function-symbols* *cl-accessor-symbols*))
 
-(defparameter *cl-non-variable-constant-symbols*
-  (set-difference
-   *cl-symbols*
-   (union *cl-variable-symbols*
-          *cl-constant-symbols*)))
+;; (defparameter *cl-non-variable-constant-symbols*
+;;   (set-difference
+;;    *cl-symbols*
+;;    (union *cl-variable-symbols*
+;;           *cl-constant-symbols*)))
diff --git a/eus-test.l b/eus-test.l
index 8cef836e..d4e00e53 100755
--- a/eus-test.l
+++ b/eus-test.l
@@ -1,9 +1,12 @@
-#!/usr/bin/env roseus
+#!/usr/bin/env irteusgl
 (require :unittest "lib/llib/unittest.l")
 
 ;; LOAD CL-compatibility libraries
 (load "auxiliary/eus-multiple-values.l")
 (load "auxiliary/eus-loop.l")
+(load "auxiliary/eus-printer.l")
+(load "auxiliary/eus-handlers.l")
+;(load "universe.lsp")
 
 (defvar *signals-error* t)
 
@@ -146,11 +149,18 @@
 	   ;; escape <> for xml
 	   (send *unit-test* :increment-failure ',pred (format nil ,message ,@args) nil)))))
 
+;; The upper exclusive bound on the value returned by the function char-code
+;; at least 96. Actually, 256 but left at 96 for security reasons
+(defvar char-code-limit 96)
+
 ;; *UNIT-TEST*
 (setq *unit-test* (instance unit-test-container :init))
 
+
 ;; LOAD AUXILIARY
 (load "auxiliary/ansi-aux.lsp")
+(load "cl-symbol-names.lsp")
+
 
 ;; LOAD TESTS
 (load "symbols/load.lsp")
@@ -167,12 +177,10 @@
 (load "arrays/load.lsp")
 (load "environment/load.lsp")
 (load "misc/load.lsp")
-
-
-;; (load "misc/load.lsp")
 (load "numbers/load.lsp")
+(load "printer/load.lsp")
+
 ;; (load "packages/load.lsp")
-;; (load "printer/load.lsp")
 (load "reader/load.lsp")
 ;; (load "sequences/load.lsp")
 (load "streams/load.lsp")
diff --git a/printer/load.lsp b/printer/load.lsp
index 4a65cc39..cd2af1e7 100644
--- a/printer/load.lsp
+++ b/printer/load.lsp
@@ -10,7 +10,7 @@
   (load "copy-pprint-dispatch.lsp")
   (load "print-integers.lsp")
   (load "print-ratios.lsp")
-  (load "print-floats.lsp")
+  ;; (load "print-floats.lsp")
   (load "print-complex.lsp")
   (load "print-characters.lsp")
   (load "print-lines.lsp")
@@ -46,5 +46,5 @@
   (load "print-level.lsp")
   (load "print-length.lsp")
 
-  (load "format/load.lsp")
+  ;; (load "format/load.lsp")
 )
diff --git a/printer/print-level.lsp b/printer/print-level.lsp
index 4e7721f1..4685aeaa 100644
--- a/printer/print-level.lsp
+++ b/printer/print-level.lsp
@@ -24,7 +24,7 @@
   nil)
 |#
 
-(defclass print-level-test-class nil (a b c))
+;; (defclass print-level-test-class nil (a b c))
 
 ;;; The CLHS page for PRINT-OBJECT makes it clear that tests
 ;;; PRINT-LEVEL.2,6,7,10,11 were testing for implementation-dependent
@@ -64,7 +64,7 @@
                     :level 0))
   "\"abcd\"")
 
-(define-condition print-level-condition (condition) (a b c))
+;; (define-condition print-level-condition (condition) (a b c))
 
 #|
 (deftest print-level.6
diff --git a/reports/README.org b/reports/README.org
index 10d22123..eda31acc 100644
--- a/reports/README.org
+++ b/reports/README.org
@@ -123,6 +123,28 @@
     - "no such external symbol":
       - cl:handler-case
       - cl:external
+** 6 Printer
+*** Caveats
+    - Many mismatch arguments in my-with-standard-io-syntax
+    - "Undefined functions" or macros:
+      - with-standard-io-syntax
+      - write-to-string
+      - make-print-struct-1
+      - check-type-error
+      - with-open-stream
+      - make-condition
+      - code-char
+      - print-unreadable-object
+      - define-condition
+    - "Unbound variable":
+      - *universe*
+      - *print-radix*
+      - *print-escape*
+      - *print-gensym*
+      - *print-lines*
+      - *print-readably*
+      - *print-right-margin*
+      - *mini-universe*
 ** CURRENT 7 Numbers
 *** Caveats
     - no dividing by zero
diff --git a/reports/REPORT.org b/reports/REPORT.org
index 9c00011a..4fa0dbc6 100644
--- a/reports/REPORT.org
+++ b/reports/REPORT.org
@@ -3977,7 +3977,7 @@
   - [ ] (deftest features.3
   - [ ] (deftest features.4
 *** printer [0%]
-**** pprint-newline.lsp [0%]
+**** pprint-newline.lsp [4%]
   - [ ] (def-pprint-test pprint-newline.1
   - [ ] (def-pprint-test pprint-newline.2
   - [ ] (def-pprint-test pprint-newline.3
@@ -4022,9 +4022,9 @@
   - [ ] (deftest pprint-newline.mandatory.6
   - [ ] (deftest pprint-newline.error.1
   - [ ] (deftest pprint-newline.error.1-unsafe
-  - [ ] (deftest pprint-newline.error.2
-  - [ ] (deftest pprint-newline.error.3
-**** pprint-fill.lsp [0%]
+  - [X] (deftest pprint-newline.error.2
+  - [X] (deftest pprint-newline.error.3
+**** pprint-fill.lsp [15%]
   - [ ] (deftest pprint-fill.1
   - [ ] (deftest pprint-fill.2
   - [ ] (def-pprint-fill-test pprint-fill.3 ('(|A|)) "(A)")
@@ -4042,9 +4042,9 @@
   - [ ] (def-pprint-fill-test pprint-fill.15 ((let ((x (list '|A|))) (setf (cdr x) x) x))
   - [ ] (deftest pprint-fill.return-values.1
   - [ ] (deftest pprint-fill.return-values.2
-  - [ ] (deftest pprint-fill.error.1
-  - [ ] (deftest pprint-fill.error.2
-  - [ ] (deftest pprint-fill.error.3
+  - [X] (deftest pprint-fill.error.1
+  - [X] (deftest pprint-fill.error.2
+  - [X] (deftest pprint-fill.error.3
 **** print-floats.lsp [0%]
   - [ ] (deftest print.short-float.1
   - [ ] (deftest print.short-float.2
@@ -4066,23 +4066,23 @@
   - [ ] (deftest print.long-float.3
   - [ ] (deftest print.long-float.4
   - [ ] (deftest print.long-float.random
-**** princ.lsp [0%]
+**** princ.lsp [40%]
   - [ ] (deftest princ.1
   - [ ] (deftest princ.2
   - [ ] (deftest princ.3
-  - [ ] (deftest princ.error.1
-  - [ ] (deftest princ.error.2
-**** pprint.lsp [0%]
+  - [X] (deftest princ.error.1
+  - [X] (deftest princ.error.2
+**** pprint.lsp [40%]
   - [ ] (deftest pprint.1
   - [ ] (deftest pprint.2
   - [ ] (deftest pprint.3
-  - [ ] (deftest pprint.error.1
-  - [ ] (deftest pprint.error.2
-**** princ-to-string.lsp [0%]
+  - [X] (deftest pprint.error.1
+  - [X] (deftest pprint.error.2
+**** princ-to-string.lsp [50%]
   - [ ] (deftest princ-to-string.1
   - [ ] (deftest princ-to-string.2
-  - [ ] (deftest princ-to-string.error.1
-  - [ ] (deftest princ-to-string.error.2
+  - [X] (deftest princ-to-string.error.1
+  - [X] (deftest princ-to-string.error.2
 **** print-strings.lsp [0%]
   - [ ] (deftest print.string.1
   - [ ] (deftest print.string.2
@@ -4166,18 +4166,18 @@
   - [ ] (deftest print.symbol.prefix.8
   - [ ] (deftest print.symbol.prefix.9
   - [ ] (deftest print.symbol.prefix.10
-**** write-to-string.lsp [0%]
+**** write-to-string.lsp [42%]
   - [ ] (deftest write-to-string.1
   - [ ] (deftest write-to-string.2
   - [ ] (deftest write-to-string.3
   - [ ] (deftest write-to-string.4
-  - [ ] (deftest write-to-string.error.1
-  - [ ] (deftest write-to-string.error.2
-  - [ ] (deftest write-to-string.error.3
+  - [X] (deftest write-to-string.error.1
+  - [X] (deftest write-to-string.error.2
+  - [X] (deftest write-to-string.error.3
 **** print-pathname.lsp [0%]
   - [ ] (deftest print.pathname.1
   - [ ] (deftest print.pathname.2
-**** copy-pprint-dispatch.lsp [0%]
+**** copy-pprint-dispatch.lsp [10%]
   - [ ] (deftest copy-pprint-dispatch.1
   - [ ] (deftest copy-pprint-dispatch.2
   - [ ] (deftest copy-pprint-dispatch.3
@@ -4186,9 +4186,9 @@
   - [ ] (deftest copy-pprint-dispatch.6
   - [ ] (deftest copy-pprint-dispatch.7
   - [ ] (deftest copy-pprint-dispatch.8
-  - [ ] (deftest copy-pprint-dispatch.error.1
+  - [X] (deftest copy-pprint-dispatch.error.1
   - [ ] (deftest copy-pprint-dispatch.error.2
-**** pprint-dispatch.lsp [0%]
+**** pprint-dispatch.lsp [29%]
   - [ ] (deftest pprint-dispatch.1
   - [ ] (deftest pprint-dispatch.2
   - [ ] (deftest pprint-dispatch.3
@@ -4199,19 +4199,19 @@
   - [ ] (deftest pprint-dispatch.8
   - [ ] (deftest pprint-dispatch.9
   - [ ] (deftest pprint-dispatch.10
-  - [ ] (deftest pprint-dispatch.error.1
-  - [ ] (deftest pprint-dispatch.error.2
-  - [ ] (deftest set-pprint-dispatch.error.1
-  - [ ] (deftest set-pprint-dispatch.error.2
-  - [ ] (deftest set-pprint-dispatch.error.3
+  - [X] (deftest pprint-dispatch.error.1
+  - [X] (deftest pprint-dispatch.error.2
+  - [X] (deftest set-pprint-dispatch.error.1
+  - [X] (deftest set-pprint-dispatch.error.2
+  - [X] (deftest set-pprint-dispatch.error.3
   - [ ] (deftest set-pprint-dispatch.error.4
   - [ ] (deftest set-pprint-dispatch.error.4-unsafe
-**** print.lsp [0%]
+**** print.lsp [40%]
   - [ ] (deftest print.1
   - [ ] (deftest print.2
   - [ ] (deftest print.3
-  - [ ] (deftest print.error.1
-  - [ ] (deftest print.error.2
+  - [X] (deftest print.error.1
+  - [X] (deftest print.error.2
 **** print-characters.lsp [0%]
   - [ ] (deftest print.char.1
   - [ ] (deftest print.char.2
@@ -4224,12 +4224,12 @@
   - [ ] (deftest print.char.9
   - [ ] (deftest print.char.10
   - [ ] (deftest print.char.11
-**** prin1.lsp [0%]
+**** prin1.lsp [40%]
   - [ ] (deftest prin1.1
   - [ ] (deftest prin1.2
   - [ ] (deftest prin1.3
-  - [ ] (deftest prin1.error.1
-  - [ ] (deftest prin1.error.2
+  - [X] (deftest prin1.error.1
+  - [X] (deftest prin1.error.2
 **** print-unreadable-object.lsp [0%]
   - [ ] (def-pprint-test print-unreadable-object.1
   - [ ] (def-pprint-test print-unreadable-object.2
@@ -4274,7 +4274,7 @@
   - [ ] (deftest print.cons.level.3
   - [ ] (deftest print.cons.level.4
   - [ ] (deftest print.cons.level.5
-**** pprint-linear.lsp [0%]
+**** pprint-linear.lsp [17%]
   - [ ] (deftest pprint-linear.1
   - [ ] (deftest pprint-linear.2
   - [ ] (def-pprint-linear-test pprint-linear.3 ('(|A|)) "(A)")
@@ -4289,10 +4289,10 @@
   - [ ] (deftest pprint-linear.12
   - [ ] (deftest pprint-linear.13
   - [ ] (def-pprint-linear-test pprint-linear.14 ((let ((x (list '|A|))) (list x x)))
-  - [ ] (deftest pprint-linear.error.1
-  - [ ] (deftest pprint-linear.error.2
-  - [ ] (deftest pprint-linear.error.3
-**** write.lsp [0%]
+  - [X] (deftest pprint-linear.error.1
+  - [X] (deftest pprint-linear.error.2
+  - [X] (deftest pprint-linear.error.3
+**** write.lsp [36%]
   - [ ] (deftest write.1
   - [ ] (deftest write.2
   - [ ] (deftest write.3
@@ -4300,10 +4300,10 @@
   - [ ] (deftest write.5
   - [ ] (deftest write.6
   - [ ] (deftest write.7
-  - [ ] (deftest write.error.1
-  - [ ] (deftest write.error.2
-  - [ ] (deftest write.error.3
-  - [ ] (deftest write.error.4
+  - [X] (deftest write.error.1
+  - [X] (deftest write.error.2
+  - [X] (deftest write.error.3
+  - [X] (deftest write.error.4
 **** print-complex.lsp [0%]
   - [ ] (deftest print.complex.1
   - [ ] (deftest print.complex.2
@@ -4311,7 +4311,7 @@
   - [ ] (deftest print.complex.random.2
 **** print-random-state.lsp [0%]
   - [ ] (deftest print.random-state.1
-**** pprint-exit-if-list-exhausted.lsp [0%]
+**** pprint-exit-if-list-exhausted.lsp [23%]
   - [ ] (deftest pprint-exit-if-list-exhausted.1
   - [ ] (deftest pprint-exit-if-list-exhausted.2
   - [ ] (deftest pprint-exit-if-list-exhausted.3
@@ -4325,10 +4325,10 @@
   - [ ] (deftest pprint-pop.7
   - [ ] (deftest pprint-pop.8
   - [ ] (deftest pprint-pop.9
-  - [ ] (deftest pprint-exit-if-list-exhausted.error.1
-  - [ ] (deftest pprint-exit-if-list-exhausted.error.1-unsafe
-  - [ ] (deftest pprint-pop.error.1
-  - [ ] (deftest pprint-pop.error.1-unsafe
+  - [X] (deftest pprint-exit-if-list-exhausted.error.1
+  - [X] (deftest pprint-exit-if-list-exhausted.error.1-unsafe
+  - [X] (deftest pprint-pop.error.1
+  - [X] (deftest pprint-pop.error.1-unsafe
 **** print-level.lsp [0%]
   - [ ] (deftest print-level.1
   - [ ] (deftest print-level.2
@@ -4383,7 +4383,7 @@
   - [ ] (deftest print.vector.level.4
   - [ ] (deftest print.vector.level.5
   - [ ] (deftest print.vector.level.6
-**** pprint-tabular.lsp [0%]
+**** pprint-tabular.lsp [13%]
   - [ ] (deftest pprint-tabular.1
   - [ ] (deftest pprint-tabular.2
   - [ ] (def-pprint-tabular-test pprint-tabular.3 ('(|M|)) "(M)")
@@ -4410,23 +4410,23 @@
   - [ ] (deftest pprint-tabular.24
   - [ ] (deftest pprint-tabular.return-values.1
   - [ ] (deftest pprint-tabular.return-values.2
-  - [ ] (deftest pprint-tabular.error.1
-  - [ ] (deftest pprint-tabular.error.2
-  - [ ] (deftest pprint-tabular.error.3
-  - [ ] (deftest pprint-tabular.error.4
-**** printer-control-vars.lsp [0%]
-  - [ ] (deftest print-base.init.1
+  - [X] (deftest pprint-tabular.error.1
+  - [X] (deftest pprint-tabular.error.2
+  - [X] (deftest pprint-tabular.error.3
+  - [X] (deftest pprint-tabular.error.4
+**** printer-control-vars.lsp [45%]
+  - [X] (deftest print-base.init.1
   - [ ] (deftest print-radix.init.1
-  - [ ] (deftest print-case.init.1
-  - [ ] (deftest print-circle.init.1
+  - [X] (deftest print-case.init.1
+  - [X] (deftest print-circle.init.1
   - [ ] (deftest print-escape.init.1
   - [ ] (deftest print-gensym.init.1
-  - [ ] (deftest print-level.init.1
-  - [ ] (deftest print-length.init.1
+  - [X] (deftest print-level.init.1
+  - [X] (deftest print-length.init.1
   - [ ] (deftest print-lines.init.1
   - [ ] (deftest print-readably.init.1
   - [ ] (deftest print-right-margin.init.1
-**** pprint-indent.lsp [0%]
+**** pprint-indent.lsp [10%]
   - [ ] (deftest pprint-indent.1
   - [ ] (deftest pprint-indent.2
   - [ ] (deftest pprint-indent.3
@@ -4451,12 +4451,12 @@
   - [ ] (deftest pprint-indent.21
   - [ ] (deftest pprint-indent.22
   - [ ] (deftest pprint-indent.23
-  - [ ] (deftest pprint-indent.error.1
-  - [ ] (deftest pprint-indent.error.2
-  - [ ] (deftest pprint-indent.error.3
+  - [X] (deftest pprint-indent.error.1
+  - [X] (deftest pprint-indent.error.2
+  - [X] (deftest pprint-indent.error.3
   - [ ] (deftest pprint-indent.error.4
   - [ ] (deftest pprint-indent.error.4-unsafe
-**** pprint-tab.lsp [0%]
+**** pprint-tab.lsp [20%]
   - [ ] (def-pprint-test pprint-tab.non-pretty.1
   - [ ] (def-pprint-test pprint-tab.non-pretty.2
   - [ ] (def-pprint-test pprint-tab.non-pretty.3
@@ -4471,18 +4471,18 @@
   - [ ] (def-pprint-test pprint-tab.section.1
   - [ ] (def-pprint-test pprint-tab.line-relative.1
   - [ ] (def-pprint-test pprint-tab.section-relative.1
-  - [ ] (deftest pprint-tab.error.1
-  - [ ] (deftest pprint-tab.error.2
-  - [ ] (deftest pprint-tab.error.3
-  - [ ] (deftest pprint-tab.error.4
+  - [X] (deftest pprint-tab.error.1
+  - [X] (deftest pprint-tab.error.2
+  - [X] (deftest pprint-tab.error.3
+  - [X] (deftest pprint-tab.error.4
   - [ ] (deftest pprint-tab.error.5
   - [ ] (deftest pprint-tab.error.5-unsafe
-**** prin1-to-string.lsp [0%]
+**** prin1-to-string.lsp [50%]
   - [ ] (deftest prin1-to-string.1
   - [ ] (deftest prin1-to-string.2
-  - [ ] (deftest prin1-to-string.error.1
-  - [ ] (deftest prin1-to-string.error.2
-**** pprint-logical-block.lsp [0%]
+  - [X] (deftest prin1-to-string.error.1
+  - [X] (deftest prin1-to-string.error.2
+**** pprint-logical-block.lsp [8%]
   - [ ] (deftest pprint-logical-block.1
   - [ ] (deftest pprint-logical-block.2
   - [ ] (deftest pprint-logical-block.3
@@ -4506,8 +4506,8 @@
   - [ ] (deftest pprint-logical-block.error.2-unsafe
   - [ ] (deftest pprint-logical-block.error.3
   - [ ] (deftest pprint-logical-block.error.3-unsafe
-  - [ ] (deftest pprint-logical-block.error.4
-  - [ ] (deftest pprint-logical-block.error.4-unsafe
+  - [X] (deftest pprint-logical-block.error.4
+  - [X] (deftest pprint-logical-block.error.4-unsafe
 **** print-array.lsp [0%]
   - [ ] (deftest print.array.0.1
   - [ ] (deftest print.array.0.2
@@ -5070,25 +5070,25 @@
   - [X] (deftest string-not-greaterp.error.4
   - [X] (deftest string-not-greaterp.error.5
   - [X] (deftest string-not-greaterp.error.6
-**** char-schar.lsp [55%]
+**** char-schar.lsp [66%]
   - [X] (deftest char.1
   - [X] (deftest char.2
   - [X] (deftest char.3
   - [X] (deftest char.4
-  - [ ] (deftest char.5
+  - [X] (deftest char.5
   - [ ] (deftest char.6
   - [ ] (deftest char.7
   - [ ] (deftest char.8
   - [ ] (deftest char.9
   - [ ] (deftest char.10
   - [X] (deftest char.order.1
-  - [ ] (deftest char.order.2
+  - [X] (deftest char.order.2
   - [X] (deftest char.error.1
   - [X] (deftest char.error.2
   - [X] (deftest char.error.3
   - [X] (deftest schar.1
   - [X] (deftest schar.2
-  - [ ] (deftest schar.3
+  - [X] (deftest schar.3
   - [ ] (deftest schar.4
   - [ ] (deftest schar.5
   - [ ] (deftest schar.6
@@ -5122,9 +5122,9 @@
   - [X] (deftest string-upcase.error.4
   - [X] (deftest string-upcase.error.5
   - [X] (deftest string-upcase.error.6
-**** make-string.lsp [29%]
+**** make-string.lsp [51%]
   - [X] (deftest make-string.1
-  - [ ] (deftest make-string.2
+  - [X] (deftest make-string.2
   - [ ] (deftest make-string.3
   - [ ] (deftest make-string.4
   - [ ] (deftest make-string.5
@@ -5134,20 +5134,20 @@
   - [ ] (deftest make-string.9
   - [ ] (deftest make-string.10
   - [ ] (def-fold-test make-string.fold.1 (make-string 5 :initial-element #\a))
-  - [ ] (deftest make-string.allow-other-keys.1
-  - [ ] (deftest make-string.allow-other-keys.2
-  - [ ] (deftest make-string.allow-other-keys.3
+  - [X] (deftest make-string.allow-other-keys.1
+  - [X] (deftest make-string.allow-other-keys.2
+  - [X] (deftest make-string.allow-other-keys.3
   - [ ] (deftest make-string.allow-other-keys.4
   - [ ] (deftest make-string.allow-other-keys.5
   - [ ] (deftest make-string.allow-other-keys.6
-  - [ ] (deftest make-string.keywords.7
+  - [X] (deftest make-string.keywords.7
   - [X] (deftest make-string.error.1
   - [X] (deftest make-string.error.2
   - [X] (deftest make-string.error.3
   - [X] (deftest make-string.error.4
   - [X] (deftest make-string.error.5
   - [X] (deftest make-string.error.6
-  - [ ] (deftest make-string.order.1
+  - [X] (deftest make-string.order.1
   - [ ] (deftest make-string.order.2
   - [ ] (deftest make-string.order.3
 **** string-left-trim.lsp [90%]
@@ -5183,7 +5183,7 @@
   - [X] (deftest string-left-trim.error.1
   - [X] (deftest string-left-trim.error.2
   - [X] (deftest string-left-trim.error.3
-**** string.lsp [37%]
+**** string.lsp [41%]
   - [X] (deftest string.1
   - [X] (deftest string.2
   - [ ] (deftest string.3
@@ -5198,7 +5198,7 @@
   - [X] (deftest string.12
   - [X] (deftest string.13
   - [ ] (deftest string.14
-  - [ ] (deftest string.15
+  - [X] (deftest string.15
   - [ ] (deftest string.16
   - [ ] (deftest string.17
   - [ ] (deftest string.18
@@ -6657,41 +6657,41 @@
   - [ ] (deftest loop.10.111
   - [ ] (deftest loop.10.112
   - [ ] (deftest loop.10.113
-**** loop7.lsp [8%]
+**** loop7.lsp [70%]
   - [ ] (cl-test::=in-package "CL-TEST")
   - [ ] (cl-test::=in-package "CL-TEST")
-  - [ ] (deftest loop.7.1
-  - [ ] (deftest loop.7.2
-  - [ ] (deftest loop.7.3
-  - [ ] (deftest loop.7.4
-  - [ ] (deftest loop.7.5
-  - [ ] (deftest loop.7.6
-  - [ ] (deftest loop.7.7
-  - [ ] (deftest loop.7.8
-  - [ ] (deftest loop.7.9
-  - [ ] (deftest loop.7.10
-  - [ ] (deftest loop.7.11
-  - [ ] (deftest loop.7.12
-  - [ ] (deftest loop.7.13
-  - [ ] (deftest loop.7.14
-  - [ ] (deftest loop.7.15
-  - [ ] (deftest loop.7.16
-  - [ ] (deftest loop.7.17
+  - [X] (deftest loop.7.1
+  - [X] (deftest loop.7.2
+  - [X] (deftest loop.7.3
+  - [X] (deftest loop.7.4
+  - [X] (deftest loop.7.5
+  - [X] (deftest loop.7.6
+  - [X] (deftest loop.7.7
+  - [X] (deftest loop.7.8
+  - [X] (deftest loop.7.9
+  - [X] (deftest loop.7.10
+  - [X] (deftest loop.7.11
+  - [X] (deftest loop.7.12
+  - [X] (deftest loop.7.13
+  - [X] (deftest loop.7.14
+  - [X] (deftest loop.7.15
+  - [X] (deftest loop.7.16
+  - [X] (deftest loop.7.17
   - [X] (deftest loop.7.18
   - [X] (deftest loop.7.19
   - [X] (deftest loop.7.20
-  - [ ] (deftest loop.7.21
-  - [ ] (deftest loop.7.22
-  - [ ] (deftest loop.7.23
+  - [X] (deftest loop.7.21
+  - [X] (deftest loop.7.22
+  - [X] (deftest loop.7.23
   - [ ] (deftest loop.7.24
   - [ ] (deftest loop.7.25
   - [ ] (deftest loop.7.26
   - [ ] (deftest loop.7.27
   - [ ] (deftest loop.7.28
   - [ ] (deftest loop.7.29
-  - [ ] (deftest loop.7.30
-  - [ ] (deftest loop.7.31
-  - [ ] (deftest loop.7.32
+  - [X] (deftest loop.7.30
+  - [X] (deftest loop.7.31
+  - [X] (deftest loop.7.32
   - [ ] (deftest loop.7.33
   - [ ] (deftest loop.7.34
   - [ ] (deftest loop.7.35
@@ -6941,17 +6941,17 @@
   - [ ] (deftest loop.9.45
   - [ ] (deftest loop.9.46
   - [ ] (deftest loop.9.47
-**** loop6.lsp [10%]
-  - [ ] (deftest loop.6.1
-  - [ ] (deftest loop.6.2
-  - [ ] (deftest loop.6.3
-  - [ ] (deftest loop.6.4
-  - [ ] (deftest loop.6.5
-  - [ ] (deftest loop.6.6
-  - [ ] (deftest loop.6.7
-  - [ ] (deftest loop.6.8
-  - [ ] (deftest loop.6.9
-  - [ ] (deftest loop.6.10
+**** loop6.lsp [36%]
+  - [X] (deftest loop.6.1
+  - [X] (deftest loop.6.2
+  - [X] (deftest loop.6.3
+  - [X] (deftest loop.6.4
+  - [X] (deftest loop.6.5
+  - [X] (deftest loop.6.6
+  - [X] (deftest loop.6.7
+  - [X] (deftest loop.6.8
+  - [X] (deftest loop.6.9
+  - [X] (deftest loop.6.10
   - [ ] (deftest loop.6.11
   - [ ] (deftest loop.6.12
   - [ ] (deftest loop.6.13
@@ -6980,8 +6980,8 @@
   - [ ] (deftest loop.6.36
   - [ ] (deftest loop.6.37
   - [ ] (deftest loop.6.38
-  - [ ] (deftest loop.6.39
-  - [ ] (deftest loop.6.40
+  - [X] (deftest loop.6.39
+  - [X] (deftest loop.6.40
   - [ ] (deftest loop.6.41
   - [ ] (deftest loop.6.42
   - [X] (deftest loop.6.error.1
@@ -9674,12 +9674,12 @@
   - [X] (deftest keyword-package-nicknames
   - [ ] (deftest common-lisp-package-nicknames
   - [ ] (deftest common-lisp-user-package-nicknames
-  - [ ] (deftest no-extra-symbols-exported-from-common-lisp
+  - [X] (deftest no-extra-symbols-exported-from-common-lisp
   - [ ] (deftest keyword-behavior
   - [ ] (deftest cl-function-symbols.1
-  - [ ] (deftest cl-macro-symbols.1
-  - [ ] (deftest cl-constant-symbols.1
-  - [ ] (deftest cl-variable-symbols.1
+  - [X] (deftest cl-macro-symbols.1
+  - [X] (deftest cl-constant-symbols.1
+  - [X] (deftest cl-variable-symbols.1
   - [ ] (deftest cl-types-that-are-classes.1
   - [ ] (deftest cl-types-that-are-classes.2
   - [ ] (deftest cl-types-that-are-classes.3
@@ -10757,13 +10757,13 @@
   - [ ] (deftest ignorable.6
   - [X] (deftest ignorable.7
   - [ ] (deftest ignorable.8
-**** macro-function.lsp [17%]
-  - [ ] (deftest macro-function.1
+**** macro-function.lsp [35%]
+  - [X] (deftest macro-function.1
   - [ ] (deftest macro-function.2
   - [ ] (deftest macro-function.3
   - [X] (deftest macro-function.4
-  - [ ] (deftest macro-function.5
-  - [ ] (deftest macro-function.6
+  - [X] (deftest macro-function.5
+  - [X] (deftest macro-function.6
   - [ ] (deftest macro-function.7
   - [ ] (deftest macro-function.8
   - [ ] (deftest macro-function.9
@@ -10860,7 +10860,7 @@
   - [X] (deftest define-symbol-macro.error.1
   - [X] (deftest define-symbol-macro.error.2
   - [X] (deftest define-symbol-macro.error.3
-**** dynamic-extent.lsp [81%]
+**** dynamic-extent.lsp [87%]
   - [X] (deftest dynamic-extent.1
   - [X] (deftest dynamic-extent.2
   - [X] (deftest dynamic-extent.3
@@ -10873,7 +10873,7 @@
   - [X] (deftest dynamic-extent.10
   - [X] (deftest dynamic-extent.11
   - [ ] (deftest dynamic-extent.12
-  - [ ] (deftest dynamic-extent.13
+  - [X] (deftest dynamic-extent.13
   - [ ] (deftest dynamic-extent.14
   - [X] (deftest dynamic-extent.15
   - [X] (deftest dynamic-extent.16
@@ -10894,9 +10894,9 @@
   - [X] (deftest constantp.order.1
   - [ ] (deftest constantp.order.2
 **** compiler-macros.lsp [0%]
-**** eval.lsp [90%]
+**** eval.lsp [100%]
   - [X] (deftest eval.1
-  - [ ] (deftest eval.2
+  - [X] (deftest eval.2
   - [X] (deftest eval.3
   - [X] (deftest eval.4
   - [X] (deftest eval.5
@@ -15389,7 +15389,7 @@
   - [X] (deftest sleep.error.1
   - [X] (deftest sleep.error.2
   - [ ] (deftest sleep.error.3
-**** documentation.lsp [3%]
+**** documentation.lsp [13%]
   - [ ] (deftest documentation.function.t.1
   - [ ] (deftest documentation.function.t.2
   - [ ] (deftest documentation.function.t.3
@@ -15420,9 +15420,9 @@
   - [ ] (deftest documentation.symbol.function.4
   - [ ] (deftest documentation.symbol.function.5
   - [ ] (deftest documentation.symbol.function.6
-  - [ ] (deftest documentation.symbol.function.7
-  - [ ] (deftest documentation.symbol.function.8
-  - [ ] (deftest documentation.symbol.function.9
+  - [X] (deftest documentation.symbol.function.7
+  - [X] (deftest documentation.symbol.function.8
+  - [X] (deftest documentation.symbol.function.9
   - [ ] (deftest documentation.symbol.compiler-macro.1
   - [ ] (deftest documentation.symbol.compiler-macro.2
   - [ ] (deftest documentation.symbol.setf.1
@@ -15437,7 +15437,7 @@
   - [ ] (deftest documentation.symbol.type.1
   - [ ] (deftest documentation.symbol.type.2
   - [ ] (deftest documentation.symbol.type.3
-  - [ ] (deftest documentation.symbol.type.4
+  - [X] (deftest documentation.symbol.type.4
   - [ ] (deftest documentation.symbol.structure.1
   - [ ] (deftest documentation.symbol.structure.2
   - [ ] (deftest documentation.symbol.structure.3
@@ -15445,8 +15445,8 @@
   - [ ] (deftest documentation.symbol.variable.2
   - [ ] (deftest documentation.symbol.variable.3
   - [ ] (deftest documentation.symbol.variable.4
-  - [ ] (deftest documentation.symbol.variable.5
-  - [ ] (deftest documentation.symbol.variable.6
+  - [X] (deftest documentation.symbol.variable.5
+  - [X] (deftest documentation.symbol.variable.6
   - [ ] (deftest documentation.new-method.1
 **** apropos.lsp [25%]
   - [X] (deftest apropos.1

From 0f955dbd2909adbba6326fb97a5780ee4b2fa625 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89ricles=20Lima?= <ericlesaquileslima@gmail.com>
Date: Sun, 22 Jul 2018 13:39:46 -0300
Subject: [PATCH 2/7] Update REPORT statistics

---
 reports/REPORT.org | 1516 ++++++++++++++++++++++----------------------
 1 file changed, 758 insertions(+), 758 deletions(-)

diff --git a/reports/REPORT.org b/reports/REPORT.org
index 4fa0dbc6..81fd61fd 100644
--- a/reports/REPORT.org
+++ b/reports/REPORT.org
@@ -34,7 +34,7 @@
   - [ ] (def-syntax-test get-macro-character.7
   - [ ] (deftest get-macro-character.error.1
   - [ ] (deftest get-macro-character.error.2
-**** read-preserving-whitespace.lsp [0%]
+**** read-preserving-whitespace.lsp [29%]
   - [ ] (deftest read-preserving-whitespace.1
   - [ ] (deftest read-preserving-whitespace.2
   - [ ] (deftest read-preserving-whitespace.3
@@ -54,22 +54,22 @@
   - [ ] (deftest read-preserving-whitespace.17
   - [ ] (deftest read-preserving-whitespace.18
   - [ ] (deftest read-preserving-whitespace.19
-  - [ ] (deftest read-preserving-whitespace.error.1
-  - [ ] (deftest read-preserving-whitespace.error.2
-  - [ ] (deftest read-preserving-whitespace.error.3
-  - [ ] (deftest read-preserving-whitespace.error.4
-  - [ ] (deftest read-preserving-whitespace.error.5
-  - [ ] (deftest read-preserving-whitespace.error.6
-  - [ ] (deftest read-preserving-whitespace.error.7
-  - [ ] (deftest read-preserving-whitespace.error.8
-**** readtablep.lsp [0%]
-  - [ ] (deftest readtablep.1
+  - [X] (deftest read-preserving-whitespace.error.1
+  - [X] (deftest read-preserving-whitespace.error.2
+  - [X] (deftest read-preserving-whitespace.error.3
+  - [X] (deftest read-preserving-whitespace.error.4
+  - [X] (deftest read-preserving-whitespace.error.5
+  - [X] (deftest read-preserving-whitespace.error.6
+  - [X] (deftest read-preserving-whitespace.error.7
+  - [X] (deftest read-preserving-whitespace.error.8
+**** readtablep.lsp [85%]
+  - [X] (deftest readtablep.1
   - [ ] (deftest readtablep.2
-  - [ ] (deftest readtablep.3
-  - [ ] (deftest readtablep.4
-  - [ ] (deftest readtablep.error.1
-  - [ ] (deftest readtablep.error.2
-  - [ ] (deftest readtablep.error.3
+  - [X] (deftest readtablep.3
+  - [X] (deftest readtablep.4
+  - [X] (deftest readtablep.error.1
+  - [X] (deftest readtablep.error.2
+  - [X] (deftest readtablep.error.3
 **** dispatch-macro-characters.lsp [0%]
   - [ ] (deftest make-dispatch-macro-character.1
   - [ ] (deftest make-dispatch-macro-character.2
@@ -102,15 +102,15 @@
   - [ ] (deftest with-standard-io-syntax.21
   - [ ] (deftest with-standard-io-syntax.22
   - [ ] (deftest with-standard-io-syntax.23
-**** read-delimited-list.lsp [0%]
-  - [ ] (deftest read-delimited-list.1
-  - [ ] (deftest read-delimited-list.2
+**** read-delimited-list.lsp [87%]
+  - [X] (deftest read-delimited-list.1
+  - [X] (deftest read-delimited-list.2
   - [ ] (deftest read-delimited-list.3
-  - [ ] (deftest read-delimited-list.4
-  - [ ] (deftest read-delimited-list.5
-  - [ ] (deftest read-delimited-list.6
-  - [ ] (deftest read-delimited-list.error.1
-  - [ ] (deftest read-delimited-list.error.2
+  - [X] (deftest read-delimited-list.4
+  - [X] (deftest read-delimited-list.5
+  - [X] (deftest read-delimited-list.6
+  - [X] (deftest read-delimited-list.error.1
+  - [X] (deftest read-delimited-list.error.2
 **** syntax-tokens.lsp [0%]
   - [ ] (def-syntax-test syntax.number-token.error.1
   - [ ] (def-syntax-test syntax.number-token.error.2
@@ -134,7 +134,7 @@
   - [ ] (def-syntax-test syntax.right-paren-error.1
   - [ ] (def-syntax-test syntax.comma-error.1
   - [ ] (def-syntax-test syntax.comma-error.2
-**** reader-test.lsp [0%]
+**** reader-test.lsp [3%]
   - [ ] (def-syntax-test read-symbol.1
   - [ ] (def-syntax-test read-symbol.2
   - [ ] (def-syntax-test read-symbol.3
@@ -161,7 +161,7 @@
   - [ ] (def-syntax-test read-symbol.23
   - [ ] (def-syntax-test read-symbol.24
   - [ ] (def-syntax-test read-symbol.25
-  - [ ] (deftest read-float.1
+  - [X] (deftest read-float.1
 **** readtable-case.lsp [0%]
   - [ ] (deftest readtable-case.1
   - [ ] (deftest readtable-case.2
@@ -372,7 +372,7 @@
   - [ ] (def-syntax-test syntax.single-escape-eof.2
   - [ ] (def-syntax-test syntax.multiple-escape-eof.1
   - [ ] (def-syntax-test syntax.multiple-escape-eof.2
-**** read-from-string.lsp [0%]
+**** read-from-string.lsp [43%]
   - [ ] (deftest read-from-string.1
   - [ ] (deftest read-from-string.2
   - [ ] (deftest read-from-string.3
@@ -390,56 +390,56 @@
   - [ ] (deftest read-from-string.15
   - [ ] (deftest read-from-string.16
   - [ ] (deftest read-from-string.17
-  - [ ] (deftest read-from-string.error.1
-  - [ ] (deftest read-from-string.error.2
-  - [ ] (deftest read-from-string.error.3
-  - [ ] (deftest read-from-string.error.4
-  - [ ] (deftest read-from-string.error.5
-  - [ ] (deftest read-from-string.error.6
-  - [ ] (deftest read-from-string.error.7
-  - [ ] (deftest read-from-string.error.8
-  - [ ] (deftest read-from-string.error.9
-  - [ ] (deftest read-from-string.error.10
-  - [ ] (deftest read-from-string.error.11
-  - [ ] (deftest read-from-string.error.12
-  - [ ] (deftest read-from-string.error.13
-**** read.lsp [0%]
+  - [X] (deftest read-from-string.error.1
+  - [X] (deftest read-from-string.error.2
+  - [X] (deftest read-from-string.error.3
+  - [X] (deftest read-from-string.error.4
+  - [X] (deftest read-from-string.error.5
+  - [X] (deftest read-from-string.error.6
+  - [X] (deftest read-from-string.error.7
+  - [X] (deftest read-from-string.error.8
+  - [X] (deftest read-from-string.error.9
+  - [X] (deftest read-from-string.error.10
+  - [X] (deftest read-from-string.error.11
+  - [X] (deftest read-from-string.error.12
+  - [X] (deftest read-from-string.error.13
+**** read.lsp [85%]
   - [ ] (deftest read.1
-  - [ ] (deftest read.2
-  - [ ] (deftest read.3
-  - [ ] (deftest read.4
-  - [ ] (deftest read.5
-  - [ ] (deftest read.6
-  - [ ] (deftest read.7
-  - [ ] (deftest read.8
-  - [ ] (deftest read.9
-  - [ ] (deftest read.10
-  - [ ] (deftest read.11
-  - [ ] (deftest read.12
-  - [ ] (deftest read.13
-  - [ ] (deftest read.14
-  - [ ] (deftest read.15
+  - [X] (deftest read.2
+  - [X] (deftest read.3
+  - [X] (deftest read.4
+  - [X] (deftest read.5
+  - [X] (deftest read.6
+  - [X] (deftest read.7
+  - [X] (deftest read.8
+  - [X] (deftest read.9
+  - [X] (deftest read.10
+  - [X] (deftest read.11
+  - [X] (deftest read.12
+  - [X] (deftest read.13
+  - [X] (deftest read.14
+  - [X] (deftest read.15
   - [ ] (deftest read.16
   - [ ] (deftest read.17
   - [ ] (deftest read.18
-  - [ ] (deftest read.19
-  - [ ] (deftest read.error.1
-  - [ ] (deftest read.error.2
-  - [ ] (deftest read.error.3
-  - [ ] (deftest read.error.4
-  - [ ] (deftest read.error.5
-  - [ ] (deftest read.error.6
-  - [ ] (deftest read.error.7
-  - [ ] (deftest read.error.8
-**** copy-readtable.lsp [0%]
-  - [ ] (deftest copy-readtable.1
-  - [ ] (deftest copy-readtable.2
-  - [ ] (deftest copy-readtable.3
-  - [ ] (deftest copy-readtable.4
-  - [ ] (deftest copy-readtable.5
-  - [ ] (deftest copy-readtable.6
-  - [ ] (deftest copy-readtable.7
-  - [ ] (deftest copy-readtable.error.1
+  - [X] (deftest read.19
+  - [X] (deftest read.error.1
+  - [X] (deftest read.error.2
+  - [X] (deftest read.error.3
+  - [X] (deftest read.error.4
+  - [X] (deftest read.error.5
+  - [X] (deftest read.error.6
+  - [X] (deftest read.error.7
+  - [X] (deftest read.error.8
+**** copy-readtable.lsp [100%]
+  - [X] (deftest copy-readtable.1
+  - [X] (deftest copy-readtable.2
+  - [X] (deftest copy-readtable.3
+  - [X] (deftest copy-readtable.4
+  - [X] (deftest copy-readtable.5
+  - [X] (deftest copy-readtable.6
+  - [X] (deftest copy-readtable.7
+  - [X] (deftest copy-readtable.error.1
 **** set-macro-character.lsp [0%]
   - [ ] (def-syntax-test set-macro-character.1
   - [ ] (def-syntax-test set-macro-character.2
@@ -2297,7 +2297,7 @@
   - [X] (deftest defconstant.error.1
   - [X] (deftest defconstant.error.2
   - [X] (deftest defconstant.error.3
-**** equal.lsp [34%]
+**** equal.lsp [91%]
   - [ ] (deftest equal.1
   - [X] (deftest equal.2
   - [X] (deftest equal.3
@@ -2308,19 +2308,19 @@
   - [X] (deftest equal.8
   - [X] (deftest equal.9
   - [X] (deftest equal.10
-  - [ ] (deftest equal.11
-  - [ ] (deftest equal.12
-  - [ ] (deftest equal.13
-  - [ ] (deftest equal.14
-  - [ ] (deftest equal.15
-  - [ ] (deftest equal.16
-  - [ ] (deftest equal.17
-  - [ ] (deftest equal.18
-  - [ ] (deftest equal.19
-  - [ ] (deftest equal.order.1
-  - [ ] (deftest equal.error.1
-  - [ ] (deftest equal.error.2
-  - [ ] (deftest equal.error.3
+  - [X] (deftest equal.11
+  - [X] (deftest equal.12
+  - [X] (deftest equal.13
+  - [X] (deftest equal.14
+  - [X] (deftest equal.15
+  - [X] (deftest equal.16
+  - [X] (deftest equal.17
+  - [X] (deftest equal.18
+  - [X] (deftest equal.19
+  - [X] (deftest equal.order.1
+  - [X] (deftest equal.error.1
+  - [X] (deftest equal.error.2
+  - [X] (deftest equal.error.3
 **** multiple-value-list.lsp [76%]
   - [X] (deftest multiple-value-list.1
   - [X] (deftest multiple-value-list.2
@@ -2423,7 +2423,7 @@
   - [X] (deftest nth-value.error.1
   - [X] (deftest nth-value.error.2
   - [X] (deftest nth-value.error.3
-**** notany.lsp [0%]
+**** notany.lsp [14%]
   - [ ] (deftest notany.1
   - [ ] (deftest notany.2
   - [ ] (deftest notany.3
@@ -2460,12 +2460,12 @@
   - [ ] (deftest notany.error.1
   - [ ] (deftest notany.error.4
   - [ ] (deftest notany.error.7
-  - [ ] (deftest notany.error.8
-  - [ ] (deftest notany.error.9
-  - [ ] (deftest notany.error.10
-  - [ ] (deftest notany.error.11
-  - [ ] (deftest notany.error.12
-  - [ ] (deftest notany.error.13
+  - [X] (deftest notany.error.8
+  - [X] (deftest notany.error.9
+  - [X] (deftest notany.error.10
+  - [X] (deftest notany.error.11
+  - [X] (deftest notany.error.12
+  - [X] (deftest notany.error.13
 **** typecase.lsp [11%]
   - [ ] (deftest typecase.1
   - [ ] (deftest typecase.2
@@ -3060,7 +3060,7 @@
   - [X] (deftest psetq.error.1
   - [X] (deftest psetq.error.2
   - [X] (deftest psetq.error.3
-**** places.lsp [17%]
+**** places.lsp [50%]
   - [X] (deftest setf.order.1
   - [X] (deftest setf.order.2
   - [X] (deftest incf.order.1
@@ -3079,26 +3079,26 @@
   - [ ] (deftest setf-apply.3
   - [ ] (deftest setf-apply.4
   - [ ] (deftest setf-expander.1
-  - [ ] (deftest setf-macro.1
+  - [X] (deftest setf-macro.1
   - [ ] (deftest setf-macro.2
-  - [ ] (deftest setf-macro.3
+  - [X] (deftest setf-macro.3
   - [ ] (deftest setf-macro.4
   - [ ] (deftest setf-symbol-macro.1
   - [ ] (deftest setf-symbol-macro.2
   - [ ] (deftest setf-symbol-macro.3
-  - [ ] (deftest setq.1
-  - [ ] (deftest setq.2
-  - [ ] (deftest setq.3
-  - [ ] (deftest setq.4
+  - [X] (deftest setq.1
+  - [X] (deftest setq.2
+  - [X] (deftest setq.3
+  - [X] (deftest setq.4
   - [ ] (deftest setq.5
-  - [ ] (deftest setq.6
+  - [X] (deftest setq.6
   - [ ] (deftest setq.7
-  - [ ] (deftest setf.1
-  - [ ] (deftest setf.2
-  - [ ] (deftest setf.3
-  - [ ] (deftest setf.4
-  - [ ] (deftest setf.5
-  - [ ] (deftest setf.6
+  - [X] (deftest setf.1
+  - [X] (deftest setf.2
+  - [X] (deftest setf.3
+  - [X] (deftest setf.4
+  - [X] (deftest setf.5
+  - [X] (deftest setf.6
   - [ ] (deftest setf.7
   - [ ] (deftest setf.8
 **** catch.lsp [81%]
@@ -3186,7 +3186,7 @@
   - [ ] (deftest multiple-value-call.3
   - [ ] (deftest multiple-value-call.4
   - [ ] (deftest multiple-value-call.5
-**** notevery.lsp [0%]
+**** notevery.lsp [14%]
   - [ ] (deftest notevery.1
   - [ ] (deftest notevery.2
   - [ ] (deftest notevery.3
@@ -3223,12 +3223,12 @@
   - [ ] (deftest notevery.error.1
   - [ ] (deftest notevery.error.4
   - [ ] (deftest notevery.error.7
-  - [ ] (deftest notevery.error.8
-  - [ ] (deftest notevery.error.9
-  - [ ] (deftest notevery.error.10
-  - [ ] (deftest notevery.error.11
-  - [ ] (deftest notevery.error.12
-  - [ ] (deftest notevery.error.13
+  - [X] (deftest notevery.error.8
+  - [X] (deftest notevery.error.9
+  - [X] (deftest notevery.error.10
+  - [X] (deftest notevery.error.11
+  - [X] (deftest notevery.error.12
+  - [X] (deftest notevery.error.13
 **** lambda-list-keywords.lsp [50%]
   - [X] (deftest lambda-list-keywords.1
   - [X] (deftest lambda-list-keywords.2
@@ -3268,7 +3268,7 @@
   - [ ] (deftest define-setf-expander.5
   - [ ] (deftest define-setf-expander.6
   - [ ] (deftest define-setf-expander.7
-**** every.lsp [13%]
+**** every.lsp [77%]
   - [X] (deftest every.1
   - [X] (deftest every.2
   - [X] (deftest every.3
@@ -3277,42 +3277,42 @@
   - [X] (deftest every.6
   - [X] (deftest every.7
   - [ ] (deftest every.8
-  - [ ] (deftest every.9
-  - [ ] (deftest every.10
-  - [ ] (deftest every.11
-  - [ ] (deftest every.12
-  - [ ] (deftest every.13
-  - [ ] (deftest every.14
-  - [ ] (deftest every.15
-  - [ ] (deftest every.16
-  - [ ] (deftest every.17
-  - [ ] (deftest every.18
-  - [ ] (deftest every.19
-  - [ ] (deftest every.20
-  - [ ] (deftest every.21
-  - [ ] (deftest every.22
-  - [ ] (deftest every.23
-  - [ ] (deftest every.24
-  - [ ] (deftest every.25
-  - [ ] (deftest every.26
-  - [ ] (deftest every.27
+  - [X] (deftest every.9
+  - [X] (deftest every.10
+  - [X] (deftest every.11
+  - [X] (deftest every.12
+  - [X] (deftest every.13
+  - [X] (deftest every.14
+  - [X] (deftest every.15
+  - [X] (deftest every.16
+  - [X] (deftest every.17
+  - [X] (deftest every.18
+  - [X] (deftest every.19
+  - [X] (deftest every.20
+  - [X] (deftest every.21
+  - [X] (deftest every.22
+  - [X] (deftest every.23
+  - [X] (deftest every.24
+  - [X] (deftest every.25
+  - [X] (deftest every.26
+  - [X] (deftest every.27
   - [ ] (deftest every.28
   - [ ] (deftest every.29
   - [ ] (deftest every.30
   - [ ] (deftest every.31
   - [ ] (deftest every.32
-  - [ ] (deftest every.order.1
-  - [ ] (deftest every.order.2
+  - [X] (deftest every.order.1
+  - [X] (deftest every.order.2
   - [ ] (deftest every.error.1
   - [ ] (deftest every.error.2
   - [ ] (deftest every.error.3
-  - [ ] (deftest every.error.8
-  - [ ] (deftest every.error.9
-  - [ ] (deftest every.error.10
-  - [ ] (deftest every.error.11
-  - [ ] (deftest every.error.12
-  - [ ] (deftest every.error.13
-  - [ ] (deftest every.error.14
+  - [X] (deftest every.error.8
+  - [X] (deftest every.error.9
+  - [X] (deftest every.error.10
+  - [X] (deftest every.error.11
+  - [X] (deftest every.error.12
+  - [X] (deftest every.error.13
+  - [X] (deftest every.error.14
 **** functionp.lsp [73%]
   - [X] (deftest functionp.1
   - [X] (deftest functionp.2
@@ -3583,7 +3583,7 @@
   - [X] (deftest flet.72
   - [X] (deftest flet.73
   - [ ] (deftest flet.74
-**** some.lsp [13%]
+**** some.lsp [77%]
   - [X] (deftest some.1
   - [X] (deftest some.2
   - [X] (deftest some.3
@@ -3592,42 +3592,42 @@
   - [X] (deftest some.6
   - [X] (deftest some.7
   - [ ] (deftest some.8
-  - [ ] (deftest some.9
-  - [ ] (deftest some.10
-  - [ ] (deftest some.11
-  - [ ] (deftest some.12
-  - [ ] (deftest some.13
-  - [ ] (deftest some.14
-  - [ ] (deftest some.15
-  - [ ] (deftest some.16
-  - [ ] (deftest some.17
-  - [ ] (deftest some.18
-  - [ ] (deftest some.19
-  - [ ] (deftest some.20
-  - [ ] (deftest some.21
-  - [ ] (deftest some.22
+  - [X] (deftest some.9
+  - [X] (deftest some.10
+  - [X] (deftest some.11
+  - [X] (deftest some.12
+  - [X] (deftest some.13
+  - [X] (deftest some.14
+  - [X] (deftest some.15
+  - [X] (deftest some.16
+  - [X] (deftest some.17
+  - [X] (deftest some.18
+  - [X] (deftest some.19
+  - [X] (deftest some.20
+  - [X] (deftest some.21
+  - [X] (deftest some.22
   - [ ] (deftest some.23
   - [ ] (deftest some.24
   - [ ] (deftest some.25
-  - [ ] (deftest some.26
-  - [ ] (deftest some.27
-  - [ ] (deftest some.28
-  - [ ] (deftest some.29
-  - [ ] (deftest some.30
+  - [X] (deftest some.26
+  - [X] (deftest some.27
+  - [X] (deftest some.28
+  - [X] (deftest some.29
+  - [X] (deftest some.30
   - [ ] (deftest some.31
   - [ ] (deftest some.32
-  - [ ] (deftest some.order.1
-  - [ ] (deftest some.order.2
+  - [X] (deftest some.order.1
+  - [X] (deftest some.order.2
   - [ ] (deftest some.error.1
   - [ ] (deftest some.error.4
   - [ ] (deftest some.error.7
-  - [ ] (deftest some.error.8
-  - [ ] (deftest some.error.9
-  - [ ] (deftest some.error.10
-  - [ ] (deftest some.error.11
-  - [ ] (deftest some.error.12
-  - [ ] (deftest some.error.13
-  - [ ] (deftest some.error.14
+  - [X] (deftest some.error.8
+  - [X] (deftest some.error.9
+  - [X] (deftest some.error.10
+  - [X] (deftest some.error.11
+  - [X] (deftest some.error.12
+  - [X] (deftest some.error.13
+  - [X] (deftest some.error.14
 **** letstar.lsp [43%]
   - [X] (deftest let*.1
   - [X] (deftest let*.2
@@ -3894,7 +3894,7 @@
   - [X] (deftest make-pathname-error-absolute-wild-inferiors-back
   - [X] (deftest make-pathname-error-relative-wild-inferiors-back
 *** system-construction [0%]
-**** load-file.lsp [0%]
+**** load-file.lsp [14%]
   - [ ] (deftest load.1
   - [ ] (deftest load.2
   - [ ] (deftest load.3
@@ -3916,27 +3916,27 @@
   - [ ] (deftest load.17
   - [ ] (deftest load.18
   - [ ] (deftest load.19
-  - [ ] (deftest load-pathname.1
+  - [X] (deftest load-pathname.1
   - [ ] (deftest load-truename.1
   - [ ] (deftest load-print.1
-  - [ ] (deftest load.error.1
-  - [ ] (deftest load.error.2
-  - [ ] (deftest load.error.3
-**** modules.lsp [0%]
-  - [ ] (deftest modules.1
+  - [X] (deftest load.error.1
+  - [X] (deftest load.error.2
+  - [X] (deftest load.error.3
+**** modules.lsp [30%]
+  - [X] (deftest modules.1
   - [ ] (deftest modules.2
   - [ ] (deftest modules.3
-  - [ ] (deftest modules.4
+  - [X] (deftest modules.4
   - [ ] (deftest modules.5
-  - [ ] (deftest modules.6
+  - [X] (deftest modules.6
   - [ ] (deftest modules.7
   - [ ] (deftest modules.8
-  - [ ] (deftest modules.9
+  - [X] (deftest modules.9
   - [ ] (deftest modules.10
   - [ ] (deftest modules.11
   - [ ] (deftest modules.12
   - [ ] (deftest modules.13
-**** compile-file.lsp [0%]
+**** compile-file.lsp [7%]
   - [ ] (deftest compile-file.1
   - [ ] (deftest compile-file.2
   - [ ] (deftest compile-file.2a
@@ -3961,8 +3961,8 @@
   - [ ] (deftest compile-file.20
   - [ ] (deftest compile-file-pathname.1
   - [ ] (deftest compile-file-truename.1
-  - [ ] (deftest compile-file.error.1
-  - [ ] (deftest compile-file.error.2
+  - [X] (deftest compile-file.error.1
+  - [X] (deftest compile-file.error.2
 **** with-compilation-unit.lsp [0%]
   - [ ] (deftest with-compilation-unit.1
   - [ ] (deftest with-compilation-unit.2
@@ -3971,11 +3971,11 @@
   - [ ] (deftest with-compilation-unit.5
   - [ ] (deftest with-compilation-unit.6
   - [ ] (deftest with-compilation-unit.7
-**** features.lsp [0%]
-  - [ ] (deftest features.1
-  - [ ] (deftest features.2
-  - [ ] (deftest features.3
-  - [ ] (deftest features.4
+**** features.lsp [100%]
+  - [X] (deftest features.1
+  - [X] (deftest features.2
+  - [X] (deftest features.3
+  - [X] (deftest features.4
 *** printer [0%]
 **** pprint-newline.lsp [4%]
   - [ ] (def-pprint-test pprint-newline.1
@@ -5284,7 +5284,7 @@
   - [X] (deftest string-downcase.error.5
   - [X] (deftest string-downcase.error.6
 *** misc [0%]
-**** misc.lsp [2%]
+**** misc.lsp [3%]
   - [ ] (deftest misc.1
   - [ ] (deftest misc.2
   - [ ] (deftest misc.3
@@ -5871,12 +5871,12 @@
   - [ ] (deftest misc.537
   - [ ] (deftest misc.538
   - [ ] (deftest misc.539
-  - [ ] (deftest misc.540
+  - [X] (deftest misc.540
   - [ ] (deftest misc.541
   - [ ] (deftest misc.542
   - [ ] (deftest misc.543
   - [ ] (deftest misc.544
-  - [ ] (deftest misc.545
+  - [X] (deftest misc.545
   - [ ] (deftest misc.546
   - [ ] (deftest misc.547
   - [ ] (deftest misc.548
@@ -5903,7 +5903,7 @@
   - [ ] (deftest misc.568
   - [ ] (deftest misc.569
   - [ ] (deftest misc.570
-  - [ ] (deftest misc.571
+  - [X] (deftest misc.571
   - [ ] (deftest misc.572
   - [ ] (deftest misc.573
   - [ ] (deftest misc.574
@@ -5964,13 +5964,13 @@
   - [ ] (deftest misc.628
   - [ ] (deftest misc.629
   - [ ] (deftest misc.630
-  - [ ] (deftest misc.631
+  - [X] (deftest misc.631
   - [ ] (deftest misc.632
   - [ ] (deftest misc.633
   - [ ] (deftest misc.634
   - [ ] (deftest misc.635
   - [ ] (deftest misc.636
-  - [ ] (deftest misc.637
+  - [X] (deftest misc.637
   - [ ] (deftest misc.638
   - [ ] (deftest misc.639
   - [ ] (deftest misc.640
@@ -6722,7 +6722,7 @@
   - [ ] (deftest loop.2.24
   - [ ] (deftest loop.2.25
   - [ ] (deftest loop.2.26
-**** loop5.lsp [11%]
+**** loop5.lsp [61%]
   - [X] (deftest loop.5.1
   - [X] (deftest loop.5.2
   - [ ] (deftest loop.5.3
@@ -6731,34 +6731,34 @@
   - [ ] (deftest loop.5.6
   - [ ] (deftest loop.5.7
   - [ ] (deftest loop.5.8
-  - [ ] (deftest loop.5.10
-  - [ ] (deftest loop.5.11
+  - [X] (deftest loop.5.10
+  - [X] (deftest loop.5.11
   - [ ] (deftest loop.5.12
   - [ ] (deftest loop.5.13
   - [ ] (deftest loop.5.14
-  - [ ] (deftest loop.5.20
-  - [ ] (deftest loop.5.21
+  - [X] (deftest loop.5.20
+  - [X] (deftest loop.5.21
   - [ ] (deftest loop.5.22
-  - [ ] (deftest loop.5.23
-  - [ ] (deftest loop.5.30
-  - [ ] (deftest loop.5.32
-  - [ ] (deftest loop.5.33
+  - [X] (deftest loop.5.23
+  - [X] (deftest loop.5.30
+  - [X] (deftest loop.5.32
+  - [X] (deftest loop.5.33
   - [ ] (deftest loop.5.34
   - [ ] (deftest loop.5.35
-  - [ ] (deftest loop.5.36
-  - [ ] (deftest loop.5.37
-  - [ ] (deftest loop.5.38
-  - [ ] (deftest loop.5.39
-  - [ ] (deftest loop.5.40
-  - [ ] (deftest loop.5.41
+  - [X] (deftest loop.5.36
+  - [X] (deftest loop.5.37
+  - [X] (deftest loop.5.38
+  - [X] (deftest loop.5.39
+  - [X] (deftest loop.5.40
+  - [X] (deftest loop.5.41
   - [ ] (deftest loop.5.42
   - [ ] (deftest loop.5.43
   - [ ] (deftest loop.5.44
   - [ ] (deftest loop.5.45
-  - [ ] (deftest loop.5.error.1
-  - [ ] (deftest loop.5.error.2
-  - [ ] (deftest loop.5.error.3
-  - [ ] (deftest loop.5.error.4
+  - [X] (deftest loop.5.error.1
+  - [X] (deftest loop.5.error.2
+  - [X] (deftest loop.5.error.3
+  - [X] (deftest loop.5.error.4
 **** loop15.lsp [86%]
   - [X] (deftest loop.15.30
   - [X] (deftest loop.15.31
@@ -6990,7 +6990,7 @@
   - [X] (deftest loop.6.error.4
   - [X] (deftest loop.6.error.5
 *** structures [0%]
-**** structures-03.lsp [0%]
+**** structures-03.lsp [16%]
   - [ ] (deftest structure-boa-test-01/1
   - [ ] (deftest structure-boa-test-02/1
   - [ ] (deftest structure-boa-test-02/2
@@ -7038,19 +7038,19 @@
   - [ ] (deftest structure-boa-test-14/4
   - [ ] (deftest structure-boa-test-14/5
   - [ ] (deftest structure-boa-test-15/1
-  - [ ] (deftest structure-boa-test-15/2
-  - [ ] (deftest structure-boa-test-15/3
-  - [ ] (deftest structure-boa-test-15/4
-  - [ ] (deftest structure-boa-test-15/5
-  - [ ] (deftest structure-boa-test-15/6
-  - [ ] (deftest structure-boa-test-15/7
-  - [ ] (deftest structure-boa-test-15/8
+  - [X] (deftest structure-boa-test-15/2
+  - [X] (deftest structure-boa-test-15/3
+  - [X] (deftest structure-boa-test-15/4
+  - [X] (deftest structure-boa-test-15/5
+  - [X] (deftest structure-boa-test-15/6
+  - [X] (deftest structure-boa-test-15/7
+  - [X] (deftest structure-boa-test-15/8
   - [ ] (deftest structure-boa-test-16/1
   - [ ] (deftest structure-boa-test-16/2
-  - [ ] (deftest structure-boa-test-16/3
-  - [ ] (deftest structure-boa-test-16/4
-  - [ ] (deftest structure-boa-test-16/5
-  - [ ] (deftest structure-boa-test-16/6
+  - [X] (deftest structure-boa-test-16/3
+  - [X] (deftest structure-boa-test-16/4
+  - [X] (deftest structure-boa-test-16/5
+  - [X] (deftest structure-boa-test-16/6
   - [ ] (deftest structure-boa-test-16/7
   - [ ] (deftest structure-boa-test-16/8
   - [ ] (deftest structure-boa-test-16/10
@@ -7072,7 +7072,7 @@
   - [ ] (deftest structure-1-13
   - [ ] (deftest structure-1-14
   - [ ] (deftest structure-1-15
-**** structures-02.lsp [0%]
+**** structures-02.lsp [5%]
   - [ ] (deftest structure-2-1
   - [ ] (deftest structure-2-2
   - [ ] (deftest structure-2-3
@@ -7126,7 +7126,7 @@
   - [ ] (defstruct-with-tests (struct-test-42 (:type (vector t))) a42 b42)
   - [ ] (defstruct-with-tests (struct-test-43 (:type (vector t)) :named) a43 b43)
   - [ ] (defstruct-with-tests (struct-test-44 (:type list))
-  - [ ] (deftest structs-are-disjoint
+  - [X] (deftest structs-are-disjoint
   - [ ] (defstruct-with-tests (struct-test-45 (:type list) (:initial-offset 2))
   - [ ] (deftest structure-45-1
   - [ ] (defstruct-with-tests (struct-test-46 (:type list)
@@ -7163,10 +7163,10 @@
   - [ ] (defstruct-with-tests (struct-test-68 (:include struct-test-67))
   - [ ] (defstruct-with-tests (struct-test-69 (:type (vector single-float))
   - [ ] (defstruct-with-tests (struct-test-70 (:type list)
-  - [ ] (deftest copy-structure.error.1
-  - [ ] (deftest copy-structure.error.2
-  - [ ] (deftest defstruct.error.3
-  - [ ] (deftest defstruct.error.4
+  - [X] (deftest copy-structure.error.1
+  - [X] (deftest copy-structure.error.2
+  - [X] (deftest defstruct.error.3
+  - [X] (deftest defstruct.error.4
 **** structure-00.lsp [0%]
   - [ ] (deftest subtypep-works-with-classes
   - [ ] (deftest typep-works-with-classes
@@ -7206,7 +7206,7 @@
   - [X] (deftest array-dimension.error.1
   - [X] (deftest array-dimension.error.2
   - [X] (deftest array-dimension.error.3
-**** bit-nand.lsp [0%]
+**** bit-nand.lsp [21%]
   - [ ] (deftest bit-nand.1
   - [ ] (deftest bit-nand.2
   - [ ] (deftest bit-nand.3
@@ -7214,9 +7214,9 @@
   - [ ] (deftest bit-nand.5
   - [ ] (deftest bit-nand.6
   - [ ] (deftest bit-nand.7
-  - [ ] (deftest bit-nand.8
+  - [X] (deftest bit-nand.8
   - [ ] (deftest bit-nand.9
-  - [ ] (deftest bit-nand.10
+  - [X] (deftest bit-nand.10
   - [ ] (deftest bit-nand.11
   - [ ] (deftest bit-nand.12
   - [ ] (deftest bit-nand.13
@@ -7229,13 +7229,13 @@
   - [ ] (deftest bit-nand.20
   - [ ] (deftest bit-nand.21
   - [ ] (deftest bit-nand.22
-  - [ ] (deftest bit-nand.order.1
+  - [X] (deftest bit-nand.order.1
   - [ ] (def-fold-test bit-nand.fold.1 (bit-nand #*00101 #*10100))
   - [ ] (deftest bit-nand.random.1
-  - [ ] (deftest bit-nand.error.1
-  - [ ] (deftest bit-nand.error.2
-  - [ ] (deftest bit-nand.error.3
-**** bit-orc2.lsp [0%]
+  - [X] (deftest bit-nand.error.1
+  - [X] (deftest bit-nand.error.2
+  - [X] (deftest bit-nand.error.3
+**** bit-orc2.lsp [10%]
   - [ ] (deftest bit-orc2.1
   - [ ] (deftest bit-orc2.2
   - [ ] (deftest bit-orc2.3
@@ -7261,9 +7261,9 @@
   - [ ] (deftest bit-orc2.order.1
   - [ ] (deftest bit-orc2.fold.1
   - [ ] (deftest bit-orc2.random.1
-  - [ ] (deftest bit-orc2.error.1
-  - [ ] (deftest bit-orc2.error.2
-  - [ ] (deftest bit-orc2.error.3
+  - [X] (deftest bit-orc2.error.1
+  - [X] (deftest bit-orc2.error.2
+  - [X] (deftest bit-orc2.error.3
 **** array-misc.lsp [33%]
   - [X] (deftest array-dimension-limit.1
   - [ ] (deftest array-dimension-limit.2
@@ -7271,7 +7271,7 @@
   - [ ] (deftest array-total-size-limit.2
   - [X] (deftest array-rank-limit.1
   - [ ] (deftest array-rank-limit.2
-**** make-array.lsp [4%]
+**** make-array.lsp [31%]
 
   - [X] (deftest make-array.1
   - [ ] (deftest make-array.1a
@@ -7279,34 +7279,34 @@
   - [X] (deftest make-array.2a
   - [X] (deftest make-array.2b
   - [X] (deftest make-array.2c
-  - [ ] (deftest make-array.2d
-  - [ ] (deftest make-array.3
-  - [ ] (deftest make-array.4
-  - [ ] (deftest make-array.4a
-  - [ ] (deftest make-array.4b
-  - [ ] (deftest make-array.4c
-  - [ ] (deftest make-array.5
+  - [X] (deftest make-array.2d
+  - [X] (deftest make-array.3
+  - [X] (deftest make-array.4
+  - [X] (deftest make-array.4a
+  - [X] (deftest make-array.4b
+  - [X] (deftest make-array.4c
+  - [X] (deftest make-array.5
   - [ ] (deftest make-array.5a
-  - [ ] (deftest make-array.6
-  - [ ] (deftest make-array.6a
-  - [ ] (deftest make-array.6b
-  - [ ] (deftest make-array.7
-  - [ ] (deftest make-array.7a
+  - [X] (deftest make-array.6
+  - [X] (deftest make-array.6a
+  - [X] (deftest make-array.6b
+  - [X] (deftest make-array.7
+  - [X] (deftest make-array.7a
   - [ ] (deftest make-array.7b
-  - [ ] (deftest make-array.8
-  - [ ] (deftest make-array.8a
+  - [X] (deftest make-array.8
+  - [X] (deftest make-array.8a
   - [ ] (deftest make-array.8b
-  - [ ] (deftest make-array.8c
-  - [ ] (deftest make-array.8d
-  - [ ] (deftest make-array.8e
+  - [X] (deftest make-array.8c
+  - [X] (deftest make-array.8d
+  - [X] (deftest make-array.8e
   - [ ] (deftest make-array.8f
   - [ ] (deftest make-array.9
   - [ ] (deftest make-array.10
   - [ ] (deftest make-array.11
   - [ ] (deftest make-array.12
-  - [ ] (deftest make-array.12a
-  - [ ] (deftest make-array.12b
-  - [ ] (deftest make-array.12c
+  - [X] (deftest make-array.12a
+  - [X] (deftest make-array.12b
+  - [X] (deftest make-array.12c
   - [ ] (deftest make-array.13
   - [ ] (deftest make-array.14
   - [ ] (deftest make-array.15
@@ -7321,7 +7321,7 @@
   - [ ] (deftest make-array.25
   - [ ] (deftest make-array.26
   - [ ] (deftest make-array.27
-  - [ ] (deftest make-array.28
+  - [X] (deftest make-array.28
   - [ ] (deftest make-array.29
   - [ ] (deftest make-array.30
   - [ ] (deftest make-array.31
@@ -7375,22 +7375,22 @@
   - [ ] (deftest make-array.displaced.29
   - [ ] (deftest make-array.displaced.30
   - [ ] (deftest make-array.displaced.31
-  - [ ] (deftest make-array.allow-other-keys.1
+  - [X] (deftest make-array.allow-other-keys.1
   - [ ] (deftest make-array.allow-other-keys.2
   - [ ] (deftest make-array.allow-other-keys.3
   - [ ] (deftest make-array.allow-other-keys.4
   - [ ] (deftest make-array.allow-other-keys.5
   - [ ] (deftest make-array.allow-other-keys.6
-  - [ ] (deftest make-array.allow-other-keys.7
-  - [ ] (deftest make-array.keywords.8.
-  - [ ] (deftest make-array.error.1
-  - [ ] (deftest make-array.error.2
-  - [ ] (deftest make-array.error.3
-  - [ ] (deftest make-array.error.4
-  - [ ] (deftest make-array.error.5
-  - [ ] (deftest make-array.error.6
-  - [ ] (deftest make-array.order.1
-  - [ ] (deftest make-array.order.2
+  - [X] (deftest make-array.allow-other-keys.7
+  - [X] (deftest make-array.keywords.8.
+  - [X] (deftest make-array.error.1
+  - [X] (deftest make-array.error.2
+  - [X] (deftest make-array.error.3
+  - [X] (deftest make-array.error.4
+  - [X] (deftest make-array.error.5
+  - [X] (deftest make-array.error.6
+  - [X] (deftest make-array.order.1
+  - [X] (deftest make-array.order.2
 **** array-element-type.lsp [33%]
   - [ ] (deftest array-element-type.1
   - [ ] (deftest array-element-type.order.1
@@ -7398,7 +7398,7 @@
   - [X] (deftest array-element-type.error.2
   - [ ] (deftest array-element-type.error.3
   - [ ] (deftest array-element-type.error.4
-**** bit-and.lsp [0%]
+**** bit-and.lsp [21%]
   - [ ] (deftest bit-and.1
   - [ ] (deftest bit-and.2
   - [ ] (deftest bit-and.3
@@ -7406,9 +7406,9 @@
   - [ ] (deftest bit-and.5
   - [ ] (deftest bit-and.6
   - [ ] (deftest bit-and.7
-  - [ ] (deftest bit-and.8
+  - [X] (deftest bit-and.8
   - [ ] (deftest bit-and.9
-  - [ ] (deftest bit-and.10
+  - [X] (deftest bit-and.10
   - [ ] (deftest bit-and.11
   - [ ] (deftest bit-and.12
   - [ ] (deftest bit-and.13
@@ -7421,12 +7421,12 @@
   - [ ] (deftest bit-and.20
   - [ ] (deftest bit-and.21
   - [ ] (deftest bit-and.22
-  - [ ] (deftest bit-and.order.1
+  - [X] (deftest bit-and.order.1
   - [ ] (def-fold-test bit-and.fold.1 (bit-and #*01101 #*01011))
   - [ ] (deftest bit-and.random.1
-  - [ ] (deftest bit-and.error.1
-  - [ ] (deftest bit-and.error.2
-  - [ ] (deftest bit-and.error.3
+  - [X] (deftest bit-and.error.1
+  - [X] (deftest bit-and.error.2
+  - [X] (deftest bit-and.error.3
 **** upgraded-array-element-type.lsp [18%]
   - [ ] (deftest upgraded-array-element-type.1
   - [ ] (deftest upgraded-array-element-type.2
@@ -7439,16 +7439,16 @@
   - [ ] (deftest upgraded-array-element-type.nil.1
   - [X] (deftest upgraded-array-element-type.error.1
   - [X] (deftest upgraded-array-element-type.error.2
-**** sbit.lsp [11%]
+**** sbit.lsp [66%]
   - [X] (deftest sbit.1
-  - [ ] (deftest sbit.2
-  - [ ] (deftest sbit.3
+  - [X] (deftest sbit.2
+  - [X] (deftest sbit.3
   - [ ] (deftest sbit.4
   - [ ] (deftest sbit.5
   - [ ] (deftest sbit.6
-  - [ ] (deftest sbit.order.1
-  - [ ] (deftest sbit.order.2
-  - [ ] (deftest sbit.error.1
+  - [X] (deftest sbit.order.1
+  - [X] (deftest sbit.order.2
+  - [X] (deftest sbit.error.1
 **** array-as-class.lsp [0%]
   - [ ] (deftest array-as-class.1
   - [ ] (deftest array-as-class.2
@@ -7489,7 +7489,7 @@
   - [ ] (deftest array-row-major-index.5
   - [ ] (deftest array-row-major-index.order.1
   - [X] (deftest array-row-major-index.error.1
-**** aref.lsp [52%]
+**** aref.lsp [80%]
   - [ ] (deftest aref.1
   - [X] (deftest aref.2
   - [X] (deftest aref.3
@@ -7503,14 +7503,14 @@
   - [ ] (deftest setf-aref.2
   - [X] (deftest setf-aref.3
   - [X] (deftest setf-aref.4
-  - [ ] (deftest setf-aref.5
-  - [ ] (deftest setf-aref.6
-  - [ ] (deftest setf-aref.7
-  - [ ] (deftest setf-aref.order.1
+  - [X] (deftest setf-aref.5
+  - [X] (deftest setf-aref.6
+  - [X] (deftest setf-aref.7
+  - [X] (deftest setf-aref.order.1
   - [ ] (deftest aref.special-integer.1
   - [ ] (deftest aref.special-strings.1
-  - [ ] (deftest aref.error.1
-  - [ ] (deftest aref.error.2
+  - [X] (deftest aref.error.1
+  - [X] (deftest aref.error.2
 **** simple-bit-vector.lsp [0%]
   - [ ] (deftest simple-bit-vector.2
   - [ ] (deftest simple-bit-vector.3
@@ -7602,21 +7602,21 @@
   - [X] (deftest vector.9
   - [ ] (deftest vector.10
   - [X] (deftest vector.order.1
-**** array-dimensions.lsp [0%]
+**** array-dimensions.lsp [46%]
   - [ ] (deftest array-dimensions.1
   - [ ] (deftest array-dimensions.2
   - [ ] (deftest array-dimensions.3
   - [ ] (deftest array-dimensions.4
-  - [ ] (deftest array-dimensions.5
-  - [ ] (deftest array-dimensions.6
-  - [ ] (deftest array-dimensions.7
+  - [X] (deftest array-dimensions.5
+  - [X] (deftest array-dimensions.6
+  - [X] (deftest array-dimensions.7
   - [ ] (deftest array-dimensions.8
-  - [ ] (deftest array-dimensions.error.1
-  - [ ] (deftest array-dimensions.error.2
+  - [X] (deftest array-dimensions.error.1
+  - [X] (deftest array-dimensions.error.2
   - [ ] (deftest array-dimensions.error.3
   - [ ] (deftest array-dimensions.error.4
-  - [ ] (deftest array-dimensions.error.5
-**** bit-andc1.lsp [0%]
+  - [X] (deftest array-dimensions.error.5
+**** bit-andc1.lsp [10%]
   - [ ] (deftest bit-andc1.1
   - [ ] (deftest bit-andc1.2
   - [ ] (deftest bit-andc1.3
@@ -7642,10 +7642,10 @@
   - [ ] (deftest bit-andc1.order.1
   - [ ] (def-fold-test bit-andc1.fold.1 (bit-andc1 #*10010 #*01011))
   - [ ] (deftest bit-andc1.random.1
-  - [ ] (deftest bit-andc1.error.1
-  - [ ] (deftest bit-andc1.error.2
-  - [ ] (deftest bit-andc1.error.3
-**** simple-vector-p.lsp [0%]
+  - [X] (deftest bit-andc1.error.1
+  - [X] (deftest bit-andc1.error.2
+  - [X] (deftest bit-andc1.error.3
+**** simple-vector-p.lsp [18%]
   - [ ] (deftest simple-vector-p.1
   - [ ] (deftest simple-vector-p.2
   - [ ] (deftest simple-vector-p.4
@@ -7655,8 +7655,8 @@
   - [ ] (deftest simple-vector-p.10
   - [ ] (deftest simple-vector-p.11
   - [ ] (deftest simple-vector-p.12
-  - [ ] (deftest simple-vector-p.error.1
-  - [ ] (deftest simple-vector-p.error.2
+  - [X] (deftest simple-vector-p.error.1
+  - [X] (deftest simple-vector-p.error.2
 **** array-displacement.lsp [14%]
   - [ ] (deftest array-displacement.7
   - [ ] (deftest array-displacement.8
@@ -7736,7 +7736,7 @@
   - [ ] (deftest simple-array-t.9.11
   - [ ] (deftest simple-array-t.9.12
   - [ ] (deftest simple-array-t.9.13
-**** bit-andc2.lsp [0%]
+**** bit-andc2.lsp [10%]
   - [ ] (deftest bit-andc2.1
   - [ ] (deftest bit-andc2.2
   - [ ] (deftest bit-andc2.3
@@ -7762,9 +7762,9 @@
   - [ ] (deftest bit-andc2.order.1
   - [ ] (def-fold-test bit-andc2.fold.1 (bit-andc2 #*01101 #*10100))
   - [ ] (deftest bit-andc2.random.1
-  - [ ] (deftest bit-andc2.error.1
-  - [ ] (deftest bit-andc2.error.2
-  - [ ] (deftest bit-andc2.error.3
+  - [X] (deftest bit-andc2.error.1
+  - [X] (deftest bit-andc2.error.2
+  - [X] (deftest bit-andc2.error.3
 **** simple-array.lsp [0%]
   - [ ] (deftest simple-array.1.1
   - [ ] (deftest simple-array.1.2
@@ -7842,47 +7842,47 @@
   - [ ] (deftest simple-array.9.11
   - [ ] (deftest simple-array.9.12
   - [ ] (deftest simple-array.9.13
-**** arrayp.lsp [20%]
+**** arrayp.lsp [80%]
   - [X] (deftest arrayp.1
   - [X] (deftest arrayp.2
-  - [ ] (deftest arrayp.3
-  - [ ] (deftest arrayp.4
-  - [ ] (deftest arrayp.5
+  - [X] (deftest arrayp.3
+  - [X] (deftest arrayp.4
+  - [X] (deftest arrayp.5
   - [ ] (deftest arrayp.6
   - [ ] (deftest arrayp.7
-  - [ ] (deftest arrayp.order.1
-  - [ ] (deftest arrayp.error.1
-  - [ ] (deftest arrayp.error.2
-**** bit-vector-p.lsp [0%]
-  - [ ] (deftest bit-vector-p.2
-  - [ ] (deftest bit-vector-p.3
-  - [ ] (deftest bit-vector-p.4
-  - [ ] (deftest bit-vector-p.5
-  - [ ] (deftest bit-vector-p.6
-  - [ ] (deftest bit-vector-p.7
-  - [ ] (deftest bit-vector-p.8
-  - [ ] (deftest bit-vector-p.9
-  - [ ] (deftest bit-vector-p.10
-  - [ ] (deftest bit-vector-p.11
+  - [X] (deftest arrayp.order.1
+  - [X] (deftest arrayp.error.1
+  - [X] (deftest arrayp.error.2
+**** bit-vector-p.lsp [87%]
+  - [X] (deftest bit-vector-p.2
+  - [X] (deftest bit-vector-p.3
+  - [X] (deftest bit-vector-p.4
+  - [X] (deftest bit-vector-p.5
+  - [X] (deftest bit-vector-p.6
+  - [X] (deftest bit-vector-p.7
+  - [X] (deftest bit-vector-p.8
+  - [X] (deftest bit-vector-p.9
+  - [X] (deftest bit-vector-p.10
+  - [X] (deftest bit-vector-p.11
   - [ ] (deftest bit-vector-p.12
   - [ ] (deftest bit-vector-p.13
-  - [ ] (deftest bit-vector-p.order.1
-  - [ ] (deftest bit-vector-p.order.2
-  - [ ] (deftest bit-vector-p.error.1
-  - [ ] (deftest bit-vector-p.error.2
-**** bit.lsp [9%]
+  - [X] (deftest bit-vector-p.order.1
+  - [X] (deftest bit-vector-p.order.2
+  - [X] (deftest bit-vector-p.error.1
+  - [X] (deftest bit-vector-p.error.2
+**** bit.lsp [54%]
   - [X] (deftest bit.1
-  - [ ] (deftest bit.2
-  - [ ] (deftest bit.3
+  - [X] (deftest bit.2
+  - [X] (deftest bit.3
   - [ ] (deftest bit.4
   - [ ] (deftest bit.5
   - [ ] (deftest bit.6
   - [ ] (deftest bit.7
   - [ ] (deftest bit.8
-  - [ ] (deftest bit.order.1
-  - [ ] (deftest bit.order.2
-  - [ ] (deftest bit.error.1
-**** vectorp.lsp [47%]
+  - [X] (deftest bit.order.1
+  - [X] (deftest bit.order.2
+  - [X] (deftest bit.error.1
+**** vectorp.lsp [94%]
   - [X] (deftest vectorp.1
   - [X] (deftest vectorp.2
   - [X] (deftest vectorp.3
@@ -7892,15 +7892,15 @@
   - [ ] (deftest vectorp.7
   - [X] (deftest vectorp.8
   - [X] (deftest vectorp.9
-  - [ ] (deftest vectorp.10
-  - [ ] (deftest vectorp.11
-  - [ ] (deftest vectorp.12
-  - [ ] (deftest vectorp.13
-  - [ ] (deftest vectorp.14
-  - [ ] (deftest vectorp.15
-  - [ ] (deftest vectorp.error.1
-  - [ ] (deftest vectorp.error.2
-**** vector-push-extend.lsp [10%]
+  - [X] (deftest vectorp.10
+  - [X] (deftest vectorp.11
+  - [X] (deftest vectorp.12
+  - [X] (deftest vectorp.13
+  - [X] (deftest vectorp.14
+  - [X] (deftest vectorp.15
+  - [X] (deftest vectorp.error.1
+  - [X] (deftest vectorp.error.2
+**** vector-push-extend.lsp [29%]
   - [X] (deftest vector-push-extend.1
   - [X] (deftest vector-push-extend.2
   - [X] (deftest vector-push-extend.3
@@ -7909,17 +7909,17 @@
   - [ ] (deftest vector-push-extend.6
   - [X] (deftest vector-push-extend.7
   - [ ] (deftest vector-push-extend.8
-  - [ ] (deftest vector-push-extend.9
+  - [X] (deftest vector-push-extend.9
   - [ ] (deftest vector-push-extend.10
-  - [ ] (deftest vector-push-extend.11
+  - [X] (deftest vector-push-extend.11
   - [ ] (deftest vector-push-extend.12
-  - [ ] (deftest vector-push-extend.13
+  - [X] (deftest vector-push-extend.13
   - [ ] (deftest vector-push-extend.14
-  - [ ] (deftest vector-push-extend.15
+  - [X] (deftest vector-push-extend.15
   - [ ] (deftest vector-push-extend.16
-  - [ ] (deftest vector-push-extend.17
+  - [X] (deftest vector-push-extend.17
   - [ ] (deftest vector-push-extend.18
-  - [ ] (deftest vector-push-extend.19
+  - [X] (deftest vector-push-extend.19
   - [ ] (deftest vector-push-extend.20
   - [ ] (deftest vector-push-extend.21
   - [ ] (deftest vector-push-extend.22
@@ -7944,11 +7944,11 @@
   - [ ] (deftest vector-push-extend.error.11
   - [ ] (deftest vector-push-extend.error.12
   - [ ] (deftest vector-push-extend.error.13
-  - [ ] (deftest vector-push-extend.error.14
-  - [ ] (deftest vector-push-extend.error.15
-  - [ ] (deftest vector-push-extend.error.16
+  - [X] (deftest vector-push-extend.error.14
+  - [X] (deftest vector-push-extend.error.15
+  - [X] (deftest vector-push-extend.error.16
   - [ ] (deftest vector-push-extend.error.17
-**** vector-push.lsp [11%]
+**** vector-push.lsp [36%]
   - [X] (deftest vector-push.1
   - [ ] (deftest vector-push.2
   - [X] (deftest vector-push.3
@@ -7957,17 +7957,17 @@
   - [ ] (deftest vector-push.6
   - [X] (deftest vector-push.7
   - [ ] (deftest vector-push.8
-  - [ ] (deftest vector-push.9
+  - [X] (deftest vector-push.9
   - [ ] (deftest vector-push.10
-  - [ ] (deftest vector-push.11
+  - [X] (deftest vector-push.11
   - [ ] (deftest vector-push.12
-  - [ ] (deftest vector-push.13
+  - [X] (deftest vector-push.13
   - [ ] (deftest vector-push.14
-  - [ ] (deftest vector-push.15
+  - [X] (deftest vector-push.15
   - [ ] (deftest vector-push.16
-  - [ ] (deftest vector-push.17
+  - [X] (deftest vector-push.17
   - [ ] (deftest vector-push.18
-  - [ ] (deftest vector-push.19
+  - [X] (deftest vector-push.19
   - [ ] (deftest vector-push.20
   - [ ] (deftest vector-push.error.1
   - [ ] (deftest vector-push.error.2
@@ -7982,9 +7982,9 @@
   - [ ] (deftest vector-push.error.11
   - [ ] (deftest vector-push.error.12
   - [ ] (deftest vector-push.error.13
-  - [ ] (deftest vector-push.error.14
-  - [ ] (deftest vector-push.error.15
-  - [ ] (deftest vector-push.error.16
+  - [X] (deftest vector-push.error.14
+  - [X] (deftest vector-push.error.15
+  - [X] (deftest vector-push.error.16
 **** adjust-array.lsp [0%]
   - [ ] (def-adjust-array-test adjust-array.1
   - [ ] (def-adjust-array-test adjust-array.2
@@ -8112,16 +8112,16 @@
   - [ ] (deftest adjust-array.error.4
   - [ ] (deftest adjust-array.error.5
   - [ ] (deftest adjust-array.error.6
-**** bit-not.lsp [0%]
+**** bit-not.lsp [23%]
   - [ ] (deftest bit-not.1
   - [ ] (deftest bit-not.2
   - [ ] (deftest bit-not.3
   - [ ] (deftest bit-not.4
   - [ ] (deftest bit-not.5
   - [ ] (deftest bit-not.6
-  - [ ] (deftest bit-not.7
+  - [X] (deftest bit-not.7
   - [ ] (deftest bit-not.8
-  - [ ] (deftest bit-not.9
+  - [X] (deftest bit-not.9
   - [ ] (deftest bit-not.10
   - [ ] (deftest bit-not.11
   - [ ] (deftest bit-not.12
@@ -8130,11 +8130,11 @@
   - [ ] (deftest bit-not.15
   - [ ] (deftest bit-not.16
   - [ ] (deftest bit-not.17
-  - [ ] (deftest bit-not.order.1
+  - [X] (deftest bit-not.order.1
   - [ ] (def-fold-test bit-not.fold.1 (bit-not #*00101))
-  - [ ] (deftest bit-not.error.1
-  - [ ] (deftest bit-not.error.2
-**** bit-nor.lsp [0%]
+  - [X] (deftest bit-not.error.1
+  - [X] (deftest bit-not.error.2
+**** bit-nor.lsp [21%]
   - [ ] (deftest bit-nor.1
   - [ ] (deftest bit-nor.2
   - [ ] (deftest bit-nor.3
@@ -8142,9 +8142,9 @@
   - [ ] (deftest bit-nor.5
   - [ ] (deftest bit-nor.6
   - [ ] (deftest bit-nor.7
-  - [ ] (deftest bit-nor.8
+  - [X] (deftest bit-nor.8
   - [ ] (deftest bit-nor.9
-  - [ ] (deftest bit-nor.10
+  - [X] (deftest bit-nor.10
   - [ ] (deftest bit-nor.11
   - [ ] (deftest bit-nor.12
   - [ ] (deftest bit-nor.13
@@ -8157,13 +8157,13 @@
   - [ ] (deftest bit-nor.20
   - [ ] (deftest bit-nor.21
   - [ ] (deftest bit-nor.22
-  - [ ] (deftest bit-nor.order.1
+  - [X] (deftest bit-nor.order.1
   - [ ] (def-fold-test bit-nor.fold.1 (bit-nor #*00101 #*10100))
   - [ ] (deftest bit-nor.random.1
-  - [ ] (deftest bit-nor.error.1
-  - [ ] (deftest bit-nor.error.2
-  - [ ] (deftest bit-nor.error.3
-**** bit-orc1.lsp [0%]
+  - [X] (deftest bit-nor.error.1
+  - [X] (deftest bit-nor.error.2
+  - [X] (deftest bit-nor.error.3
+**** bit-orc1.lsp [10%]
   - [ ] (deftest bit-orc1.1
   - [ ] (deftest bit-orc1.2
   - [ ] (deftest bit-orc1.3
@@ -8189,10 +8189,10 @@
   - [ ] (deftest bit-orc1.order.1
   - [ ] (deftest bit-orc1.fold.1
   - [ ] (deftest bit-orc1.random.1
-  - [ ] (deftest bit-orc1.error.1
-  - [ ] (deftest bit-orc1.error.2
-  - [ ] (deftest bit-orc1.error.3
-**** simple-bit-vector-p.lsp [0%]
+  - [X] (deftest bit-orc1.error.1
+  - [X] (deftest bit-orc1.error.2
+  - [X] (deftest bit-orc1.error.3
+**** simple-bit-vector-p.lsp [15%]
   - [ ] (deftest simple-bit-vector-p.2
   - [ ] (deftest simple-bit-vector-p.3
   - [ ] (deftest simple-bit-vector-p.4
@@ -8204,8 +8204,8 @@
   - [ ] (deftest simple-bit-vector-p.10
   - [ ] (deftest simple-bit-vector-p.11
   - [ ] (deftest simple-bit-vector-p.12
-  - [ ] (deftest simple-bit-vector-p.error.1
-  - [ ] (deftest simple-bit-vector-p.error.2
+  - [X] (deftest simple-bit-vector-p.error.1
+  - [X] (deftest simple-bit-vector-p.error.2
 **** array-t.lsp [0%]
   - [ ] (deftest array-t.2.1
   - [ ] (deftest array-t.2.2
@@ -8270,7 +8270,7 @@
   - [ ] (deftest array-t.9.11
   - [ ] (deftest array-t.9.12
   - [ ] (deftest array-t.9.13
-**** bit-ior.lsp [0%]
+**** bit-ior.lsp [21%]
   - [ ] (deftest bit-ior.1
   - [ ] (deftest bit-ior.2
   - [ ] (deftest bit-ior.3
@@ -8278,9 +8278,9 @@
   - [ ] (deftest bit-ior.5
   - [ ] (deftest bit-ior.6
   - [ ] (deftest bit-ior.7
-  - [ ] (deftest bit-ior.8
+  - [X] (deftest bit-ior.8
   - [ ] (deftest bit-ior.9
-  - [ ] (deftest bit-ior.10
+  - [X] (deftest bit-ior.10
   - [ ] (deftest bit-ior.11
   - [ ] (deftest bit-ior.12
   - [ ] (deftest bit-ior.13
@@ -8293,12 +8293,12 @@
   - [ ] (deftest bit-ior.20
   - [ ] (deftest bit-ior.21
   - [ ] (deftest bit-ior.22
-  - [ ] (deftest bit-ior.order.1
+  - [X] (deftest bit-ior.order.1
   - [ ] (def-fold-test bit-ior.fold.1 (bit-ior #*00101 #*10100))
   - [ ] (deftest bit-ior.random.1
-  - [ ] (deftest bit-ior.error.1
-  - [ ] (deftest bit-ior.error.2
-  - [ ] (deftest bit-ior.error.3
+  - [X] (deftest bit-ior.error.1
+  - [X] (deftest bit-ior.error.2
+  - [X] (deftest bit-ior.error.3
 **** array-has-fill-pointer-p.lsp [20%]
   - [ ] (deftest array-has-fill-pointer-p.1
   - [ ] (deftest array-has-fill-pointer-p.2
@@ -8319,7 +8319,7 @@
   - [X] (deftest svref.error.2
   - [X] (deftest svref.error.3
   - [X] (deftest svref.error.4
-**** row-major-aref.lsp [7%]
+**** row-major-aref.lsp [23%]
   - [ ] (deftest row-major-aref.1
   - [X] (deftest row-major-aref.2
   - [ ] (deftest row-major-aref.3
@@ -8329,10 +8329,10 @@
   - [ ] (deftest row-major-aref.7
   - [ ] (deftest row-major-aref.8
   - [ ] (deftest row-major-aref.9
-  - [ ] (deftest row-major-aref.10
+  - [X] (deftest row-major-aref.10
   - [ ] (deftest row-major-aref.order.1
   - [ ] (deftest row-major-aref.order.2
-  - [ ] (deftest row-major-aref.error.1
+  - [X] (deftest row-major-aref.error.1
 **** adjustable-array-p.lsp [30%]
   - [ ] (deftest adjustable-array-p.1
   - [ ] (deftest adjustable-array-p.2
@@ -8347,7 +8347,7 @@
   - [ ] (deftest adjustable-array-p.error.4
   - [X] (deftest adjustable-array-p.error.5
   - [X] (deftest adjustable-array-p.error.6
-**** bit-xor.lsp [0%]
+**** bit-xor.lsp [21%]
   - [ ] (deftest bit-xor.1
   - [ ] (deftest bit-xor.2
   - [ ] (deftest bit-xor.3
@@ -8355,9 +8355,9 @@
   - [ ] (deftest bit-xor.5
   - [ ] (deftest bit-xor.6
   - [ ] (deftest bit-xor.7
-  - [ ] (deftest bit-xor.8
+  - [X] (deftest bit-xor.8
   - [ ] (deftest bit-xor.9
-  - [ ] (deftest bit-xor.10
+  - [X] (deftest bit-xor.10
   - [ ] (deftest bit-xor.11
   - [ ] (deftest bit-xor.12
   - [ ] (deftest bit-xor.13
@@ -8370,24 +8370,24 @@
   - [ ] (deftest bit-xor.20
   - [ ] (deftest bit-xor.21
   - [ ] (deftest bit-xor.22
-  - [ ] (deftest bit-xor.order.1
+  - [X] (deftest bit-xor.order.1
   - [ ] (def-fold-test bit-xor.fold.1 (bit-xor #*00101 #*10100))
   - [ ] (deftest bit-xor.random.1
-  - [ ] (deftest bit-xor.error.1
-  - [ ] (deftest bit-xor.error.2
-  - [ ] (deftest bit-xor.error.3
-**** array-total-size.lsp [8%]
+  - [X] (deftest bit-xor.error.1
+  - [X] (deftest bit-xor.error.2
+  - [X] (deftest bit-xor.error.3
+**** array-total-size.lsp [41%]
   - [X] (deftest array-total-size.1
   - [ ] (deftest array-total-size.2
   - [ ] (deftest array-total-size.3
   - [ ] (deftest array-total-size.4
-  - [ ] (deftest array-total-size.5
+  - [X] (deftest array-total-size.5
   - [ ] (deftest array-total-size.6
   - [ ] (deftest array-total-size.order.1
-  - [ ] (deftest array-total-size.error.1
-  - [ ] (deftest array-total-size.error.2
+  - [X] (deftest array-total-size.error.1
+  - [X] (deftest array-total-size.error.2
   - [ ] (deftest array-total-size.error.3
-  - [ ] (deftest array-total-size.error.4
+  - [X] (deftest array-total-size.error.4
   - [ ] (deftest array-total-size.error.5
 **** bit-vector.lsp [40%]
   - [X] (deftest bit-vector.1
@@ -8494,7 +8494,7 @@
   - [ ] (deftest array.9.11
   - [ ] (deftest array.9.12
   - [ ] (deftest array.9.13
-**** bit-eqv.lsp [0%]
+**** bit-eqv.lsp [21%]
   - [ ] (deftest bit-eqv.1
   - [ ] (deftest bit-eqv.2
   - [ ] (deftest bit-eqv.3
@@ -8502,9 +8502,9 @@
   - [ ] (deftest bit-eqv.5
   - [ ] (deftest bit-eqv.6
   - [ ] (deftest bit-eqv.7
-  - [ ] (deftest bit-eqv.8
+  - [X] (deftest bit-eqv.8
   - [ ] (deftest bit-eqv.9
-  - [ ] (deftest bit-eqv.10
+  - [X] (deftest bit-eqv.10
   - [ ] (deftest bit-eqv.11
   - [ ] (deftest bit-eqv.12
   - [ ] (deftest bit-eqv.13
@@ -8517,13 +8517,13 @@
   - [ ] (deftest bit-eqv.20
   - [ ] (deftest bit-eqv.21
   - [ ] (deftest bit-eqv.22
-  - [ ] (deftest bit-eqv.order.1
+  - [X] (deftest bit-eqv.order.1
   - [ ] (def-fold-test bit-eqv.fold.1 (bit-eqv #*01101 #*10100))
   - [ ] (deftest bit-eqv.random.1
-  - [ ] (deftest bit-eqv.error.1
-  - [ ] (deftest bit-eqv.error.2
-  - [ ] (deftest bit-eqv.error.3
-**** array-in-bounds-p.lsp [0%]
+  - [X] (deftest bit-eqv.error.1
+  - [X] (deftest bit-eqv.error.2
+  - [X] (deftest bit-eqv.error.3
+**** array-in-bounds-p.lsp [3%]
   - [ ] (deftest array-in-bounds-p.1
   - [ ] (deftest array-in-bounds-p.2
   - [ ] (deftest array-in-bounds-p.3
@@ -8550,7 +8550,7 @@
   - [ ] (deftest array-in-bounds-p.24
   - [ ] (deftest array-in-bounds-p.25
   - [ ] (deftest array-in-bounds-p.order.1
-  - [ ] (deftest array-in-bounds-p.error.1
+  - [X] (deftest array-in-bounds-p.error.1
 *** symbols [0%]
 **** make-symbol.lsp [47%]
   - [X] (deftest make-symbol.1
@@ -11004,15 +11004,15 @@
   - [ ] (deftest lognor.5
   - [ ] (deftest lognor.6
   - [X] (deftest lognor.order.1
-**** sqrt.lsp [14%]
+**** sqrt.lsp [28%]
   - [X] (deftest sqrt.error.1
   - [X] (deftest sqrt.error.2
   - [ ] (deftest sqrt.error.3
   - [ ] (deftest sqrt.1
   - [ ] (deftest sqrt.2
-  - [ ] (deftest sqrt.3
+  - [X] (deftest sqrt.3
   - [ ] (deftest sqrt.4
-  - [ ] (deftest sqrt.5
+  - [X] (deftest sqrt.5
   - [X] (deftest sqrt.7
   - [ ] (deftest sqrt.8
   - [ ] (deftest sqrt.9
@@ -11025,7 +11025,7 @@
   - [ ] (deftest sqrt.16
   - [ ] (deftest sqrt.17
   - [ ] (deftest sqrt.18
-  - [ ] (deftest sqrt.19
+  - [X] (deftest sqrt.19
 **** numberp.lsp [75%]
   - [X] (deftest numberp.error.1
   - [X] (deftest numberp.error.2
@@ -11159,7 +11159,7 @@
   - [ ] (deftest ceiling.17
   - [ ] (deftest ceiling.18
   - [ ] (deftest ceiling.19
-**** minusp.lsp [60%]
+**** minusp.lsp [70%]
   - [X] (deftest minusp.error.1
   - [X] (deftest minusp.error.2
   - [X] (deftest minusp.error.3
@@ -11168,7 +11168,7 @@
   - [X] (deftest minusp.2
   - [X] (deftest minusp.3
   - [ ] (deftest minusp.4
-  - [ ] (deftest minusp.5
+  - [X] (deftest minusp.5
   - [ ] (deftest minusp.6
 **** oddp.lsp [50%]
   - [X] (deftest oddp.error.1
@@ -11299,9 +11299,9 @@
   - [ ] (deftest numerator-denominator.3
   - [ ] (deftest numerator-denominator.4
   - [ ] (deftest numerator-denominator.5
-**** log.lsp [30%]
+**** log.lsp [40%]
   - [X] (deftest log.1
-  - [ ] (deftest log.2
+  - [X] (deftest log.2
   - [ ] (deftest log.3
   - [ ] (deftest log.4
   - [ ] (deftest log.5
@@ -11323,13 +11323,13 @@
   - [ ] (deftest lognand.5
   - [ ] (deftest lognand.6
   - [X] (deftest lognand.order.1
-**** exp.lsp [85%]
+**** exp.lsp [100%]
   - [X] (deftest exp.error.1
   - [X] (deftest exp.error.2
   - [X] (deftest exp.error.3
   - [X] (deftest exp.1
-  - [ ] (deftest exp.2
-  - [ ] (deftest exp.3
+  - [X] (deftest exp.2
+  - [X] (deftest exp.3
   - [X] (deftest exp.error.4
   - [X] (deftest exp.error.5
   - [X] (deftest exp.error.6
@@ -11358,7 +11358,7 @@
   - [ ] (deftest upgraded-complex-part-type.9
   - [X] (deftest upgraded-complex-part-type.error.1
   - [X] (deftest upgraded-complex-part-type.error.2
-**** expt.lsp [56%]
+**** expt.lsp [68%]
   - [X] (deftest expt.error.1
   - [X] (deftest expt.error.2
   - [X] (deftest expt.error.3
@@ -11372,12 +11372,12 @@
   - [X] (deftest expt.error.11
   - [X] (deftest expt.1
   - [X] (deftest expt.2
-  - [ ] (deftest expt.3
+  - [X] (deftest expt.3
   - [X] (deftest expt.4
   - [X] (deftest expt.5
   - [X] (deftest expt.6
   - [X] (deftest expt.7
-  - [ ] (deftest expt.8
+  - [X] (deftest expt.8
   - [X] (deftest expt.9
   - [X] (deftest expt.10
   - [X] (deftest expt.11
@@ -11391,23 +11391,23 @@
   - [ ] (deftest expt.19
   - [ ] (deftest expt.20
   - [ ] (deftest expt.21
-  - [ ] (deftest expt.22
-  - [ ] (deftest expt.23
-  - [ ] (deftest expt.24
+  - [X] (deftest expt.22
+  - [X] (deftest expt.23
+  - [X] (deftest expt.24
   - [X] (deftest expt.25
   - [X] (deftest expt.26
   - [X] (deftest expt.27
   - [ ] (deftest expt.28
   - [ ] (deftest expt.29
   - [ ] (deftest expt.30
-**** sin.lsp [22%]
+**** sin.lsp [25%]
   - [ ] (deftest sin.1
   - [ ] (deftest sin.2
   - [ ] (deftest sin.3
   - [ ] (deftest sin.4
   - [ ] (deftest sin.5
   - [X] (deftest sin.6
-  - [ ] (deftest sin.7
+  - [X] (deftest sin.7
   - [X] (deftest sin.8
   - [X] (deftest sin.9
   - [X] (deftest sin.10
@@ -11434,14 +11434,14 @@
   - [ ] (deftest random-state-p.1
   - [ ] (deftest random-state-p.2
   - [ ] (deftest random-state-p.3
-**** random.lsp [54%]
+**** random.lsp [63%]
   - [X] (deftest random.error.1
   - [X] (deftest random.error.2
   - [ ] (deftest random.error.3
   - [X] (deftest random.1
   - [ ] (deftest random.2
   - [X] (deftest random.3
-  - [ ] (deftest random.4
+  - [X] (deftest random.4
   - [X] (deftest random.5
   - [X] (deftest random.6
   - [ ] (deftest random.7
@@ -11457,7 +11457,7 @@
   - [ ] (deftest mask-field.place.1
   - [ ] (deftest mask-field.place.2
   - [ ] (deftest mask-field.place.order.1
-**** zerop.lsp [60%]
+**** zerop.lsp [66%]
   - [X] (deftest zerop.error.1
   - [X] (deftest zerop.error.2
   - [X] (deftest zerop.error.3
@@ -11466,7 +11466,7 @@
   - [X] (deftest zerop.2
   - [X] (deftest zerop.3
   - [X] (deftest zerop.4
-  - [ ] (deftest zerop.5
+  - [X] (deftest zerop.5
   - [X] (deftest zerop.6
   - [X] (deftest zerop.7
   - [X] (deftest zerop.7a
@@ -11512,7 +11512,7 @@
   - [ ] (deftest deposit-field.3
   - [ ] (deftest deposit-field.4
   - [ ] (deftest deposit-field.5
-**** min.lsp [58%]
+**** min.lsp [87%]
   - [X] (deftest min.error.1
   - [ ] (deftest min.error.2
   - [ ] (deftest min.error.3
@@ -11521,20 +11521,20 @@
   - [X] (deftest min.3
   - [X] (deftest min.4
   - [X] (deftest min.5
-  - [ ] (deftest min.6
-  - [ ] (deftest min.7
+  - [X] (deftest min.6
+  - [X] (deftest min.7
   - [X] (deftest min.8
   - [X] (deftest min.9
   - [X] (deftest min.10
   - [X] (deftest min.11
   - [X] (deftest min.12
   - [X] (deftest min.13
-  - [ ] (deftest min.15
-  - [ ] (deftest min.16
-  - [ ] (deftest min.17
-  - [ ] (deftest min.18
-  - [ ] (deftest min.19
-  - [ ] (deftest min.20
+  - [X] (deftest min.15
+  - [X] (deftest min.16
+  - [X] (deftest min.17
+  - [X] (deftest min.18
+  - [X] (deftest min.19
+  - [X] (deftest min.20
   - [X] (deftest min.21
   - [X] (deftest min.22
   - [X] (deftest min.23
@@ -11543,10 +11543,10 @@
   - [X] (deftest min.26
   - [X] (deftest min.27
   - [ ] (deftest min.28
-  - [ ] (deftest min.29
+  - [X] (deftest min.29
   - [X] (deftest min.30
-  - [ ] (deftest min.31
-  - [ ] (deftest min.32
+  - [X] (deftest min.31
+  - [X] (deftest min.32
   - [X] (deftest min.33
   - [X] (deftest min.34
   - [X] (deftest min.order.1
@@ -11593,7 +11593,7 @@
   - [ ] (deftest atan.error.3
   - [ ] (deftest atan.error.4
   - [ ] (deftest atan.error.5
-**** plusp.lsp [54%]
+**** plusp.lsp [72%]
   - [X] (deftest plusp.error.1
   - [X] (deftest plusp.error.2
   - [X] (deftest plusp.error.3
@@ -11602,8 +11602,8 @@
   - [X] (deftest plusp.2
   - [X] (deftest plusp.3
   - [ ] (deftest plusp.4
-  - [ ] (deftest plusp.5
-  - [ ] (deftest plusp.6
+  - [X] (deftest plusp.5
+  - [X] (deftest plusp.6
   - [ ] (deftest plusp.7
 **** arithmetic-error.lsp [57%]
   - [ ] (deftest arithmethic-error.1
@@ -11706,14 +11706,14 @@
   - [ ] (deftest phase.19
   - [ ] (deftest phase.20
   - [ ] (deftest phase.21
-**** tan.lsp [22%]
+**** tan.lsp [25%]
   - [ ] (deftest tan.1
   - [ ] (deftest tan.2
   - [ ] (deftest tan.3
   - [ ] (deftest tan.4
   - [ ] (deftest tan.5
   - [X] (deftest tan.6
-  - [ ] (deftest tan.7
+  - [X] (deftest tan.7
   - [X] (deftest tan.8
   - [X] (deftest tan.9
   - [X] (deftest tan.10
@@ -11784,21 +11784,21 @@
   - [ ] (deftest lcm.order.1
   - [ ] (deftest lcm.order.2
   - [ ] (deftest lcm.order.3
-**** incf.lsp [50%]
+**** incf.lsp [61%]
   - [X] (deftest incf.1
-  - [ ] (deftest incf.2
+  - [X] (deftest incf.2
   - [X] (deftest incf.3
   - [X] (deftest incf.4
   - [X] (deftest incf.5
   - [X] (deftest incf.6
-  - [ ] (deftest incf.7
+  - [X] (deftest incf.7
   - [ ] (deftest incf.8
   - [X] (deftest incf.9
   - [X] (deftest incf.10
   - [ ] (deftest incf.11
   - [ ] (deftest incf.12
   - [ ] (deftest incf.13
-  - [ ] (deftest incf.14
+  - [X] (deftest incf.14
   - [X] (deftest incf.15
   - [X] (deftest incf.16
   - [X] (deftest incf.17
@@ -11811,12 +11811,12 @@
   - [X] (deftest incf.order.2
   - [X] (deftest incf.order.3
   - [X] (deftest incf.order.4
-**** times.lsp [13%]
+**** times.lsp [16%]
   - [ ] (deftest *.1
   - [ ] (deftest *.2
   - [ ] (deftest *.3
   - [ ] (deftest *.4
-  - [ ] (deftest *.5
+  - [X] (deftest *.5
   - [X] (deftest *.6
   - [ ] (deftest *.7
   - [ ] (deftest *.8
@@ -11939,14 +11939,14 @@
   - [ ] (deftest gcd.order.1
   - [ ] (deftest gcd.order.2
   - [ ] (deftest gcd.order.3
-**** cos.lsp [22%]
+**** cos.lsp [25%]
   - [ ] (deftest cos.1
   - [ ] (deftest cos.2
   - [ ] (deftest cos.3
   - [ ] (deftest cos.4
   - [ ] (deftest cos.5
   - [X] (deftest cos.6
-  - [ ] (deftest cos.7
+  - [X] (deftest cos.7
   - [X] (deftest cos.8
   - [X] (deftest cos.9
   - [X] (deftest cos.10
@@ -11967,7 +11967,7 @@
   - [X] (deftest cos.error.1
   - [X] (deftest cos.error.2
   - [ ] (deftest cos.error.3
-**** max.lsp [58%]
+**** max.lsp [87%]
   - [X] (deftest max.error.1
   - [ ] (deftest max.error.2
   - [ ] (deftest max.error.3
@@ -11976,20 +11976,20 @@
   - [X] (deftest max.3
   - [X] (deftest max.4
   - [X] (deftest max.5
-  - [ ] (deftest max.6
-  - [ ] (deftest max.7
+  - [X] (deftest max.6
+  - [X] (deftest max.7
   - [X] (deftest max.8
   - [X] (deftest max.9
   - [X] (deftest max.10
   - [X] (deftest max.11
   - [X] (deftest max.12
   - [X] (deftest max.13
-  - [ ] (deftest max.15
-  - [ ] (deftest max.16
-  - [ ] (deftest max.17
-  - [ ] (deftest max.18
-  - [ ] (deftest max.19
-  - [ ] (deftest max.20
+  - [X] (deftest max.15
+  - [X] (deftest max.16
+  - [X] (deftest max.17
+  - [X] (deftest max.18
+  - [X] (deftest max.19
+  - [X] (deftest max.20
   - [X] (deftest max.21
   - [X] (deftest max.22
   - [X] (deftest max.23
@@ -11998,30 +11998,30 @@
   - [X] (deftest max.26
   - [X] (deftest max.27
   - [ ] (deftest max.28
-  - [ ] (deftest max.29
+  - [X] (deftest max.29
   - [X] (deftest max.30
-  - [ ] (deftest max.31
-  - [ ] (deftest max.32
+  - [X] (deftest max.31
+  - [X] (deftest max.32
   - [X] (deftest max.33
   - [X] (deftest max.34
   - [X] (deftest max.order.1
   - [X] (deftest max.order.2
   - [X] (deftest max.order.3
-**** decf.lsp [50%]
+**** decf.lsp [61%]
   - [X] (deftest decf.1
-  - [ ] (deftest decf.2
+  - [X] (deftest decf.2
   - [X] (deftest decf.3
   - [X] (deftest decf.4
   - [X] (deftest decf.5
   - [X] (deftest decf.6
-  - [ ] (deftest decf.7
+  - [X] (deftest decf.7
   - [ ] (deftest decf.8
   - [X] (deftest decf.9
   - [X] (deftest decf.10
   - [ ] (deftest decf.11
   - [ ] (deftest decf.12
   - [ ] (deftest decf.13
-  - [ ] (deftest decf.14
+  - [X] (deftest decf.14
   - [X] (deftest decf.15
   - [X] (deftest decf.16
   - [X] (deftest decf.17
@@ -12188,7 +12188,7 @@
   - [ ] (deftest /.11
   - [ ] (deftest /.12
   - [ ] (deftest /.13
-**** number-comparison.lsp [37%]
+**** number-comparison.lsp [40%]
   - [X] (deftest =.error.1
   - [X] (deftest /=.error.1
   - [X] (deftest <.error.1
@@ -12249,7 +12249,7 @@
   - [ ] (deftest <.8
   - [ ] (deftest <.9
   - [ ] (deftest <.10
-  - [ ] (deftest <.11
+  - [X] (deftest <.11
   - [ ] (deftest <.17
   - [ ] (deftest <.18
   - [ ] (deftest <.19
@@ -12265,7 +12265,7 @@
   - [X] (deftest <=.7
   - [ ] (deftest <=.8
   - [ ] (deftest <=.9
-  - [ ] (deftest <=.10
+  - [X] (deftest <=.10
   - [ ] (deftest <=.17
   - [ ] (deftest <=.18
   - [ ] (deftest <=.19
@@ -12280,7 +12280,7 @@
   - [ ] (deftest >.6
   - [X] (deftest >.7
   - [ ] (deftest >.8
-  - [ ] (deftest >.9
+  - [X] (deftest >.9
   - [ ] (deftest >.17
   - [ ] (deftest >.18
   - [ ] (deftest >.19
@@ -12295,7 +12295,7 @@
   - [ ] (deftest >=.6
   - [X] (deftest >=.7
   - [ ] (deftest >=.8
-  - [ ] (deftest >=.9
+  - [X] (deftest >=.9
   - [ ] (deftest >=.17
   - [ ] (deftest >=.18
   - [ ] (deftest >=.19
@@ -12360,13 +12360,13 @@
   - [X] (deftest ash.5
   - [ ] (deftest ash.6
   - [X] (deftest ash.order.1
-**** epsilons.lsp [15%]
+**** epsilons.lsp [23%]
   - [ ] (deftest epsilons.1
   - [ ] (deftest epsilons.2
   - [ ] (deftest epsilons.3
   - [ ] (deftest epsilons.4
   - [ ] (deftest epsilons.5
-  - [ ] (deftest epsilons.6
+  - [X] (deftest epsilons.6
   - [X] (deftest epsilons.7
   - [ ] (deftest epsilons.8
   - [X] (deftest epsilons.9
@@ -14219,13 +14219,13 @@
   - [X] (deftest mapcan.error.7
   - [X] (deftest mapcan.error.8
 *** streams [0%]
-**** write-char.lsp [0%]
+**** write-char.lsp [40%]
   - [ ] (deftest write-char.1
   - [ ] (deftest write-char.2
   - [ ] (deftest write-char.3
-  - [ ] (deftest write-char.error.1
-  - [ ] (deftest write-char.error.2
-**** write-sequence.lsp [0%]
+  - [X] (deftest write-char.error.1
+  - [X] (deftest write-char.error.2
+**** write-sequence.lsp [21%]
   - [ ] (def-write-sequence-test write-sequence.string.1 "abcde" () "abcde")
   - [ ] (def-write-sequence-test write-sequence.string.2 "abcde" (:start 1) "bcde")
   - [ ] (def-write-sequence-test write-sequence.string.3 "abcde" (:end 3) "abc")
@@ -14270,50 +14270,50 @@
   - [ ] (def-write-sequence-bv-test write-sequence.bv.4 #*00111010
   - [ ] (def-write-sequence-bv-test write-sequence.bv.5 #*00111010
   - [ ] (def-write-sequence-bv-test write-sequence.bv.6 #*00111010
-  - [ ] (deftest write-sequence.error.1
-  - [ ] (deftest write-sequence.error.2
-  - [ ] (deftest write-sequence.error.3
-  - [ ] (deftest write-sequence.error.4
-  - [ ] (deftest write-sequence.error.5
-  - [ ] (deftest write-sequence.error.6
-  - [ ] (deftest write-sequence.error.7
-  - [ ] (deftest write-sequence.error.8
-  - [ ] (deftest write-sequence.error.9
-  - [ ] (deftest write-sequence.error.10
-  - [ ] (deftest write-sequence.error.11
-  - [ ] (deftest write-sequence.error.12
-  - [ ] (deftest write-sequence.error.13
+  - [X] (deftest write-sequence.error.1
+  - [X] (deftest write-sequence.error.2
+  - [X] (deftest write-sequence.error.3
+  - [X] (deftest write-sequence.error.4
+  - [X] (deftest write-sequence.error.5
+  - [X] (deftest write-sequence.error.6
+  - [X] (deftest write-sequence.error.7
+  - [X] (deftest write-sequence.error.8
+  - [X] (deftest write-sequence.error.9
+  - [X] (deftest write-sequence.error.10
+  - [X] (deftest write-sequence.error.11
+  - [X] (deftest write-sequence.error.12
+  - [X] (deftest write-sequence.error.13
   - [ ] (deftest write-sequence.error.14
   - [ ] (deftest write-sequence.error.15
   - [ ] (deftest write-sequence.error.16
-**** finish-output.lsp [0%]
-  - [ ] (deftest finish-output.1
-  - [ ] (deftest finish-output.2
-  - [ ] (deftest finish-output.3
+**** finish-output.lsp [77%]
+  - [X] (deftest finish-output.1
+  - [X] (deftest finish-output.2
+  - [X] (deftest finish-output.3
   - [ ] (deftest finish-output.4
-  - [ ] (deftest finish-output.5
-  - [ ] (deftest finish-output.6
-  - [ ] (deftest finish-output.error.1
-  - [ ] (deftest finish-output.error.2
+  - [X] (deftest finish-output.5
+  - [X] (deftest finish-output.6
+  - [X] (deftest finish-output.error.1
+  - [X] (deftest finish-output.error.2
   - [ ] (deftest finish-output.error.3
-**** with-output-to-string.lsp [0%]
-  - [ ] (deftest with-output-to-string.1
+**** with-output-to-string.lsp [37%]
+  - [X] (deftest with-output-to-string.1
   - [ ] (deftest with-output-to-string.2
-  - [ ] (deftest with-output-to-string.3
+  - [X] (deftest with-output-to-string.3
   - [ ] (deftest with-output-to-string.4
-  - [ ] (deftest with-output-to-string.5
-  - [ ] (deftest with-output-to-string.6
+  - [X] (deftest with-output-to-string.5
+  - [X] (deftest with-output-to-string.6
   - [ ] (deftest with-output-to-string.7
   - [ ] (deftest with-output-to-string.8
   - [ ] (deftest with-output-to-string.9
   - [ ] (deftest with-output-to-string.10
-  - [ ] (deftest with-output-to-string.11
-  - [ ] (deftest with-output-to-string.12
+  - [X] (deftest with-output-to-string.11
+  - [X] (deftest with-output-to-string.12
   - [ ] (deftest with-output-to-string.13
   - [ ] (deftest with-output-to-string.14
   - [ ] (deftest with-output-to-string.15
   - [ ] (deftest with-output-to-string.16
-**** listen.lsp [0%]
+**** listen.lsp [20%]
   - [ ] (deftest listen.1
   - [ ] (deftest listen.2
   - [ ] (deftest listen.3
@@ -14322,23 +14322,23 @@
   - [ ] (deftest listen.7
   - [ ] (deftest listen.8
   - [ ] (deftest listen.9
-  - [ ] (deftest listen.error.1
-  - [ ] (deftest listen.error.2
-**** read-char.lsp [0%]
-  - [ ] (deftest read-char.1
-  - [ ] (deftest read-char.2
-  - [ ] (deftest read-char.4
-  - [ ] (deftest read-char.5
-  - [ ] (deftest read-char.6
-  - [ ] (deftest read-char.7
-  - [ ] (deftest read-char.8
-  - [ ] (deftest read-char.9
-  - [ ] (deftest read-char.10
-  - [ ] (deftest read-char.error.1
-  - [ ] (deftest read-char.error.2
-  - [ ] (deftest read-char.error.3
-  - [ ] (deftest read-char.error.4
-**** file-position.lsp [0%]
+  - [X] (deftest listen.error.1
+  - [X] (deftest listen.error.2
+**** read-char.lsp [100%]
+  - [X] (deftest read-char.1
+  - [X] (deftest read-char.2
+  - [X] (deftest read-char.4
+  - [X] (deftest read-char.5
+  - [X] (deftest read-char.6
+  - [X] (deftest read-char.7
+  - [X] (deftest read-char.8
+  - [X] (deftest read-char.9
+  - [X] (deftest read-char.10
+  - [X] (deftest read-char.error.1
+  - [X] (deftest read-char.error.2
+  - [X] (deftest read-char.error.3
+  - [X] (deftest read-char.error.4
+**** file-position.lsp [14%]
   - [ ] (deftest file-position.1
   - [ ] (deftest file-position.2
   - [ ] (deftest file-position.3
@@ -14349,56 +14349,56 @@
   - [ ] (deftest file-position.8
   - [ ] (deftest file-position.9
   - [ ] (deftest file-position.10
-  - [ ] (deftest file-position.error.1
-  - [ ] (deftest file-position.error.2
+  - [X] (deftest file-position.error.1
+  - [X] (deftest file-position.error.2
   - [ ] (deftest file-position.error.3
   - [ ] (deftest file-position.error.4
-**** interactive-stream-p.lsp [0%]
+**** interactive-stream-p.lsp [50%]
   - [ ] (deftest interactive-stream-p.1
   - [ ] (deftest interactive-stream-p.error.1
-  - [ ] (deftest interactive-stream-p.error.2
-  - [ ] (deftest interactive-stream-p.error.3
-**** file-string-length.lsp [0%]
+  - [X] (deftest interactive-stream-p.error.2
+  - [X] (deftest interactive-stream-p.error.3
+**** file-string-length.lsp [50%]
   - [ ] (deftest file-string-length.1
   - [ ] (deftest file-string-length.2
   - [ ] (deftest file-string-length.3
-  - [ ] (deftest file-string-length.error.1
-  - [ ] (deftest file-string-length.error.2
-  - [ ] (deftest file-string-length.error.3
-**** make-string-input-stream.lsp [0%]
-  - [ ] (deftest make-string-input-stream.1
-  - [ ] (deftest make-string-input-stream.2
-  - [ ] (deftest make-string-input-stream.3
-  - [ ] (deftest make-string-input-stream.4
-  - [ ] (deftest make-string-input-stream.5
-  - [ ] (deftest make-string-input-stream.6
-  - [ ] (deftest make-string-input-stream.7
-  - [ ] (deftest make-string-input-stream.8
-  - [ ] (deftest make-string-input-stream.9
+  - [X] (deftest file-string-length.error.1
+  - [X] (deftest file-string-length.error.2
+  - [X] (deftest file-string-length.error.3
+**** make-string-input-stream.lsp [91%]
+  - [X] (deftest make-string-input-stream.1
+  - [X] (deftest make-string-input-stream.2
+  - [X] (deftest make-string-input-stream.3
+  - [X] (deftest make-string-input-stream.4
+  - [X] (deftest make-string-input-stream.5
+  - [X] (deftest make-string-input-stream.6
+  - [X] (deftest make-string-input-stream.7
+  - [X] (deftest make-string-input-stream.8
+  - [X] (deftest make-string-input-stream.9
   - [ ] (deftest make-string-input-stream.10
-  - [ ] (deftest make-string-input-stream.error.1
-  - [ ] (deftest make-string-input-stream.error.2
-**** echo-stream-output-stream.lsp [0%]
+  - [X] (deftest make-string-input-stream.error.1
+  - [X] (deftest make-string-input-stream.error.2
+**** echo-stream-output-stream.lsp [66%]
   - [ ] (deftest echo-stream-output-stream.1
-  - [ ] (deftest echo-stream-output-stream.error.1
-  - [ ] (deftest echo-stream-output-stream.error.2
-**** read-byte.lsp [0%]
+  - [X] (deftest echo-stream-output-stream.error.1
+  - [X] (deftest echo-stream-output-stream.error.2
+**** read-byte.lsp [46%]
   - [ ] (deftest read-byte.1
   - [ ] (deftest read-byte.2
   - [ ] (deftest read-byte.3
   - [ ] (deftest read-byte.4
-  - [ ] (deftest read-byte.error.1
+  - [X] (deftest read-byte.error.1
   - [ ] (deftest read-byte.error.2
-  - [ ] (deftest read-byte.error.3
-  - [ ] (deftest read-byte.error.4
+  - [X] (deftest read-byte.error.3
+  - [X] (deftest read-byte.error.4
   - [ ] (deftest read-byte.error.5
   - [ ] (deftest read-byte.error.6
-  - [ ] (deftest write-byte.error.1
-  - [ ] (deftest write-byte.error.2
-  - [ ] (deftest write-byte.error.3
+  - [X] (deftest write-byte.error.1
+  - [X] (deftest write-byte.error.2
+  - [X] (deftest write-byte.error.3
   - [ ] (deftest write-byte.error.4
-  - [ ] (deftest write-byte.error.5
-**** fresh-line.lsp [0%]
+  - [X] (deftest write-byte.error.5
+**** fresh-line.lsp [12%]
   - [ ] (deftest fresh-line.1
   - [ ] (deftest fresh-line.2
   - [ ] (deftest fresh-line.3
@@ -14406,62 +14406,62 @@
   - [ ] (deftest fresh-line.5
   - [ ] (deftest fresh-line.6
   - [ ] (deftest fresh-line.7
-  - [ ] (deftest fresh-line.error.1
-**** unread-char.lsp [0%]
-  - [ ] (deftest unread-char.1
-  - [ ] (deftest unread-char.2
+  - [X] (deftest fresh-line.error.1
+**** unread-char.lsp [85%]
+  - [X] (deftest unread-char.1
+  - [X] (deftest unread-char.2
   - [ ] (deftest unread-char.3
-  - [ ] (deftest unread-char.4
-  - [ ] (deftest unread-char.5
-  - [ ] (deftest unread-char.error.1
-  - [ ] (deftest unread-char.error.2
-**** peek-char.lsp [0%]
-  - [ ] (deftest peek-char.1
-  - [ ] (deftest peek-char.2
-  - [ ] (deftest peek-char.3
-  - [ ] (deftest peek-char.8
+  - [X] (deftest unread-char.4
+  - [X] (deftest unread-char.5
+  - [X] (deftest unread-char.error.1
+  - [X] (deftest unread-char.error.2
+**** peek-char.lsp [64%]
+  - [X] (deftest peek-char.1
+  - [X] (deftest peek-char.2
+  - [X] (deftest peek-char.3
+  - [X] (deftest peek-char.8
   - [ ] (deftest peek-char.9
-  - [ ] (deftest peek-char.10
-  - [ ] (deftest peek-char.11
+  - [X] (deftest peek-char.10
+  - [X] (deftest peek-char.11
   - [ ] (deftest peek-char.12
-  - [ ] (deftest peek-char.13
+  - [X] (deftest peek-char.13
   - [ ] (deftest peek-char.14
   - [ ] (deftest peek-char.15
   - [ ] (deftest peek-char.16
   - [ ] (deftest peek-char.17
   - [ ] (deftest peek-char.18
   - [ ] (deftest peek-char.19
-  - [ ] (deftest peek-char.20
-  - [ ] (deftest peek-char.21
-  - [ ] (deftest peek-char.22
-  - [ ] (deftest peek-char.23
-  - [ ] (deftest peek-char.error.1
-  - [ ] (deftest peek-char.error.2
-  - [ ] (deftest peek-char.error.3
-  - [ ] (deftest peek-char.error.4
-  - [ ] (deftest peek-char.error.5
+  - [X] (deftest peek-char.20
+  - [X] (deftest peek-char.21
+  - [X] (deftest peek-char.22
+  - [X] (deftest peek-char.23
+  - [X] (deftest peek-char.error.1
+  - [X] (deftest peek-char.error.2
+  - [X] (deftest peek-char.error.3
+  - [X] (deftest peek-char.error.4
+  - [X] (deftest peek-char.error.5
   - [ ] (deftest peek-char.error.6
-**** make-synonym-stream.lsp [0%]
+**** make-synonym-stream.lsp [28%]
   - [ ] (deftest make-synonym-stream.1
   - [ ] (deftest make-synonym-stream.2
   - [ ] (deftest make-synonym-stream.3
   - [ ] (deftest make-synonym-stream.4
-  - [ ] (deftest make-synonym-stream.error.1
-  - [ ] (deftest make-synonym-stream.error.2
+  - [X] (deftest make-synonym-stream.error.1
+  - [X] (deftest make-synonym-stream.error.2
   - [ ] (deftest make-synonym-stream.error.3
-**** synonym-stream-symbol.lsp [0%]
+**** synonym-stream-symbol.lsp [66%]
   - [ ] (deftest synonym-stream-symbol.1
-  - [ ] (deftest synonym-stream-symbol.error.1
-  - [ ] (deftest synonym-stream-symbol.error.2
-**** with-input-from-string.lsp [0%]
-  - [ ] (deftest with-input-from-string.1
-  - [ ] (deftest with-input-from-string.2
-  - [ ] (deftest with-input-from-string.3
-  - [ ] (deftest with-input-from-string.3a
-  - [ ] (deftest with-input-from-string.4
-  - [ ] (deftest with-input-from-string.5
-  - [ ] (deftest with-input-from-string.6
-  - [ ] (deftest with-input-from-string.7
+  - [X] (deftest synonym-stream-symbol.error.1
+  - [X] (deftest synonym-stream-symbol.error.2
+**** with-input-from-string.lsp [52%]
+  - [X] (deftest with-input-from-string.1
+  - [X] (deftest with-input-from-string.2
+  - [X] (deftest with-input-from-string.3
+  - [X] (deftest with-input-from-string.3a
+  - [X] (deftest with-input-from-string.4
+  - [X] (deftest with-input-from-string.5
+  - [X] (deftest with-input-from-string.6
+  - [X] (deftest with-input-from-string.7
   - [ ] (deftest with-input-from-string.9
   - [ ] (deftest with-input-from-string.10
   - [ ] (deftest with-input-from-string.11
@@ -14470,12 +14470,12 @@
   - [ ] (deftest with-input-from-string.14
   - [ ] (deftest with-input-from-string.15
   - [ ] (deftest with-input-from-string.16
-  - [ ] (deftest with-input-from-string.17
-  - [ ] (deftest with-input-from-string.18
+  - [X] (deftest with-input-from-string.17
+  - [X] (deftest with-input-from-string.18
   - [ ] (deftest with-input-from-string.19
-  - [ ] (deftest with-input-from-string.20
-  - [ ] (deftest with-input-from-string.21
-  - [ ] (deftest with-input-from-string.22
+  - [X] (deftest with-input-from-string.20
+  - [X] (deftest with-input-from-string.21
+  - [X] (deftest with-input-from-string.22
   - [ ] (deftest with-input-from-string.23
   - [ ] (deftest with-input-from-string.24
   - [ ] (deftest with-input-from-string.25
@@ -14490,17 +14490,17 @@
   - [ ] (deftest with-open-stream.8
   - [ ] (deftest with-open-stream.9
   - [ ] (deftest with-open-stream.10
-**** stream-element-type.lsp [0%]
+**** stream-element-type.lsp [22%]
   - [ ] (deftest stream-element-type.1
   - [ ] (deftest stream-element-type.2
   - [ ] (deftest stream-element-type.3
   - [ ] (deftest stream-element-type.4
   - [ ] (deftest stream-element-type.5
   - [ ] (deftest stream-element-type.6
-  - [ ] (deftest stream-element-type.error.1
-  - [ ] (deftest stream-element-type.error.2
+  - [X] (deftest stream-element-type.error.1
+  - [X] (deftest stream-element-type.error.2
   - [ ] (deftest stream-element-type.error.3
-**** read-sequence.lsp [0%]
+**** read-sequence.lsp [10%]
   - [ ] (def-read-sequence-test read-sequence.string.1 (copy-seq "     ")
   - [ ] (def-read-sequence-test read-sequence.string.2 (copy-seq "     ")
   - [ ] (def-read-sequence-test read-sequence.string.3 (copy-seq "     ")
@@ -14550,35 +14550,35 @@
   - [ ] (def-read-sequence-bv-test read-sequence.bv.5 #*00000000000000 (:start 2)
   - [ ] (def-read-sequence-bv-test read-sequence.bv.6 #*00000000000000
   - [ ] (def-read-sequence-bv-test read-sequence.bv.7 #*00000000000000 (:end 6)
-  - [ ] (deftest read-sequence.error.1
-  - [ ] (deftest read-sequence.error.2
-  - [ ] (deftest read-sequence.error.3
-  - [ ] (deftest read-sequence.error.4
-  - [ ] (deftest read-sequence.error.5
+  - [X] (deftest read-sequence.error.1
+  - [X] (deftest read-sequence.error.2
+  - [X] (deftest read-sequence.error.3
+  - [X] (deftest read-sequence.error.4
+  - [X] (deftest read-sequence.error.5
   - [ ] (deftest read-sequence.error.6
-  - [ ] (deftest read-sequence.error.7
+  - [X] (deftest read-sequence.error.7
   - [ ] (deftest read-sequence.error.8
   - [ ] (deftest read-sequence.error.9
   - [ ] (deftest read-sequence.error.10
   - [ ] (deftest read-sequence.error.11
-**** broadcast-stream-streams.lsp [0%]
+**** broadcast-stream-streams.lsp [50%]
   - [ ] (deftest broadcast-stream-streams.1
   - [ ] (deftest broadcast-stream-streams.2
-  - [ ] (deftest broadcast-stream-streams.error.1
-  - [ ] (deftest broadcast-stream-streams.error.2
-**** clear-input.lsp [0%]
+  - [X] (deftest broadcast-stream-streams.error.1
+  - [X] (deftest broadcast-stream-streams.error.2
+**** clear-input.lsp [36%]
   - [ ] (deftest clear-input.1
   - [ ] (deftest clear-input.2
   - [ ] (deftest clear-input.3
   - [ ] (deftest clear-input.4
   - [ ] (deftest clear-input.5
   - [ ] (deftest clear-input.6
-  - [ ] (deftest clear-input.error.1
-  - [ ] (deftest clear-input.error.2
-  - [ ] (deftest clear-input.error.3
-  - [ ] (deftest clear-input.error.4
+  - [X] (deftest clear-input.error.1
+  - [X] (deftest clear-input.error.2
+  - [X] (deftest clear-input.error.3
+  - [X] (deftest clear-input.error.4
   - [ ] (deftest clear-input.error.5
-**** make-string-output-stream.lsp [0%]
+**** make-string-output-stream.lsp [18%]
   - [ ] (deftest make-string-output-stream.1
   - [ ] (deftest make-string-output-stream.2
   - [ ] (deftest make-string-output-stream.3
@@ -14592,9 +14592,9 @@
   - [ ] (deftest make-string-output-stream.11
   - [ ] (deftest make-string-output-stream.12
   - [ ] (deftest make-string-output-stream.13
-  - [ ] (deftest make-string-output-stream.error.1
-  - [ ] (deftest make-string-output-stream.error.2
-  - [ ] (deftest make-string-output-stream.error.3
+  - [X] (deftest make-string-output-stream.error.1
+  - [X] (deftest make-string-output-stream.error.2
+  - [X] (deftest make-string-output-stream.error.3
 **** open.lsp [0%]
   - [ ] (def-open-test open.1 () (values (read-line s nil)) ("abcdefghij"))
   - [ ] (def-open-test open.2 (:direction :input)
@@ -14789,10 +14789,10 @@
   - [ ] (deftest open.error.16
   - [ ] (deftest open.error.17
   - [ ] (deftest open.error.18
-**** get-output-stream-string.lsp [0%]
+**** get-output-stream-string.lsp [66%]
   - [ ] (deftest get-output-stream-string.1
-  - [ ] (deftest get-output-stream-string.error.1
-  - [ ] (deftest get-output-stream-string.error.2
+  - [X] (deftest get-output-stream-string.error.1
+  - [X] (deftest get-output-stream-string.error.2
 **** make-broadcast-stream.lsp [0%]
   - [ ] (deftest make-broadcast-stream.1
   - [ ] (deftest make-broadcast-stream.2
@@ -14804,16 +14804,16 @@
   - [ ] (deftest make-broadcast-stream.8
   - [ ] (deftest make-broadcast-stream.error.1
   - [ ] (deftest make-broadcast-stream.error.2
-**** file-length.lsp [0%]
-  - [ ] (deftest file-length.error.1
-  - [ ] (deftest file-length.error.2
+**** file-length.lsp [35%]
+  - [X] (deftest file-length.error.1
+  - [X] (deftest file-length.error.2
   - [ ] (deftest file-length.error.3
-  - [ ] (deftest file-length.error.4
-  - [ ] (deftest file-length.error.5
-  - [ ] (deftest file-length.error.6
+  - [X] (deftest file-length.error.4
+  - [X] (deftest file-length.error.5
+  - [X] (deftest file-length.error.6
   - [ ] (deftest file-length.error.8
   - [ ] (deftest file-length.error.9
-  - [ ] (deftest file-length.error.10
+  - [X] (deftest file-length.error.10
   - [ ] (deftest file-length.error.11
   - [ ] (deftest file-length.error.12
   - [ ] (deftest file-length.1
@@ -14822,51 +14822,51 @@
   - [ ] (deftest file-length.4
   - [ ] (deftest file-length.5
   - [ ] (deftest file-length.6
-**** clear-output.lsp [0%]
+**** clear-output.lsp [22%]
   - [ ] (deftest clear-output.1
   - [ ] (deftest clear-output.2
   - [ ] (deftest clear-output.3
   - [ ] (deftest clear-output.4
   - [ ] (deftest clear-output.5
   - [ ] (deftest clear-output.6
-  - [ ] (deftest clear-output.error.1
-  - [ ] (deftest clear-output.error.2
+  - [X] (deftest clear-output.error.1
+  - [X] (deftest clear-output.error.2
   - [ ] (deftest clear-output.error.3
-**** two-way-stream-input-stream.lsp [0%]
+**** two-way-stream-input-stream.lsp [66%]
   - [ ] (deftest two-way-stream-input-stream.1
-  - [ ] (deftest two-way-stream-input-stream.error.1
-  - [ ] (deftest two-way-stream-input-stream.error.2
-**** make-two-way-stream.lsp [0%]
+  - [X] (deftest two-way-stream-input-stream.error.1
+  - [X] (deftest two-way-stream-input-stream.error.2
+**** make-two-way-stream.lsp [33%]
   - [ ] (deftest make-two-way-stream.1
   - [ ] (deftest make-two-way-stream.2
-  - [ ] (deftest make-two-way-stream.3
+  - [X] (deftest make-two-way-stream.3
   - [ ] (deftest make-two-way-stream.4
-  - [ ] (deftest make-two-way-stream.5
+  - [X] (deftest make-two-way-stream.5
   - [ ] (deftest make-two-way-stream.6
-  - [ ] (deftest make-two-way-stream.7
-  - [ ] (deftest make-two-way-stream.8
+  - [X] (deftest make-two-way-stream.7
+  - [X] (deftest make-two-way-stream.8
   - [ ] (deftest make-two-way-stream.9
   - [ ] (deftest make-two-way-stream.10
   - [ ] (deftest make-two-way-stream.11
   - [ ] (deftest make-two-way-stream.12
   - [ ] (deftest make-two-way-stream.13
   - [ ] (deftest make-two-way-stream.14
-  - [ ] (deftest make-two-way-stream.error.1
-  - [ ] (deftest make-two-way-stream.error.2
-  - [ ] (deftest make-two-way-stream.error.3
+  - [X] (deftest make-two-way-stream.error.1
+  - [X] (deftest make-two-way-stream.error.2
+  - [X] (deftest make-two-way-stream.error.3
   - [ ] (deftest make-two-way-stream.error.4
   - [ ] (deftest make-two-way-stream.error.5
   - [ ] (deftest make-two-way-stream.error.6
   - [ ] (deftest make-two-way-stream.error.7
-**** output-stream-p.lsp [0%]
-  - [ ] (deftest output-stream-p.1
-  - [ ] (deftest output-stream-p.2
+**** output-stream-p.lsp [57%]
+  - [X] (deftest output-stream-p.1
+  - [X] (deftest output-stream-p.2
   - [ ] (deftest output-stream-p.3
   - [ ] (deftest output-stream-p.4
-  - [ ] (deftest output-stream-p.error.1
-  - [ ] (deftest output-stream-p.error.2
+  - [X] (deftest output-stream-p.error.1
+  - [X] (deftest output-stream-p.error.2
   - [ ] (deftest output-stream-p.error.3
-**** read-char-no-hang.lsp [0%]
+**** read-char-no-hang.lsp [30%]
   - [ ] (deftest read-char-no-hang.1
   - [ ] (deftest read-char-no-hang.2
   - [ ] (deftest read-char-no-hang.4
@@ -14876,15 +14876,15 @@
   - [ ] (deftest read-char-no-hang.8
   - [ ] (deftest read-char-no-hang.9
   - [ ] (deftest read-char-no-hang.10
-  - [ ] (deftest read-char-no-hang.error.1
-  - [ ] (deftest read-char-no-hang.error.2
-  - [ ] (deftest read-char-no-hang.error.3
-  - [ ] (deftest read-char-no-hang.error.4
-**** echo-stream-input-stream.lsp [0%]
+  - [X] (deftest read-char-no-hang.error.1
+  - [X] (deftest read-char-no-hang.error.2
+  - [X] (deftest read-char-no-hang.error.3
+  - [X] (deftest read-char-no-hang.error.4
+**** echo-stream-input-stream.lsp [66%]
   - [ ] (deftest echo-stream-input-stream.1
-  - [ ] (deftest echo-stream-input-stream.error.1
-  - [ ] (deftest echo-stream-input-stream.error.2
-**** write-string.lsp [0%]
+  - [X] (deftest echo-stream-input-stream.error.1
+  - [X] (deftest echo-stream-input-stream.error.2
+**** write-string.lsp [23%]
   - [ ] (deftest write-string.1
   - [ ] (deftest write-string.2
   - [ ] (deftest write-string.3
@@ -14898,50 +14898,50 @@
   - [ ] (deftest write-string.11
   - [ ] (deftest write-string.12
   - [ ] (deftest write-string.13
-  - [ ] (deftest write-string.error.1
-  - [ ] (deftest write-string.error.2
-  - [ ] (deftest write-string.error.3
-  - [ ] (deftest write-string.error.4
-**** stream-external-format.lsp [0%]
-  - [ ] (deftest stream-external-format.error.1
-  - [ ] (deftest stream-external-format.error.2
-**** terpri.lsp [0%]
+  - [X] (deftest write-string.error.1
+  - [X] (deftest write-string.error.2
+  - [X] (deftest write-string.error.3
+  - [X] (deftest write-string.error.4
+**** stream-external-format.lsp [100%]
+  - [X] (deftest stream-external-format.error.1
+  - [X] (deftest stream-external-format.error.2
+**** terpri.lsp [50%]
   - [ ] (deftest terpri.1
   - [ ] (deftest terpri.2
   - [ ] (deftest terpri.3
-  - [ ] (deftest terpri.4
-  - [ ] (deftest terpri.5
-  - [ ] (deftest terpri.error.1
-**** open-stream-p.lsp [0%]
+  - [X] (deftest terpri.4
+  - [X] (deftest terpri.5
+  - [X] (deftest terpri.error.1
+**** open-stream-p.lsp [25%]
   - [ ] (deftest open-stream-p.1
   - [ ] (deftest open-stream-p.2
   - [ ] (deftest open-stream-p.3
   - [ ] (deftest open-stream-p.4
   - [ ] (deftest open-stream-p.5
-  - [ ] (deftest open-stream-p.error.1
-  - [ ] (deftest open-stream-p.error.2
+  - [X] (deftest open-stream-p.error.1
+  - [X] (deftest open-stream-p.error.2
   - [ ] (deftest open-stream-p.error.3
-**** input-stream-p.lsp [0%]
-  - [ ] (deftest input-stream-p.1
-  - [ ] (deftest input-stream-p.2
+**** input-stream-p.lsp [57%]
+  - [X] (deftest input-stream-p.1
+  - [X] (deftest input-stream-p.2
   - [ ] (deftest input-stream-p.3
   - [ ] (deftest input-stream-p.4
-  - [ ] (deftest input-stream-p.error.1
-  - [ ] (deftest input-stream-p.error.2
+  - [X] (deftest input-stream-p.error.1
+  - [X] (deftest input-stream-p.error.2
   - [ ] (deftest input-stream-p.error.3
-**** concatenated-stream-streams.lsp [0%]
+**** concatenated-stream-streams.lsp [28%]
   - [ ] (deftest concatenated-stream-streams.1
   - [ ] (deftest concatenated-stream-streams.2
   - [ ] (deftest concatenated-stream-streams.3
   - [ ] (deftest concatenated-stream-streams.4
   - [ ] (deftest concatenated-stream-streams.5
-  - [ ] (deftest concatenated-stream-streams.error.1
-  - [ ] (deftest concatenated-stream-streams.error.2
-**** stream-error-stream.lsp [0%]
+  - [X] (deftest concatenated-stream-streams.error.1
+  - [X] (deftest concatenated-stream-streams.error.2
+**** stream-error-stream.lsp [66%]
   - [ ] (deftest stream-error-stream.1
-  - [ ] (deftest stream-error-stream.error.1
-  - [ ] (deftest stream-error-stream.error.2
-**** make-echo-stream.lsp [0%]
+  - [X] (deftest stream-error-stream.error.1
+  - [X] (deftest stream-error-stream.error.2
+**** make-echo-stream.lsp [12%]
   - [ ] (deftest make-echo-stream.1
   - [ ] (deftest make-echo-stream.2
   - [ ] (deftest make-echo-stream.3
@@ -14963,23 +14963,23 @@
   - [ ] (deftest make-echo-stream.20
   - [ ] (deftest make-echo-stream.21
   - [ ] (deftest make-echo-stream.22
-  - [ ] (deftest make-echo-stream.error.1
-  - [ ] (deftest make-echo-stream.error.2
-  - [ ] (deftest make-echo-stream.error.3
-**** read-line.lsp [0%]
-  - [ ] (deftest read-line.1
-  - [ ] (deftest read-line.2
-  - [ ] (deftest read-line.3
-  - [ ] (deftest read-line.4
-  - [ ] (deftest read-line.5
+  - [X] (deftest make-echo-stream.error.1
+  - [X] (deftest make-echo-stream.error.2
+  - [X] (deftest make-echo-stream.error.3
+**** read-line.lsp [91%]
+  - [X] (deftest read-line.1
+  - [X] (deftest read-line.2
+  - [X] (deftest read-line.3
+  - [X] (deftest read-line.4
+  - [X] (deftest read-line.5
   - [ ] (deftest read-line.6
-  - [ ] (deftest read-line.7
-  - [ ] (deftest read-line.8
-  - [ ] (deftest read-line.error.1
-  - [ ] (deftest read-line.error.2
-  - [ ] (deftest read-line.error.3
-  - [ ] (deftest read-line.error.4
-**** write-line.lsp [0%]
+  - [X] (deftest read-line.7
+  - [X] (deftest read-line.8
+  - [X] (deftest read-line.error.1
+  - [X] (deftest read-line.error.2
+  - [X] (deftest read-line.error.3
+  - [X] (deftest read-line.error.4
+**** write-line.lsp [23%]
   - [ ] (deftest write-line.1
   - [ ] (deftest write-line.2
   - [ ] (deftest write-line.3
@@ -14993,34 +14993,34 @@
   - [ ] (deftest write-line.11
   - [ ] (deftest write-line.12
   - [ ] (deftest write-line.13
-  - [ ] (deftest write-line.error.1
-  - [ ] (deftest write-line.error.2
-  - [ ] (deftest write-line.error.3
-  - [ ] (deftest write-line.error.4
-**** force-output.lsp [0%]
+  - [X] (deftest write-line.error.1
+  - [X] (deftest write-line.error.2
+  - [X] (deftest write-line.error.3
+  - [X] (deftest write-line.error.4
+**** force-output.lsp [22%]
   - [ ] (deftest force-output.1
   - [ ] (deftest force-output.2
   - [ ] (deftest force-output.3
   - [ ] (deftest force-output.4
   - [ ] (deftest force-output.5
   - [ ] (deftest force-output.6
-  - [ ] (deftest force-output.error.1
-  - [ ] (deftest force-output.error.2
+  - [X] (deftest force-output.error.1
+  - [X] (deftest force-output.error.2
   - [ ] (deftest force-output.error.3
-**** two-way-stream-output-stream.lsp [0%]
+**** two-way-stream-output-stream.lsp [66%]
   - [ ] (deftest two-way-stream-output-stream.1
-  - [ ] (deftest two-way-stream-output-stream.error.1
-  - [ ] (deftest two-way-stream-output-stream.error.2
-**** with-open-file.lsp [0%]
+  - [X] (deftest two-way-stream-output-stream.error.1
+  - [X] (deftest two-way-stream-output-stream.error.2
+**** with-open-file.lsp [30%]
   - [ ] (deftest with-open-file.1
   - [ ] (deftest with-open-file.2
   - [ ] (deftest with-open-file.3
   - [ ] (deftest with-open-file.4
   - [ ] (deftest with-open-file.5
   - [ ] (deftest with-open-file.6
-  - [ ] (deftest with-open-file.7
-  - [ ] (deftest with-open-file.8
-  - [ ] (deftest with-open-file.9
+  - [X] (deftest with-open-file.7
+  - [X] (deftest with-open-file.8
+  - [X] (deftest with-open-file.9
   - [ ] (deftest with-open-file.10
 **** make-concatenated-stream.lsp [0%]
   - [ ] (deftest make-concatenated-stream.1
@@ -15059,13 +15059,13 @@
   - [ ] (deftest make-concatenated-stream.33
   - [ ] (deftest make-concatenated-stream.error.1
   - [ ] (deftest make-concatenated-stream.error.2
-**** streamp.lsp [0%]
+**** streamp.lsp [66%]
   - [ ] (deftest streamp.1
   - [ ] (deftest streamp.2
-  - [ ] (deftest streamp.3
-  - [ ] (deftest streamp.4
-  - [ ] (deftest streamp.error.1
-  - [ ] (deftest streamp.error.2
+  - [X] (deftest streamp.3
+  - [X] (deftest streamp.4
+  - [X] (deftest streamp.error.1
+  - [X] (deftest streamp.error.2
 *** hash-tables [0%]
 **** clrhash.lsp [85%]
   - [X] (deftest clrhash.1
@@ -15088,7 +15088,7 @@
   - [X] (deftest hash-table-rehash-threshold.error.1
   - [X] (deftest hash-table-rehash-threshold.error.2
   - [ ] (deftest hash-table-rehash-threshold.error.3
-**** gethash.lsp [43%]
+**** gethash.lsp [62%]
   - [ ] (deftest gethash.1
   - [ ] (deftest gethash.2
   - [ ] (deftest gethash.3
@@ -15098,9 +15098,9 @@
   - [ ] (deftest gethash.order.2
   - [X] (deftest gethash.order.3
   - [X] (deftest gethash.order.4
-  - [ ] (deftest gethash.zero.1
-  - [ ] (deftest gethash.zero.2
-  - [ ] (deftest gethash.zero.3
+  - [X] (deftest gethash.zero.1
+  - [X] (deftest gethash.zero.2
+  - [X] (deftest gethash.zero.3
   - [ ] (deftest gethash.zero.4
   - [X] (deftest gethash.error.1
   - [X] (deftest gethash.error.2
@@ -15150,19 +15150,19 @@
   - [X] (deftest hash-table-size.error.1
   - [X] (deftest hash-table-size.error.2
   - [ ] (deftest hash-table-size.error.3
-**** sxhash.lsp [4%]
+**** sxhash.lsp [41%]
   - [ ] (deftest sxhash.1
   - [ ] (deftest sxhash.2
   - [X] (deftest sxhash.3
   - [ ] (deftest sxhash.4
-  - [ ] (deftest sxhash.5
-  - [ ] (deftest sxhash.6
+  - [X] (deftest sxhash.5
+  - [X] (deftest sxhash.6
   - [ ] (deftest sxhash.7
-  - [ ] (deftest sxhash.8
-  - [ ] (deftest sxhash.9
-  - [ ] (deftest sxhash.10
-  - [ ] (deftest sxhash.11
-  - [ ] (deftest sxhash.12
+  - [X] (deftest sxhash.8
+  - [X] (deftest sxhash.9
+  - [X] (deftest sxhash.10
+  - [X] (deftest sxhash.11
+  - [X] (deftest sxhash.12
   - [ ] (deftest sxhash.13
   - [ ] (deftest sxhash.15
   - [ ] (deftest sxhash.16
@@ -15173,8 +15173,8 @@
   - [ ] (deftest sxhash.21
   - [ ] (deftest sxhash.22
   - [ ] (deftest sxhash.23
-  - [ ] (deftest sxhash.error.1
-  - [ ] (deftest sxhash.error.2
+  - [X] (deftest sxhash.error.1
+  - [X] (deftest sxhash.error.2
 **** hash-table-rehash-size.lsp [33%]
   - [ ] (deftest hash-table-rehash-size.1
   - [ ] (deftest hash-table-rehash-size.2

From 2774eba95dbd642f63b5cab6b1b57ad5b86dc8f7 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Thu, 26 Jul 2018 13:30:56 +0900
Subject: [PATCH 3/7] Fix closures in is-eql-p

---
 auxiliary/ansi-aux.lsp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/auxiliary/ansi-aux.lsp b/auxiliary/ansi-aux.lsp
index 8b20a09d..2925e2ef 100644
--- a/auxiliary/ansi-aux.lsp
+++ b/auxiliary/ansi-aux.lsp
@@ -369,11 +369,11 @@ the condition to go uncaught if it cannot be classified."
 (defun nextdigit (c)
   (cadr (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))))
 
-(defun is-eq-p (x) #'(lambda (y) (eqt x y)))
-(defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y))))
+(defmacro is-eq-p (x) `(function (lambda (y) (eqt ,x y))))
+(defmacro is-not-eq-p (x) `(function (lambda (y) (not (eqt ,x y)))))
 
-(defun is-eql-p (x) #'(lambda (y) (eqlt x y)))
-(defun is-not-eql-p (x) #'(lambda (y) (not (eqlt x y))))
+(defmacro is-eql-p (x) `(function (lambda (y) (eqlt ,x y))))
+(defmacro is-not-eql-p (x) `(function (lambda (y) (not (eqlt ,x y)))))
 
 (defun onep (x) (eql x 1))
 

From 33c4569f183552435af278c66bfa8ea025f91996 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Thu, 26 Jul 2018 16:05:59 +0900
Subject: [PATCH 4/7] Fix macro lambda-list in ansi-aux

---
 auxiliary/ansi-aux.lsp | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/auxiliary/ansi-aux.lsp b/auxiliary/ansi-aux.lsp
index 2925e2ef..653d5523 100644
--- a/auxiliary/ansi-aux.lsp
+++ b/auxiliary/ansi-aux.lsp
@@ -667,7 +667,7 @@ the condition to go uncaught if it cannot be classified."
 ;; (defun safe-elt (x n)
 ;;   (classify-error* (elt x n)))
 
-(defmacro defstruct* (&body args)
+(defmacro defstruct* (&rest args)
   `(eval-when (:load-toplevel :compile-toplevel :execute)
      (handler-case (eval '(defstruct ,@args))
                       (serious-condition () nil))))
@@ -849,7 +849,7 @@ the condition to go uncaught if it cannot be classified."
                                                   *print-pprint-dispatch*
                                                 nil))
 
-(defmacro my-with-standard-io-syntax (&body body)
+(defmacro my-with-standard-io-syntax (&rest body)
   `(let ((*package* (find-package "COMMON-LISP-USER"))
          (*print-array* t)
          (*print-base* 10)
@@ -899,22 +899,23 @@ the condition to go uncaught if it cannot be classified."
                   :fill-pointer (if fill len nil)
                   :adjustable adjust))))
 
-(defmacro do-special-strings ((var string-form &optional ret-form) &body forms)
-  (let ((string (gensym))
-        (fill (gensym "FILL"))
-        (adjust (gensym "ADJUST"))
-        (base (gensym "BASE"))
-        (displace (gensym "DISPLACE")))
-    `(let ((,string ,string-form))
-       (dolist (,fill '(nil t) ,ret-form)
-         (dolist (,adjust '(nil t))
-           (dolist (,base '(nil t))
-             (dolist (,displace '(nil t))
-               (let ((,var (make-special-string
-                            ,string
-                            :fill ,fill :adjust ,adjust
-                            :base ,base :displace ,displace)))
-                 ,@forms))))))))
+(defmacro do-special-strings (var-lst &rest forms)
+  (multiple-value-bind (var string-form &optional ret-form) var-lst
+    (let ((string (gensym))
+	  (fill (gensym "FILL"))
+	  (adjust (gensym "ADJUST"))
+	  (base (gensym "BASE"))
+	  (displace (gensym "DISPLACE")))
+      `(let ((,string ,string-form))
+	 (dolist (,fill '(nil t) ,ret-form)
+	   (dolist (,adjust '(nil t))
+	     (dolist (,base '(nil t))
+	       (dolist (,displace '(nil t))
+		 (let ((,var (make-special-string
+			      ,string
+			      :fill ,fill :adjust ,adjust
+			      :base ,base :displace ,displace)))
+		   ,@forms)))))))))
 
 (defun make-special-integer-vector (contents &key fill adjust displace (etype 'integer))
   (let* ((len (length contents))

From 6a8120c31ca3a02672eef2784c141f4208fc2921 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Thu, 26 Jul 2018 20:11:43 +0900
Subject: [PATCH 5/7] Fix compose closures

---
 auxiliary/ansi-aux.lsp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/auxiliary/ansi-aux.lsp b/auxiliary/ansi-aux.lsp
index 653d5523..4f4724e4 100644
--- a/auxiliary/ansi-aux.lsp
+++ b/auxiliary/ansi-aux.lsp
@@ -355,10 +355,12 @@ the condition to go uncaught if it cannot be classified."
 ;; (declaim (ftype (function (&rest function) (values function &optional))
 ;;              compose))
 
-(defun compose (&rest fns)
-  (let ((rfns (reverse fns)))
-    #'(lambda (x) (loop for f
-                        in rfns do (setf x (funcall (the function f) x))) x)))
+(defmacro compose (&rest fns)
+  `(function (lambda (x)
+     ,(let* ((rfns (reverse fns))
+	     (lst `(funcall ,(pop rfns) x)))
+	    (mapc #'(lambda (f) (setq lst `(funcall ,f ,lst))) rfns)
+	    lst))))
 
 (defun evendigitp (c)
   (notnot (find c "02468")))

From 17417c2811e525043810a52b138332137d7192df Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Thu, 26 Jul 2018 23:57:13 +0900
Subject: [PATCH 6/7] Move type aux

---
 arrays/vector-push-extend.lsp         |  50 +++---
 auxiliary/ansi-aux.lsp                |   2 +-
 auxiliary/eus-types.l                 |  33 ++++
 cons/cons-test-05.lsp                 |  20 ++-
 cons/cxr.lsp                          |  14 +-
 data-and-control-flow/ctypecase.lsp   |  12 +-
 data-and-control-flow/etypecase.lsp   |  10 +-
 data-and-control-flow/typecase.lsp    |  10 +-
 environment/environment-functions.lsp |   5 +-
 eus-test.l                            |  28 +---
 printer/format/format-ampersand.lsp   |  20 +--
 printer/format/format-f.lsp           |  62 +++----
 printer/format/format-newline.lsp     |   6 +-
 reader/syntax.lsp                     |   6 +-
 streams/fresh-line.lsp                |  84 +++++-----
 streams/make-echo-stream.lsp          |  42 ++---
 streams/make-two-way-stream.lsp       |  36 ++--
 streams/terpri.lsp                    |  60 +++----
 streams/write-line.lsp                | 226 +++++++++++++-------------
 19 files changed, 373 insertions(+), 353 deletions(-)
 create mode 100644 auxiliary/eus-types.l

diff --git a/arrays/vector-push-extend.lsp b/arrays/vector-push-extend.lsp
index 80256166..8d2adb0e 100644
--- a/arrays/vector-push-extend.lsp
+++ b/arrays/vector-push-extend.lsp
@@ -424,31 +424,31 @@
               collect (list etype adj result)))
   nil)
 
-(deftest vector-push-extend.28
-  (loop for etype in '(character base-char standard-char)
-        for a1 = (make-array 8 :initial-element #\a
-                             :element-type etype)
-        for a2 = (make-array 6
-                             :element-type etype
-                             :displaced-to a1
-                             :displaced-index-offset 2
-                             :adjustable t
-                             :fill-pointer 6)
-        for result = (list (fill-pointer a2)
-                           (map 'list #'identity a2)
-                           (vector-push-extend #\b a2)
-                           (fill-pointer a2)
-                           (map 'list #'identity a2)
-                           (map 'list #'identity a1)
-                           (notnot (adjustable-array-p a2))
-                           (multiple-value-list (array-displacement a1)))
-        unless (equal result '(6 #.(coerce "aaaaaa" 'list)
-                                 6 7
-                                 #.(coerce "aaaaaab" 'list)
-                                 #.(coerce "aaaaaaaa" 'list)
-                                 t (nil 0)))
-        collect (list etype result))
-  nil)
+;; (deftest vector-push-extend.28
+;;   (loop for etype in '(character base-char standard-char)
+;;         for a1 = (make-array 8 :initial-element #\a
+;;                              :element-type etype)
+;;         for a2 = (make-array 6
+;;                              :element-type etype
+;;                              :displaced-to a1
+;;                              :displaced-index-offset 2
+;;                              :adjustable t
+;;                              :fill-pointer 6)
+;;         for result = (list (fill-pointer a2)
+;;                            (map 'list #'identity a2)
+;;                            (vector-push-extend #\b a2)
+;;                            (fill-pointer a2)
+;;                            (map 'list #'identity a2)
+;;                            (map 'list #'identity a1)
+;;                            (notnot (adjustable-array-p a2))
+;;                            (multiple-value-list (array-displacement a1)))
+;;         unless (equal result '(6 #.(coerce "aaaaaa" 'list)
+;;                                  6 7
+;;                                  #.(coerce "aaaaaab" 'list)
+;;                                  #.(coerce "aaaaaaaa" 'list)
+;;                                  t (nil 0)))
+;;         collect (list etype result))
+;;   nil)
 
 ;;; float tests
 
diff --git a/auxiliary/ansi-aux.lsp b/auxiliary/ansi-aux.lsp
index 8b20a09d..e70ee1e8 100644
--- a/auxiliary/ansi-aux.lsp
+++ b/auxiliary/ansi-aux.lsp
@@ -382,7 +382,7 @@ the condition to go uncaught if it cannot be classified."
     (char-upcase c)))
 
 (defun string-invertcase (s)
-  (map 'string #'char-invertcase s))
+  (map string #'char-invertcase s))
 
 (defun symbol< (x &rest args)
   (apply #'string< (symbol-name x) (mapcar #'symbol-name args)))
diff --git a/auxiliary/eus-types.l b/auxiliary/eus-types.l
new file mode 100644
index 00000000..a939ccf0
--- /dev/null
+++ b/auxiliary/eus-types.l
@@ -0,0 +1,33 @@
+(in-package "LISP")
+
+
+(defun find-class (obj &optional error-p) (class obj))
+
+(defun sym-class (type)
+  (cond
+    ((eql type 'list) cons)
+    ((memq type '(simple-string simple-base-string)) string)
+    ((symbolp type) (symbol-value type))
+    (t type)))
+
+(setf (symbol-function '=concatenate) #'concatenate)
+(defun concatenate (type &rest args)
+  (apply #'=concatenate (sym-class type) args))
+
+(setf (symbol-function '=coerce) #'coerce)
+(defun coerce (obj type)
+  (=coerce obj (sym-class type)))
+
+(setf (symbol-function '=make-array) #'make-array)
+(defun make-array (dim &rest args &key element-type &allow-other-keys)
+  (if (consp element-type) (setq element-type (car element-type)))
+  (let* ((element-str (string-upcase element-type))
+	 (elmt (cond ((substringp "CHAR" element-str) :character)
+		     ((substringp "FLOAT" element-str) :float)
+		     ((substringp "BIT" element-str) :bit)
+		     ((or (substringp "FIXNUM" element-str)
+			  (substringp "BYTE" element-str)) :integer)
+		     (t 'vector))))
+    (apply #'=make-array dim :element-type elmt args)))
+
+(export '(find-class))
diff --git a/cons/cons-test-05.lsp b/cons/cons-test-05.lsp
index ef433b37..82f3f615 100644
--- a/cons/cons-test-05.lsp
+++ b/cons/cons-test-05.lsp
@@ -65,7 +65,9 @@
  do
  (let ((level (- (length (symbol-name fn)) 2)))
    (eval `(deftest ,(intern
-                     (concatenate 'string
+                     (concatenate
+		      #+:eus string
+		      #-:eus 'string
                                   (symbol-name fn)
                                   "-SET")
                      :cl-test)
@@ -94,7 +96,9 @@
  do
  (eval
   `(deftest ,(intern
-              (concatenate 'string
+              (concatenate
+	       #+:eus string
+	       #-:eus 'string
                            (symbol-name fn)
                            "-SET")
               :cl-test)
@@ -127,14 +131,18 @@
 
 (loop for name in *cons-accessors*
       do (eval
-          `(deftest ,(intern (concatenate 'string (symbol-name name)
-                                          ".ERROR.NO-ARGS")
+          `(deftest ,(intern (concatenate
+			      #+:eus string
+			      #-:eus 'string
+			      (symbol-name name) ".ERROR.NO-ARGS")
                              :cl-test)
              (signals-error (,name) program-error)
              t))
       do (eval
-          `(deftest ,(intern (concatenate 'string (symbol-name name)
-                                          ".ERROR.EXCESS-ARGS")
+          `(deftest ,(intern (concatenate
+			      #+:eus string
+			      #-:eus 'string
+			      (symbol-name name) ".ERROR.EXCESS-ARGS")
                              :cl-test)
              (signals-error (,name nil nil) program-error)
              t)))
diff --git a/cons/cxr.lsp b/cons/cxr.lsp
index 2f27d9f5..a26d5720 100644
--- a/cons/cxr.lsp
+++ b/cons/cxr.lsp
@@ -583,9 +583,10 @@
     do
       (let ((level (- (length (symbol-name fn)) 2)))
         (eval `(deftest ,(intern
-                          (concatenate 'string
-                            (symbol-name fn)
-                            "-SET-ALT")
+                          (concatenate
+			   #+:eus string
+			   #-:eus 'string
+                            (symbol-name fn) "-SET-ALT")
                           :cl-test)
                    (let ((x (create-c*r-test ,level)))
                      (and
@@ -603,9 +604,10 @@
     do
       (eval
        `(deftest ,(intern
-                   (concatenate 'string
-                     (symbol-name fn)
-                     "-SET-ALT")
+                   (concatenate
+		    #+:eus string
+		    #-:eus 'string
+		    (symbol-name fn) "-SET-ALT")
                    :cl-test)
             (let ((x (make-list 20 :initial-element nil)))
               (and
diff --git a/data-and-control-flow/ctypecase.lsp b/data-and-control-flow/ctypecase.lsp
index 08dbe958..b65078b3 100644
--- a/data-and-control-flow/ctypecase.lsp
+++ b/data-and-control-flow/ctypecase.lsp
@@ -81,12 +81,12 @@
 ;;;  t)
 
 
-(deftest ctypecase.13
-  (let ((x 'a))
-    (ctypecase x
-               (number 'bad)
-               (#.(find-class 'symbol nil) 'good)))
-  good)
+;; (deftest ctypecase.13
+;;   (let ((x 'a))
+;;     (ctypecase x
+;;                (number 'bad)
+;;                (#.(find-class 'symbol nil) 'good)))
+;;   good)
 
 (deftest ctypecase.14
   (block done
diff --git a/data-and-control-flow/etypecase.lsp b/data-and-control-flow/etypecase.lsp
index 746c43e9..72721c32 100644
--- a/data-and-control-flow/etypecase.lsp
+++ b/data-and-control-flow/etypecase.lsp
@@ -53,11 +53,11 @@
   (etypecase 1 (integer) (t 'a))
   nil)
 
-(deftest etypecase.12
-  (etypecase 'a
-    (number 'bad)
-    (#.(find-class 'symbol nil) 'good))
-  good)
+;; (deftest etypecase.12
+;;   (etypecase 'a
+;;     (number 'bad)
+;;     (#.(find-class 'symbol nil) 'good))
+;;   good)
 
 (deftest etypecase.13
   (block nil
diff --git a/data-and-control-flow/typecase.lsp b/data-and-control-flow/typecase.lsp
index 0e6c4675..b9bb31b3 100644
--- a/data-and-control-flow/typecase.lsp
+++ b/data-and-control-flow/typecase.lsp
@@ -65,11 +65,11 @@
   (typecase 1 (symbol 'a) (otherwise))
   nil)
 
-(deftest typecase.15
-  (typecase 'a
-    (number 'bad)
-    (#.(find-class 'symbol nil) 'good))
-  good)
+;; (deftest typecase.15
+;;   (typecase 'a
+;;     (number 'bad)
+;;     (#.(find-class 'symbol nil) 'good))
+;;   good)
 
 (deftest typecase.16
   (block done
diff --git a/environment/environment-functions.lsp b/environment/environment-functions.lsp
index 0c3f6b61..15e88b5d 100644
--- a/environment/environment-functions.lsp
+++ b/environment/environment-functions.lsp
@@ -6,7 +6,10 @@
 
 
 (defmacro def-env-tests (fn-name)
-  (flet ((%name (suffix) (intern (concatenate 'string (symbol-name fn-name) suffix)
+  (flet ((%name (suffix) (intern (concatenate
+				  #+:eus string
+				  #-:eus 'string
+				  (symbol-name fn-name) suffix)
                                  (find-package :cl-test))))
     `(progn
        (deftest ,(%name ".1")
diff --git a/eus-test.l b/eus-test.l
index 8cef836e..ff93cd67 100755
--- a/eus-test.l
+++ b/eus-test.l
@@ -4,16 +4,11 @@
 ;; LOAD CL-compatibility libraries
 (load "auxiliary/eus-multiple-values.l")
 (load "auxiliary/eus-loop.l")
+(load "auxiliary/eus-types.l")
 
 (defvar *signals-error* t)
 
 (defun single (lst) (and (consp lst) (not (cdr lst))))
-(defun sym-class (type)
-  (cond
-    ((eql type 'list) cons)
-    ((memq type '(simple-string simple-base-string)) string)
-    ((symbolp type) (symbol-value type))
-    (t type)))
 
 ;; OVERWRITES
 
@@ -105,32 +100,11 @@
 					    (complex r i))))
 (defun complex (real img) (make-instance complex :real real :imaginary img))
 
-(defun find-class (obj &optional error-p) (class obj))
 (defun compile-and-load (file)
   (if (string= (subseq file 0 15) "ANSI-TESTS:AUX;")
       (load (concatenate string "../auxiliary/" (subseq file 15)))
       (load file)))
 
-(setf (symbol-function '=concatenate) #'concatenate)
-(defun concatenate (type &rest args)
-  (apply #'=concatenate (sym-class type) args))
-
-(setf (symbol-function '=coerce) #'coerce)
-(defun coerce (obj type)
-  (=coerce obj (sym-class type)))
-
-(setf (symbol-function '=make-array) #'make-array)
-(defun make-array (dim &rest args &key element-type &allow-other-keys)
-  (if (consp element-type) (setq element-type (car element-type)))
-  (let* ((element-str (string-upcase element-type))
-	 (elmt (cond ((substringp "CHAR" element-str) :character)
-		     ((substringp "FLOAT" element-str) :float)
-		     ((substringp "BIT" element-str) :bit)
-		     ((or (substringp "FIXNUM" element-str)
-			  (substringp "BYTE" element-str)) :integer)
-		     (t 'vector))))
-    (apply #'=make-array dim :element-type elmt args)))
-
 (setf (symbol-function '=in-package) #'in-package)
 
 (defmacro ignore (&rest syms)
diff --git a/printer/format/format-ampersand.lsp b/printer/format/format-ampersand.lsp
index be520b9f..af850c67 100644
--- a/printer/format/format-ampersand.lsp
+++ b/printer/format/format-ampersand.lsp
@@ -12,11 +12,11 @@
 (def-format-test format.&.2
   "~&" nil "")
 
-(def-format-test format.&.3
-  "X~&" nil #.(concatenate 'string "X" (string #\Newline)))
+;; (def-format-test format.&.3
+;;   "X~&" nil #.(concatenate 'string "X" (string #\Newline)))
 
-(def-format-test format.&.4
-  "X~%~&" nil #.(concatenate 'string "X" (string #\Newline)))
+;; (def-format-test format.&.4
+;;   "X~%~&" nil #.(concatenate 'string "X" (string #\Newline)))
 
 (deftest format.&.5
   (loop for i from 1 to 100
@@ -63,8 +63,8 @@
 (def-format-test format.&.7
   "~v&" (nil) "")
 
-(def-format-test format.&.8
-  "X~v&" (nil) #.(concatenate 'string "X" (string #\Newline)))
+;; (def-format-test format.&.8
+;;   "X~v&" (nil) #.(concatenate 'string "X" (string #\Newline)))
 
 (deftest format.&.9
   (loop for i from 1 to 100
@@ -110,7 +110,7 @@
 (def-format-test format.&.12
   "X~#%" nil "X")
 
-(def-format-test format.&.13
-  "X~#%" ('a 'b 'c) #.(let ((nl (string #\Newline)))
-                        (concatenate 'string "X" nl nl nl))
-  3)
+;; (def-format-test format.&.13
+;;   "X~#%" ('a 'b 'c) #.(let ((nl (string #\Newline)))
+;;                         (concatenate 'string "X" nl nl nl))
+;;   3)
diff --git a/printer/format/format-f.lsp b/printer/format/format-f.lsp
index 55c6fd6d..ba481776 100644
--- a/printer/format/format-f.lsp
+++ b/printer/format/format-f.lsp
@@ -487,37 +487,37 @@
            collect (list i sf w d s i2))))
   nil)
 
-(deftest format.f.42
-  (let ((chars +standard-chars+))
-    (loop
-     for k = (and (coin) (random 6))
-     for x = (random (/ (random-from-seq #(#.(coerce (* 32 (1- (ash 1 13))) 'short-float)
-                                             #.(coerce (* 256 (1- (ash 1 24))) 'single-float)
-                                             #.(coerce (* 256 (1- (ash 1 50))) 'double-float)
-                                             #.(coerce (* 256 (1- (ash 1 50))) 'long-float)))
-                        (if k (expt 10 k) 1)))
-     for w = (and (coin) (random 30))
-     for d = (and (coin) (random 10))
-     for overflowchar = (and (coin) (random-from-seq chars))
-     for padchar = (and (coin) (random-from-seq chars))
-     for f1 = (concatenate 'string
-                           "~"
-                           (if w (format nil "~d" w) "")
-                           ","
-                           (if d (format nil "~d" d) "")
-                           ","
-                           (if k (format nil "~d" k) "")
-                           ","
-                           (if overflowchar (format nil "'~c" overflowchar) "")
-                           ","
-                           (if padchar (format nil "'~c" padchar) "")
-                           (string (random-from-seq "fF")))
-     for s1 = (format nil f1 x)
-     for s2 = (format nil "~v,v,v,v,vf" w d k overflowchar padchar x)
-     repeat 2000
-     unless (string= s1 s2)
-     collect (list x w d k overflowchar padchar f1 s1 s2)))
-  nil)
+;; (deftest format.f.42
+;;   (let ((chars +standard-chars+))
+;;     (loop
+;;      for k = (and (coin) (random 6))
+;;      for x = (random (/ (random-from-seq #(#.(coerce (* 32 (1- (ash 1 13))) 'short-float)
+;;                                              #.(coerce (* 256 (1- (ash 1 24))) 'single-float)
+;;                                              #.(coerce (* 256 (1- (ash 1 50))) 'double-float)
+;;                                              #.(coerce (* 256 (1- (ash 1 50))) 'long-float)))
+;;                         (if k (expt 10 k) 1)))
+;;      for w = (and (coin) (random 30))
+;;      for d = (and (coin) (random 10))
+;;      for overflowchar = (and (coin) (random-from-seq chars))
+;;      for padchar = (and (coin) (random-from-seq chars))
+;;      for f1 = (concatenate 'string
+;;                            "~"
+;;                            (if w (format nil "~d" w) "")
+;;                            ","
+;;                            (if d (format nil "~d" d) "")
+;;                            ","
+;;                            (if k (format nil "~d" k) "")
+;;                            ","
+;;                            (if overflowchar (format nil "'~c" overflowchar) "")
+;;                            ","
+;;                            (if padchar (format nil "'~c" padchar) "")
+;;                            (string (random-from-seq "fF")))
+;;      for s1 = (format nil f1 x)
+;;      for s2 = (format nil "~v,v,v,v,vf" w d k overflowchar padchar x)
+;;      repeat 2000
+;;      unless (string= s1 s2)
+;;      collect (list x w d k overflowchar padchar f1 s1 s2)))
+;;   nil)
 
 ;;; This failed in sbcl 0.8.12.25
 
diff --git a/printer/format/format-newline.lsp b/printer/format/format-newline.lsp
index 4bf8c786..14766b54 100644
--- a/printer/format/format-newline.lsp
+++ b/printer/format/format-newline.lsp
@@ -14,7 +14,7 @@
   (concatenate 'string "A~:" (string #\Newline) " X")
   nil "A X")
 
-(def-format-test format.newline.3
-  (concatenate 'string "A~@" (string #\Newline) " X")
-  nil #.(concatenate 'string "A" (string #\Newline) "X"))
+;; (def-format-test format.newline.3
+;;   (concatenate 'string "A~@" (string #\Newline) " X")
+;;   nil #.(concatenate 'string "A" (string #\Newline) "X"))
 
diff --git a/reader/syntax.lsp b/reader/syntax.lsp
index 8835a447..072f8b35 100644
--- a/reader/syntax.lsp
+++ b/reader/syntax.lsp
@@ -703,9 +703,9 @@
   "#1a#1a(:a :b :c)"
   (make-array '(3) :initial-contents '(:a :b :c)))
 
-(def-syntax-array-test syntax.sharp-a.6
-  "#1a#.(coerce \"abcd\" 'simple-base-string)"
-  (make-array '(4) :initial-contents '(#\a #\b #\c #\d)))
+;; (def-syntax-array-test syntax.sharp-a.6
+;;   "#1a#.(coerce \"abcd\" 'simple-base-string)"
+;;   (make-array '(4) :initial-contents '(#\a #\b #\c #\d)))
 
 (def-syntax-array-test syntax.sharp-a.7
   "#1a#*000110"
diff --git a/streams/fresh-line.lsp b/streams/fresh-line.lsp
index b6e06907..d85b7c65 100644
--- a/streams/fresh-line.lsp
+++ b/streams/fresh-line.lsp
@@ -5,36 +5,36 @@
 
 (in-package :cl-test)
 
-(deftest fresh-line.1
-  (let (result)
-    (values
-     (with-output-to-string
-       (*standard-output*)
-       (write-char #\a)
-       (setq result (notnot (fresh-line))))
-     result))
-  #.(concatenate 'string "a" (string #\Newline))
-  t)
+;; (deftest fresh-line.1
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (*standard-output*)
+;;        (write-char #\a)
+;;        (setq result (notnot (fresh-line))))
+;;      result))
+;;   #.(concatenate 'string "a" (string #\Newline))
+;;   t)
 
-(deftest fresh-line.2
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (write-char #\a s)
-       (setq result (notnot (fresh-line s))))
-     result))
-  #.(concatenate 'string "a" (string #\Newline))
-  t)
+;; (deftest fresh-line.2
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (write-char #\a s)
+;;        (setq result (notnot (fresh-line s))))
+;;      result))
+;;   #.(concatenate 'string "a" (string #\Newline))
+;;   t)
 
-(deftest fresh-line.3
-  (with-output-to-string
-    (s)
-    (write-char #\x s)
-    (fresh-line s)
-    (fresh-line s)
-    (write-char #\y s))
-  #.(concatenate 'string "x" (string #\Newline) "y"))
+;; (deftest fresh-line.3
+;;   (with-output-to-string
+;;     (s)
+;;     (write-char #\x s)
+;;     (fresh-line s)
+;;     (fresh-line s)
+;;     (write-char #\y s))
+;;   #.(concatenate 'string "x" (string #\Newline) "y"))
 
 (deftest fresh-line.4
   (let (result)
@@ -60,21 +60,21 @@
   " 
 " ((t) (nil) (nil)))
 
-(deftest fresh-line.6
-  (with-output-to-string
-    (os)
-    (let ((*terminal-io* (make-two-way-stream *standard-input* os)))
-      (write-char #\a t)
-      (fresh-line t)
-      (finish-output t)))
-  #.(concatenate 'string (string #\a) (string #\Newline)))
+;; (deftest fresh-line.6
+;;   (with-output-to-string
+;;     (os)
+;;     (let ((*terminal-io* (make-two-way-stream *standard-input* os)))
+;;       (write-char #\a t)
+;;       (fresh-line t)
+;;       (finish-output t)))
+;;   #.(concatenate 'string (string #\a) (string #\Newline)))
 
-(deftest fresh-line.7
-  (with-output-to-string
-    (*standard-output*)
-    (write-char #\a nil)
-    (terpri nil))
-  #.(concatenate 'string (string #\a) (string #\Newline)))
+;; (deftest fresh-line.7
+;;   (with-output-to-string
+;;     (*standard-output*)
+;;     (write-char #\a nil)
+;;     (terpri nil))
+;;   #.(concatenate 'string (string #\a) (string #\Newline)))
 
 ;;; Error tests
 
diff --git a/streams/make-echo-stream.lsp b/streams/make-echo-stream.lsp
index 17b55c60..101b7103 100644
--- a/streams/make-echo-stream.lsp
+++ b/streams/make-echo-stream.lsp
@@ -262,18 +262,18 @@
     ;; "abcdefg")
     (error "makes use of function defined in another PR (code-char)"))
 
-(deftest make-echo-stream.17
-  (let* ((is (make-string-input-stream "foo"))
-         (os (make-string-output-stream))
-         (s (make-echo-stream is os)))
-    (values
-     (write-char #\X s)
-     (notnot (fresh-line s))
-     (finish-output s)
-     (force-output s)
-     (close s)
-     (get-output-stream-string os)))
- #\X t nil nil t #.(coerce '(#\X #\Newline) 'string))
+;; (deftest make-echo-stream.17
+;;   (let* ((is (make-string-input-stream "foo"))
+;;          (os (make-string-output-stream))
+;;          (s (make-echo-stream is os)))
+;;     (values
+;;      (write-char #\X s)
+;;      (notnot (fresh-line s))
+;;      (finish-output s)
+;;      (force-output s)
+;;      (close s)
+;;      (get-output-stream-string os)))
+;;  #\X t nil nil t #.(coerce '(#\X #\Newline) 'string))
 
 (deftest make-echo-stream.18
   (let* ((is (make-string-input-stream "foo"))
@@ -295,15 +295,15 @@
      (get-output-stream-string os)))
   "0159X" t "159")
 
-(deftest make-echo-stream.21
-  (let* ((is (make-string-input-stream "foo"))
-         (os (make-string-output-stream))
-         (s (make-echo-stream is os)))
-    (values
-     (write-line "159" s)
-     (close s)
-     (get-output-stream-string os)))
-  "159" t #.(concatenate 'string "159" (string #\Newline)))
+;; (deftest make-echo-stream.21
+;;   (let* ((is (make-string-input-stream "foo"))
+;;          (os (make-string-output-stream))
+;;          (s (make-echo-stream is os)))
+;;     (values
+;;      (write-line "159" s)
+;;      (close s)
+;;      (get-output-stream-string os)))
+;;   "159" t #.(concatenate 'string "159" (string #\Newline)))
 
 (deftest make-echo-stream.22
   (let* ((is (make-string-input-stream "foo"))
diff --git a/streams/make-two-way-stream.lsp b/streams/make-two-way-stream.lsp
index 53363c6c..73114bff 100644
--- a/streams/make-two-way-stream.lsp
+++ b/streams/make-two-way-stream.lsp
@@ -70,16 +70,16 @@
       (get-output-stream-string os)))
    nil #.(string #\Newline))
 
-(deftest make-two-way-stream.6
-   (let* ((is (make-string-input-stream "foo"))
-          (os (make-string-output-stream))
-          (s (make-two-way-stream is os)))
-     (values
-      (write-char #\+ s)
-      (notnot (fresh-line s))
-      (read-char s)
-      (get-output-stream-string os)))
-   #\+ t #\f #.(coerce (list #\+ #\Newline) 'string))
+;; (deftest make-two-way-stream.6
+;;    (let* ((is (make-string-input-stream "foo"))
+;;           (os (make-string-output-stream))
+;;           (s (make-two-way-stream is os)))
+;;      (values
+;;       (write-char #\+ s)
+;;       (notnot (fresh-line s))
+;;       (read-char s)
+;;       (get-output-stream-string os)))
+;;    #\+ t #\f #.(coerce (list #\+ #\Newline) 'string))
 
 (deftest make-two-way-stream.7
    (let* ((is (make-string-input-stream "foo"))
@@ -112,14 +112,14 @@
       (get-output-stream-string os)))
    "bar" "bar")
 
-(deftest make-two-way-stream.10
-   (let* ((is (make-string-input-stream "foo"))
-          (os (make-string-output-stream))
-          (s (make-two-way-stream is os)))
-     (values
-      (write-line "bar" s)
-      (get-output-stream-string os)))
-   "bar" #.(concatenate 'string "bar" '(#\Newline)))
+;; (deftest make-two-way-stream.10
+;;    (let* ((is (make-string-input-stream "foo"))
+;;           (os (make-string-output-stream))
+;;           (s (make-two-way-stream is os)))
+;;      (values
+;;       (write-line "bar" s)
+;;       (get-output-stream-string os)))
+;;    "bar" #.(concatenate 'string "bar" '(#\Newline)))
 
 (deftest make-two-way-stream.11
   (let* ((is (make-string-input-stream "foo"))
diff --git a/streams/terpri.lsp b/streams/terpri.lsp
index 89a07f19..5b983440 100644
--- a/streams/terpri.lsp
+++ b/streams/terpri.lsp
@@ -5,36 +5,36 @@
 
 (in-package :cl-test)
 
-(deftest terpri.1
-  (let (result)
-    (values
-     (with-output-to-string
-       (*standard-output*)
-       (write-char #\a)
-       (setq result (terpri)))
-     result))
-  #.(concatenate 'string "a" (string #\Newline))
-  nil)
-
-(deftest terpri.2
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (write-char #\a s)
-       (setq result (terpri s)))
-     result))
-  #.(concatenate 'string "a" (string #\Newline))
-  nil)
-
-(deftest terpri.3
-  (with-output-to-string
-    (s)
-    (write-char #\x s)
-    (terpri s)
-    (terpri s)
-    (write-char #\y s))
-  #.(concatenate 'string "x" (string #\Newline) (string #\Newline) "y"))
+;; (deftest terpri.1
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (*standard-output*)
+;;        (write-char #\a)
+;;        (setq result (terpri)))
+;;      result))
+;;   #.(concatenate 'string "a" (string #\Newline))
+;;   nil)
+
+;; (deftest terpri.2
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (write-char #\a s)
+;;        (setq result (terpri s)))
+;;      result))
+;;   #.(concatenate 'string "a" (string #\Newline))
+;;   nil)
+
+;; (deftest terpri.3
+;;   (with-output-to-string
+;;     (s)
+;;     (write-char #\x s)
+;;     (terpri s)
+;;     (terpri s)
+;;     (write-char #\y s))
+;;   #.(concatenate 'string "x" (string #\Newline) (string #\Newline) "y"))
 
 (deftest terpri.4
   (with-output-to-string
diff --git a/streams/write-line.lsp b/streams/write-line.lsp
index 72d56b2e..b71c5e7b 100644
--- a/streams/write-line.lsp
+++ b/streams/write-line.lsp
@@ -27,119 +27,119 @@
   #.(string #\Newline)
   (""))
 
-(deftest write-line.3
-  (let (result)
-    (values
-     (with-output-to-string
-       (*standard-output*)
-       (setq result (multiple-value-list (write-line "abcde"))))
-     result))
-  #.(concatenate 'string "abcde" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.4
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result (multiple-value-list (write-line "abcde" s :start 1))))
-     result))
-  #.(concatenate 'string "bcde" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.5
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result (multiple-value-list
-                     (write-line "abcde" s :start 1 :end 3))))
-     result))
-  #.(concatenate 'string "bc" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.6
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result (multiple-value-list
-                     (write-line "abcde" s :start 1 :end nil))))
-     result))
-  #.(concatenate 'string "bcde" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.7
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result (multiple-value-list (write-line "abcde" s :end 3))))
-     result))
-  #.(concatenate 'string "abc" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.8
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result (multiple-value-list
-                     (write-line "abcde" s :end 3 :allow-other-keys nil))))
-     result))
-  #.(concatenate 'string "abc" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.9
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result
-             (multiple-value-list
-              (write-line "abcde" s :end 3 :allow-other-keys t :foo 'bar))))
-     result))
-  #.(concatenate 'string "abc" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.10
-  (let (result)
-    (values
-     (with-output-to-string
-       (s)
-       (setq result (multiple-value-list
-                     (write-line "abcde" s :end 3 :end 2))))
-     result))
-  #.(concatenate 'string "abc" (string #\Newline))
-  ("abcde"))
-
-(deftest write-line.11
-  (with-input-from-string
-   (is "abcd")
-   (with-output-to-string
-     (os)
-     (let ((*terminal-io* (make-two-way-stream is os)))
-       (write-line "951" t)
-       (close *terminal-io*))))
-  #.(concatenate 'string "951" (string #\Newline)))
-
-(deftest write-line.12
-  (with-output-to-string
-    (*standard-output*)
-    (write-line "-=|!" nil))
-  #.(concatenate 'string "-=|!" (string #\Newline)))
-
-;;; Specialized string tests
-
-(deftest write-line.13
-  (do-special-strings
-   (s "abcde" nil)
-   (assert (equal
-            (with-output-to-string
-              (*standard-output*)
-              (multiple-value-list (write-line "abcde")))
-            #.(concatenate 'string "abcde" (string #\Newline)))))
-  nil)
+;; (deftest write-line.3
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (*standard-output*)
+;;        (setq result (multiple-value-list (write-line "abcde"))))
+;;      result))
+;;   #.(concatenate 'string "abcde" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.4
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result (multiple-value-list (write-line "abcde" s :start 1))))
+;;      result))
+;;   #.(concatenate 'string "bcde" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.5
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result (multiple-value-list
+;;                      (write-line "abcde" s :start 1 :end 3))))
+;;      result))
+;;   #.(concatenate 'string "bc" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.6
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result (multiple-value-list
+;;                      (write-line "abcde" s :start 1 :end nil))))
+;;      result))
+;;   #.(concatenate 'string "bcde" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.7
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result (multiple-value-list (write-line "abcde" s :end 3))))
+;;      result))
+;;   #.(concatenate 'string "abc" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.8
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result (multiple-value-list
+;;                      (write-line "abcde" s :end 3 :allow-other-keys nil))))
+;;      result))
+;;   #.(concatenate 'string "abc" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.9
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result
+;;              (multiple-value-list
+;;               (write-line "abcde" s :end 3 :allow-other-keys t :foo 'bar))))
+;;      result))
+;;   #.(concatenate 'string "abc" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.10
+;;   (let (result)
+;;     (values
+;;      (with-output-to-string
+;;        (s)
+;;        (setq result (multiple-value-list
+;;                      (write-line "abcde" s :end 3 :end 2))))
+;;      result))
+;;   #.(concatenate 'string "abc" (string #\Newline))
+;;   ("abcde"))
+
+;; (deftest write-line.11
+;;   (with-input-from-string
+;;    (is "abcd")
+;;    (with-output-to-string
+;;      (os)
+;;      (let ((*terminal-io* (make-two-way-stream is os)))
+;;        (write-line "951" t)
+;;        (close *terminal-io*))))
+;;   #.(concatenate 'string "951" (string #\Newline)))
+
+;; (deftest write-line.12
+;;   (with-output-to-string
+;;     (*standard-output*)
+;;     (write-line "-=|!" nil))
+;;   #.(concatenate 'string "-=|!" (string #\Newline)))
+
+;; ;;; Specialized string tests
+
+;; (deftest write-line.13
+;;   (do-special-strings
+;;    (s "abcde" nil)
+;;    (assert (equal
+;;             (with-output-to-string
+;;               (*standard-output*)
+;;               (multiple-value-list (write-line "abcde")))
+;;             #.(concatenate 'string "abcde" (string #\Newline)))))
+;;   nil)
 
 ;;; Error tests
 

From 06504f2ef7c65591e6779ad50e2a00b082f35675 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Fri, 27 Jul 2018 11:06:38 +0900
Subject: [PATCH 7/7] Move complex and declarations

---
 arrays/load.lsp                               |   2 +-
 auxiliary/ansi-aux.lsp                        |  16 +-
 auxiliary/cl-symbols-aux.lsp                  |   2 +-
 auxiliary/eus-declarations.l                  |   9 +
 auxiliary/eus-numbers.l                       |  11 +
 auxiliary/random-aux.lsp                      |   2 +-
 auxiliary/types-aux.lsp                       |   2 +-
 characters/load.lsp                           |   2 +-
 conditions/load.lsp                           |   2 +-
 cons/cons-test-01.lsp                         |   2 +-
 cons/load.lsp                                 |   2 +-
 .../define-setf-expander.lsp                  |  70 ++---
 data-and-control-flow/eql.lsp                 |  12 +-
 data-and-control-flow/load.lsp                |   2 +-
 environment/documentation.lsp                 |  28 +-
 environment/load.lsp                          |   2 +-
 eus-test.l                                    |  15 +-
 eval-and-compile/declaration.lsp              |   8 +-
 eval-and-compile/load.lsp                     |   2 +-
 files/load.lsp                                |   2 +-
 hash-tables/hash-table-p.lsp                  |  14 +-
 hash-tables/hash-table.lsp                    |  32 +-
 hash-tables/load.lsp                          |   2 +-
 iteration/load.lsp                            |   2 +-
 iteration/loop1.lsp                           |  36 +--
 iteration/loop10.lsp                          |  20 +-
 iteration/loop7.lsp                           |   8 +-
 misc/load.lsp                                 |   2 +-
 misc/misc-cmucl-type-prop.lsp                 |  28 +-
 misc/misc.lsp                                 | 274 +++++++++---------
 numbers/abs.lsp                               |  70 ++---
 numbers/cis.lsp                               |  10 +-
 numbers/complexp.lsp                          |   6 +-
 numbers/conjugate.lsp                         |  48 +--
 numbers/decf.lsp                              |  38 +--
 numbers/expt.lsp                              |  78 ++---
 numbers/imagpart.lsp                          |   6 +-
 numbers/incf.lsp                              |  38 +--
 numbers/load.lsp                              |   2 +-
 numbers/number-comparison.lsp                 | 240 +++++++--------
 numbers/phase.lsp                             | 130 ++++-----
 numbers/realp.lsp                             |   6 +-
 numbers/realpart.lsp                          |   6 +-
 numbers/signum.lsp                            |  26 +-
 numbers/sqrt.lsp                              |  10 +-
 objects/load.lsp                              |   2 +-
 packages/load.lsp                             |   2 +-
 pathnames/load.lsp                            |   2 +-
 printer/load.lsp                              |   2 +-
 reader/load.lsp                               |   2 +-
 sequences/load.lsp                            |   2 +-
 streams/load.lsp                              |   2 +-
 strings/load.lsp                              |   2 +-
 structures/load.lsp                           |   2 +-
 structures/structure-00.lsp                   |   2 +-
 structures/structures-01.lsp                  |   2 +-
 structures/structures-02.lsp                  |   2 +-
 symbols/cl-symbols.lsp                        |   2 +-
 symbols/load.lsp                              |   2 +-
 types-and-classes/load.lsp                    |   2 +-
 60 files changed, 684 insertions(+), 671 deletions(-)
 create mode 100644 auxiliary/eus-declarations.l

diff --git a/arrays/load.lsp b/arrays/load.lsp
index c1f1f39f..d87a9e7f 100644
--- a/arrays/load.lsp
+++ b/arrays/load.lsp
@@ -2,7 +2,7 @@
 (compile-and-load "ANSI-TESTS:AUX;array-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/auxiliary/ansi-aux.lsp b/auxiliary/ansi-aux.lsp
index e70ee1e8..f43fd72e 100644
--- a/auxiliary/ansi-aux.lsp
+++ b/auxiliary/ansi-aux.lsp
@@ -116,7 +116,7 @@ Results: ~A~%" expected-number form n results))))
 
 ;;; *universe* is defined elsewhere -- it is a list of various
 ;;; lisp objects used when stimulating things in various tests.
-(declaim (special *universe*))
+;; (declaim (special *universe*))
 
 ;;; The function EMPIRICAL-SUBTYPEP checks two types
 ;;; for subtypeness, first using SUBTYPEP*, then (if that
@@ -412,7 +412,7 @@ the condition to go uncaught if it cannot be classified."
                   string))
 
 
-(declaim (type simple-base-string +base-chars+))
+;; (declaim (type simple-base-string +base-chars+))
 
 (defparameter +num-base-chars+ (length +base-chars+))
 
@@ -425,14 +425,14 @@ the condition to go uncaught if it cannot be classified."
                                       "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
                                       string))
 
-(declaim (type simple-base-string +alpha-chars+ +lower-case-chars+
-               +upper-case-chars+ +alphanumeric-chars+ +extended-digit-chars+
-               +standard-chars+))
+;; (declaim (type simple-base-string +alpha-chars+ +lower-case-chars+
+;;                +upper-case-chars+ +alphanumeric-chars+ +extended-digit-chars+
+;;                +standard-chars+))
 
 (defparameter +code-chars+
   (coerce (make-int-list 256) string))
 
-(declaim (type simple-string +code-chars+))
+;; (declaim (type simple-string +code-chars+))
 
 (defparameter +rev-code-chars+ (reverse +code-chars+))
 
@@ -826,7 +826,7 @@ the condition to go uncaught if it cannot be classified."
 ;;         (* significand (expt radix limit) sign))
 ;;        (t (rational x))))))
 
-(declaim (special *similarity-list*))
+;; (declaim (special *similarity-list*))
 
 (defun is-similar (x y)
   (let ((*similarity-list* nil))
@@ -1051,3 +1051,5 @@ the condition to go uncaught if it cannot be classified."
 ;; 		(reset)))
 ;;            (catch 0 (evalhook ',form #'hook))))
 ;;      (lisp::install-error-handler *error-handler*)))
+
+(defmacro report-and-ignore-errors (&rest form)) ;; ignoring
diff --git a/auxiliary/cl-symbols-aux.lsp b/auxiliary/cl-symbols-aux.lsp
index 697583d9..65eb16cf 100644
--- a/auxiliary/cl-symbols-aux.lsp
+++ b/auxiliary/cl-symbols-aux.lsp
@@ -5,7 +5,7 @@
 
 
 
-(declaim (optimize (safety 3)))
+;; (declaim (optimize (safety 3)))
 
 (defun is-external-symbol-of (sym package)
   (do-external-symbols (s package)
diff --git a/auxiliary/eus-declarations.l b/auxiliary/eus-declarations.l
new file mode 100644
index 00000000..77ea4358
--- /dev/null
+++ b/auxiliary/eus-declarations.l
@@ -0,0 +1,9 @@
+(in-package "LISP")
+
+
+(defmacro ignore (&rest syms)
+  `(progn
+     ,@(mapcar #'(lambda (sym) `(defmacro ,sym (&rest args))) syms)
+     (export ',syms)))
+
+(ignore declare declaim handler-bind ignore-errors)
diff --git a/auxiliary/eus-numbers.l b/auxiliary/eus-numbers.l
index e69de29b..54330335 100644
--- a/auxiliary/eus-numbers.l
+++ b/auxiliary/eus-numbers.l
@@ -0,0 +1,11 @@
+(in-package "LISP")
+
+
+(defun complex (real img) (make-instance complex :real real :imaginary img))
+
+(set-dispatch-macro-character #\# #\C
+ #'(lambda (s n c)
+     (multiple-value-bind (r i) (read s)
+       (complex r i))))
+
+(export '(complex))
diff --git a/auxiliary/random-aux.lsp b/auxiliary/random-aux.lsp
index b59ec1dc..13228c8a 100644
--- a/auxiliary/random-aux.lsp
+++ b/auxiliary/random-aux.lsp
@@ -5,7 +5,7 @@
 
 
 
-(declaim (special +standard-chars+ *cl-symbols-vector*))
+;; (declaim (special +standard-chars+ *cl-symbols-vector*))
 
 (defvar *maximum-random-int-bits* 36)
   ;; (max 36 (1+ (integer-length most-positive-fixnum))))
diff --git a/auxiliary/types-aux.lsp b/auxiliary/types-aux.lsp
index d2e46dd0..9a68ad1d 100644
--- a/auxiliary/types-aux.lsp
+++ b/auxiliary/types-aux.lsp
@@ -11,7 +11,7 @@
            (is-builtin-class c2))
        (check-disjointness c1 c2)))
 
-(declaim (special *subtype-table*))
+;; (declaim (special *subtype-table*))
 
 (defun types.6-body ()
   (loop
diff --git a/characters/load.lsp b/characters/load.lsp
index 232d8b1b..0101cf5a 100644
--- a/characters/load.lsp
+++ b/characters/load.lsp
@@ -1,7 +1,7 @@
 ;;;; Character tests
 (compile-and-load "ANSI-TESTS:AUX;char-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/conditions/load.lsp b/conditions/load.lsp
index 503da4f9..5b1a1f93 100644
--- a/conditions/load.lsp
+++ b/conditions/load.lsp
@@ -2,7 +2,7 @@
 (compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;define-condition-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/cons/cons-test-01.lsp b/cons/cons-test-01.lsp
index 1c64cfc5..cd06b630 100644
--- a/cons/cons-test-01.lsp
+++ b/cons/cons-test-01.lsp
@@ -5,7 +5,7 @@
 
 
 
-(declaim (optimize (safety 3)))
+;; (declaim (optimize (safety 3)))
 
 
 
diff --git a/cons/load.lsp b/cons/load.lsp
index b3b496b5..ae3a5f0d 100644
--- a/cons/load.lsp
+++ b/cons/load.lsp
@@ -1,7 +1,7 @@
 ;;; Tests of conses
 (compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/data-and-control-flow/define-setf-expander.lsp b/data-and-control-flow/define-setf-expander.lsp
index 94a595ec..3086a56f 100644
--- a/data-and-control-flow/define-setf-expander.lsp
+++ b/data-and-control-flow/define-setf-expander.lsp
@@ -12,21 +12,21 @@
 
 (defun my-car (x) (car x))
 
-(ignore-errors
-  (defparameter *define-setf-expander-vals.1*
-    (multiple-value-list
-     (define-setf-expander my-car (place &environment env)
-       (multiple-value-bind (temps vals stores set-form get-form)
-           (get-setf-expansion place env)
-         (declare (ignore stores set-form))
-         (let ((store (gensym))
-               (temp (gensym)))
-           (values
-            `(,@temps ,temp)
-            `(,@vals ,get-form)
-            `(,store)
-            `(progn (rplaca ,temp ,store) ,store)
-            `(my-car ,temp))))))))
+;; (ignore-errors
+;;   (defparameter *define-setf-expander-vals.1*
+;;     (multiple-value-list
+;;      (define-setf-expander my-car (place &environment env)
+;;        (multiple-value-bind (temps vals stores set-form get-form)
+;;            (get-setf-expansion place env)
+;;          (declare (ignore stores set-form))
+;;          (let ((store (gensym))
+;;                (temp (gensym)))
+;;            (values
+;;             `(,@temps ,temp)
+;;             `(,@vals ,get-form)
+;;             `(,store)
+;;             `(progn (rplaca ,temp ,store) ,store)
+;;             `(my-car ,temp))))))))
 
 (deftest define-setf-expander.1
   *define-setf-expander-vals.1*
@@ -68,26 +68,26 @@
         when (and (consp pair) (eql key (car pair)))
         return pair))
 
-(ignore-errors
-  (define-setf-expander my-assoc (key place &environment env)
-    (multiple-value-bind (temps vals stores set-form get-form)
-        (get-setf-expansion place env)
-      (let ((store (gensym))
-            (key-temp (gensym))
-            (pair-temp (gensym))
-            (place-temp (gensym)))
-        (return-from my-assoc
-          (values
-           `(,@temps ,key-temp ,place-temp ,pair-temp)
-           `(,@vals ,key ,get-form (my-assoc ,key-temp ,place-temp))
-           `(,store)
-           `(if (null ,pair-temp)
-                (let ((,(car stores)
-                       (cons (cons ,key-temp ,store) ,place-temp)))
-                  ,set-form
-                  ,store)
-              (setf (cdr ,pair-temp) ,store))
-           `(cdr ,pair-temp)))))))
+;; (ignore-errors
+;;   (define-setf-expander my-assoc (key place &environment env)
+;;     (multiple-value-bind (temps vals stores set-form get-form)
+;;         (get-setf-expansion place env)
+;;       (let ((store (gensym))
+;;             (key-temp (gensym))
+;;             (pair-temp (gensym))
+;;             (place-temp (gensym)))
+;;         (return-from my-assoc
+;;           (values
+;;            `(,@temps ,key-temp ,place-temp ,pair-temp)
+;;            `(,@vals ,key ,get-form (my-assoc ,key-temp ,place-temp))
+;;            `(,store)
+;;            `(if (null ,pair-temp)
+;;                 (let ((,(car stores)
+;;                        (cons (cons ,key-temp ,store) ,place-temp)))
+;;                   ,set-form
+;;                   ,store)
+;;               (setf (cdr ,pair-temp) ,store))
+;;            `(cdr ,pair-temp)))))))
 
 (deftest define-setf-expander.5
   (let ((x nil))
diff --git a/data-and-control-flow/eql.lsp b/data-and-control-flow/eql.lsp
index d0716e04..6b5d90de 100644
--- a/data-and-control-flow/eql.lsp
+++ b/data-and-control-flow/eql.lsp
@@ -34,9 +34,9 @@
   (eql 12.0 12)
   nil)
 
-(deftest eql.8
-  (eqlt #c(1 -2) #c(1 -2))
-  t)
+;; (deftest eql.8
+;;   (eqlt #c(1 -2) #c(1 -2))
+;;   t)
 
 (deftest eql.9
   (let ((x "abc") (y "abc"))
@@ -47,9 +47,9 @@
   (eql (list 'a) (list 'b))
   nil)
 
-(deftest eql.11
-  (eqlt #c(1 -2) (- #c(-1 2)))
-  t)
+;; (deftest eql.11
+;;   (eqlt #c(1 -2) (- #c(-1 2)))
+;;   t)
 
 (deftest eql.order.1
   (let ((i 0) x y)
diff --git a/data-and-control-flow/load.lsp b/data-and-control-flow/load.lsp
index f985358d..401c177e 100644
--- a/data-and-control-flow/load.lsp
+++ b/data-and-control-flow/load.lsp
@@ -3,7 +3,7 @@
 (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/environment/documentation.lsp b/environment/documentation.lsp
index 33e2e9f4..d2a046ac 100644
--- a/environment/documentation.lsp
+++ b/environment/documentation.lsp
@@ -614,24 +614,24 @@
 
 ;;; Defining new methods for DOCUMENTATION
 
-(ignore-errors
-  (defgeneric documentation-test-class-1-doc-accessor (obj))
-  (defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj))
+;; (ignore-errors
+;;   (defgeneric documentation-test-class-1-doc-accessor (obj))
+;;   (defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj))
 
-  (defclass documentation-test-class-1 () ((my-doc :accessor documentation-test-class-1-doc-accessor
-                                                 :type (or null string)
-                                                 :initform nil)))
+;;   (defclass documentation-test-class-1 () ((my-doc :accessor documentation-test-class-1-doc-accessor
+;;                                                  :type (or null string)
+;;                                                  :initform nil)))
 
-  (defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
-    (slot-value obj 'my-doc))
-  (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
-    (setf (slot-value obj 'my-doc) newdoc))
+;;   (defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
+;;     (slot-value obj 'my-doc))
+;;   (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
+;;     (setf (slot-value obj 'my-doc) newdoc))
 
-  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
-    (documentation-test-class-1-doc-accessor obj))
+;;   (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
+;;     (documentation-test-class-1-doc-accessor obj))
 
-  (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
-    (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
+;;   (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
+;;     (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
 
 (deftest documentation.new-method.1
   (let ((obj (make-instance 'documentation-test-class-1)))
diff --git a/environment/load.lsp b/environment/load.lsp
index f0a884c9..6a421bab 100644
--- a/environment/load.lsp
+++ b/environment/load.lsp
@@ -3,7 +3,7 @@
 ;;;; Created:  Sun Dec 12 19:43:17 2004
 ;;;; Contains: Load environment tests (section 25)
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/eus-test.l b/eus-test.l
index ff93cd67..c15e2a5d 100755
--- a/eus-test.l
+++ b/eus-test.l
@@ -4,6 +4,8 @@
 ;; LOAD CL-compatibility libraries
 (load "auxiliary/eus-multiple-values.l")
 (load "auxiliary/eus-loop.l")
+(load "auxiliary/eus-declarations.l")
+(load "auxiliary/eus-numbers.l")
 (load "auxiliary/eus-types.l")
 
 (defvar *signals-error* t)
@@ -91,14 +93,9 @@
       call-arguments-limit 4611686018427387903)
 
 (send (find-package "LISP") :set-val 'names (list "LISP" "CL"))
-(send (find-package "USER") :set-val 'names (list "USER" "CL-TEST"))
-
+(send (find-package "USER") :set-val 'names (list "USER" "CL-USER" "CL-TEST"))
 
 (set-macro-character #\% nil)
-(set-dispatch-macro-character #\# #\C #'(lambda (s n c)
-					  (multiple-value-bind (r i) (read s)
-					    (complex r i))))
-(defun complex (real img) (make-instance complex :real real :imaginary img))
 
 (defun compile-and-load (file)
   (if (string= (subseq file 0 15) "ANSI-TESTS:AUX;")
@@ -107,12 +104,6 @@
 
 (setf (symbol-function '=in-package) #'in-package)
 
-(defmacro ignore (&rest syms)
-  `(progn
-     ,@(mapcar #'(lambda (sym) `(defmacro ,sym (&rest args))) syms)))
-
-(ignore in-package declare declaim handler-bind report-and-ignore-errors ignore-errors)
-
 (defmacro assert (pred &optional (message "") &rest args)
   (with-gensyms (ret)
     `(let* (failure (ret ,pred))
diff --git a/eval-and-compile/declaration.lsp b/eval-and-compile/declaration.lsp
index f216e187..c2fff20e 100644
--- a/eval-and-compile/declaration.lsp
+++ b/eval-and-compile/declaration.lsp
@@ -29,9 +29,9 @@
 
 ;;; Declare these only if bad declarations produce warnings.
 
-(when (block done
-        (handler-bind ((warning #'(lambda (c) (return-from done t))))
-                      (eval `(let () (declare (,(gensym))) nil))))
+;; (when (block done
+;;         (handler-bind ((warning #'(lambda (c) (return-from done t))))
+;;                       (eval `(let () (declare (,(gensym))) nil))))
 
 (deftest declaration.4
   (let ((sym (gensym)))
@@ -86,7 +86,7 @@
                                  error)))
   t t)
 
-)
+;; ) when
 
 
 
diff --git a/eval-and-compile/load.lsp b/eval-and-compile/load.lsp
index 7688a7a5..cb79d8df 100644
--- a/eval-and-compile/load.lsp
+++ b/eval-and-compile/load.lsp
@@ -1,6 +1,6 @@
 ;;; Tests of evaluation and compilation
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/files/load.lsp b/files/load.lsp
index e6758a73..bab37a07 100644
--- a/files/load.lsp
+++ b/files/load.lsp
@@ -3,7 +3,7 @@
 ;;;; Created:  Thu Jan  1 11:59:35 2004
 ;;;; Contains: Load tests of section 20, 'Files'
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/hash-tables/hash-table-p.lsp b/hash-tables/hash-table-p.lsp
index d63e2431..df827f06 100644
--- a/hash-tables/hash-table-p.lsp
+++ b/hash-tables/hash-table-p.lsp
@@ -5,13 +5,13 @@
 
 
 
-(deftest hash-table-p.1
-  (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
-                       #0aNIL #2a((a b)(c d)) #p"foo"
-                       "bar" #\a 3/5 #c(1.0 2.0))
-        when (hash-table-p e)
-        collect e)
-  nil)
+;; (deftest hash-table-p.1
+;;   (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
+;;                        #0aNIL #2a((a b)(c d)) #p"foo"
+;;                        "bar" #\a 3/5 #c(1.0 2.0))
+;;         when (hash-table-p e)
+;;         collect e)
+;;   nil)
 
 (deftest hash-table-p.2
   (check-type-predicate #'hash-table-p 'hash-table)
diff --git a/hash-tables/hash-table.lsp b/hash-tables/hash-table.lsp
index 4b6ca550..75e6ce7c 100644
--- a/hash-tables/hash-table.lsp
+++ b/hash-tables/hash-table.lsp
@@ -9,22 +9,22 @@
   (notnot-mv (find-class 'hash-table))
   t)
 
-(deftest hash-table.2
-  (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
-                       #0aNIL #2a((a b)(c d)) #p"foo"
-                       "bar" #\a 3/5 #c(1.0 2.0))
-        when (typep e 'hash-table)
-        collect e)
-  nil)
-
-(deftest hash-table.3
-  (let ((c (find-class 'hash-table)))
-    (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
-                         #0aNIL #2a((a b)(c d)) #p"foo"
-                         "bar" #\a 3/5 #c(1.0 2.0))
-          when (typep e c)
-          collect e))
-  nil)
+;; (deftest hash-table.2
+;;   (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
+;;                        #0aNIL #2a((a b)(c d)) #p"foo"
+;;                        "bar" #\a 3/5 #c(1.0 2.0))
+;;         when (typep e 'hash-table)
+;;         collect e)
+;;   nil)
+
+;; (deftest hash-table.3
+;;   (let ((c (find-class 'hash-table)))
+;;     (loop for e in '(nil t 1 10.0 (a b c) #(a b c) #*1011
+;;                          #0aNIL #2a((a b)(c d)) #p"foo"
+;;                          "bar" #\a 3/5 #c(1.0 2.0))
+;;           when (typep e c)
+;;           collect e))
+;;   nil)
 
 (deftest hash-table.4
   (notnot-mv (typep (make-hash-table) 'hash-table))
diff --git a/hash-tables/load.lsp b/hash-tables/load.lsp
index b5780d6d..82ba4f7d 100644
--- a/hash-tables/load.lsp
+++ b/hash-tables/load.lsp
@@ -1,6 +1,6 @@
 (compile-and-load "ANSI-TESTS:AUX;hash-table-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/iteration/load.lsp b/iteration/load.lsp
index fa303c16..6387d1a9 100644
--- a/iteration/load.lsp
+++ b/iteration/load.lsp
@@ -1,6 +1,6 @@
 ;;; Tests of iteration forms
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/iteration/loop1.lsp b/iteration/loop1.lsp
index 26457fe3..30d9593e 100644
--- a/iteration/loop1.lsp
+++ b/iteration/loop1.lsp
@@ -229,29 +229,29 @@
 ;;; numbers.)  Comparing these for termination could be problematic,
 ;;; but a clause without termination should work just fine.
 
-(deftest loop.1.44
-  (loop for i from 1 to 5 for c from #c(0 1) collect c)
-  (#c(0 1) #c(1 1) #c(2 1) #c(3 1) #c(4 1)))
+;; (deftest loop.1.44
+;;   (loop for i from 1 to 5 for c from #c(0 1) collect c)
+;;   (#c(0 1) #c(1 1) #c(2 1) #c(3 1) #c(4 1)))
 
-(deftest loop.1.45
-  (loop for i from 1 to 5 for c from #c(0 1) by 2 collect c)
-  (#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1)))
+;; (deftest loop.1.45
+;;   (loop for i from 1 to 5 for c from #c(0 1) by 2 collect c)
+;;   (#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1)))
 
-(deftest loop.1.46
-  (loop for i from 1 to 5 for c downfrom #c(5 1) collect c)
-  (#c(5 1) #c(4 1) #c(3 1) #c(2 1) #c(1 1)))
+;; (deftest loop.1.46
+;;   (loop for i from 1 to 5 for c downfrom #c(5 1) collect c)
+;;   (#c(5 1) #c(4 1) #c(3 1) #c(2 1) #c(1 1)))
 
-(deftest loop.1.47
-  (loop for i from 1 to 5 for c downfrom #c(10 1) by 2 collect c)
-  (#c(10 1) #c(8 1) #c(6 1) #c(4 1) #c(2 1)))
+;; (deftest loop.1.47
+;;   (loop for i from 1 to 5 for c downfrom #c(10 1) by 2 collect c)
+;;   (#c(10 1) #c(8 1) #c(6 1) #c(4 1) #c(2 1)))
 
-(deftest loop.1.48
-  (loop for i from 1 to 5 for c upfrom #c(0 1) collect c)
-  (#c(0 1) #c(1 1) #c(2 1) #c(3 1) #c(4 1)))
+;; (deftest loop.1.48
+;;   (loop for i from 1 to 5 for c upfrom #c(0 1) collect c)
+;;   (#c(0 1) #c(1 1) #c(2 1) #c(3 1) #c(4 1)))
 
-(deftest loop.1.49
-  (loop for i from 1 to 5 for c upfrom #c(0 1) by 2 collect c)
-  (#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1)))
+;; (deftest loop.1.49
+;;   (loop for i from 1 to 5 for c upfrom #c(0 1) by 2 collect c)
+;;   (#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1)))
 
 ;;; The variable in the loop for-as-arithmetic clause
 ;;; can be a d-var-spec, so 'NIL' should mean don't bind anything
diff --git a/iteration/loop10.lsp b/iteration/loop10.lsp
index 06dc3699..7ba01194 100644
--- a/iteration/loop10.lsp
+++ b/iteration/loop10.lsp
@@ -75,7 +75,7 @@
    program-error)
   t)
 
-(declaim (special *loop-count-var*))
+;; (declaim (special *loop-count-var*))
 
 (deftest loop.10.11
   (let ((*loop-count-var* 100))
@@ -175,7 +175,7 @@
      foo))
   8 20)
 
-(declaim (special *loop-max-var*))
+;; (declaim (special *loop-max-var*))
 
 (deftest loop.10.36
   (let ((*loop-max-var* 100))
@@ -279,7 +279,7 @@
      foo))
   3 20)
 
-(declaim (special *loop-min-var*))
+;; (declaim (special *loop-min-var*))
 
 (deftest loop.10.56
   (let ((*loop-min-var* 100))
@@ -344,9 +344,9 @@
   (loop for i from 1 to 4 sum (float i))
   10.0)
 
-(deftest loop.10.73
-  (loop for i from 1 to 4 sum (complex i i))
-  #c(10 10))
+;; (deftest loop.10.73
+;;   (loop for i from 1 to 4 sum (complex i i))
+;;   #c(10 10))
 
 (deftest loop.10.74
   (loop for i from 1 to 4 sum i fixnum)
@@ -421,10 +421,10 @@
    program-error)
   t)
 
-(deftest loop.10.87
-  (loop for i from 1 to 4
-        sum (complex i (1+ i)) of-type complex)
-  #c(10 14))
+;; (deftest loop.10.87
+;;   (loop for i from 1 to 4
+;;         sum (complex i (1+ i)) of-type complex)
+;;   #c(10 14))
 
 (deftest loop.10.88
   (loop for i from 1 to 4
diff --git a/iteration/loop7.lsp b/iteration/loop7.lsp
index ca7d7766..982db84d 100644
--- a/iteration/loop7.lsp
+++ b/iteration/loop7.lsp
@@ -6,19 +6,19 @@
 
 
 (make-package "LOOP.CL-TEST.1" :use nil)
-(=in-package "LOOP.CL-TEST.1")
+(in-package "LOOP.CL-TEST.1")
 (lisp:intern "FOO")
 (lisp:intern "BAR")
 (lisp:intern "BAZ")
 (lisp:export '(a b c))
-(cl-test::=in-package "CL-TEST")
+(cl-test::in-package "CL-TEST")
 
 (make-package "LOOP.CL-TEST.2" :use (list "LOOP.CL-TEST.1"))
-(=in-package "LOOP.CL-TEST.2")
+(in-package "LOOP.CL-TEST.2")
 (lisp:intern "X")
 (lisp:intern "Y")
 (lisp:intern "Z")
-(cl-test::=in-package "CL-TEST")
+(cl-test::in-package "CL-TEST")
 
 (deftest loop.7.1
   (sort (mapcar #'symbol-name
diff --git a/misc/load.lsp b/misc/load.lsp
index cea99995..53b5e6eb 100644
--- a/misc/load.lsp
+++ b/misc/load.lsp
@@ -5,7 +5,7 @@
 
 ;;; Miscellaneous tests, mostly tests that failed in random testing
 ;;; on various implementations
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/misc/misc-cmucl-type-prop.lsp b/misc/misc-cmucl-type-prop.lsp
index 8b556efc..7cc97be8 100644
--- a/misc/misc-cmucl-type-prop.lsp
+++ b/misc/misc-cmucl-type-prop.lsp
@@ -261,22 +261,22 @@
   t)
 
 ; X86::=0/DOUBLE-FLOAT
-(deftest cmucl-type-prop.22
-  (funcall (compile nil '(lambda (p1)
-                           (declare (optimize (speed 2) (safety 3) (debug 1) (space 3))
-                                    (type (complex double-float) p1))
-                           (= p1 -1590311/896933)))
-           #c(1.0d0 1.0d0))
-  nil)
+;; (deftest cmucl-type-prop.22
+;;   (funcall (compile nil '(lambda (p1)
+;;                            (declare (optimize (speed 2) (safety 3) (debug 1) (space 3))
+;;                                     (type (complex double-float) p1))
+;;                            (= p1 -1590311/896933)))
+;;            #c(1.0d0 1.0d0))
+;;   nil)
 
 ; X86::=/SINGLE-FLOAT
-(deftest cmucl-type-prop.23
-  (funcall (compile nil '(lambda (p2)
-                           (declare (optimize (speed 2) (safety 2) (debug 1) (space 3))
-                                    (type (complex single-float) p2))
-                           (= -976855 (the (eql #c(-57420.04 806984.0)) p2))))
-           #c(-57420.04f0 806984.0f0))
-  nil)
+;; (deftest cmucl-type-prop.23
+;;   (funcall (compile nil '(lambda (p2)
+;;                            (declare (optimize (speed 2) (safety 2) (debug 1) (space 3))
+;;                                     (type (complex single-float) p2))
+;;                            (= -976855 (the (eql #c(-57420.04 806984.0)) p2))))
+;;            #c(-57420.04f0 806984.0f0))
+;;   nil)
 
 ; X86::FAST-EQL/FIXNUM
 (deftest cmucl-type-prop.24
diff --git a/misc/misc.lsp b/misc/misc.lsp
index 6a52c1e3..a7913367 100644
--- a/misc/misc.lsp
+++ b/misc/misc.lsp
@@ -10,7 +10,7 @@
 
 
 
-(declaim (special *s1* *s2* *s3* *s4* *s5* *s6* *s7* *s8*))
+;; (declaim (special *s1* *s2* *s3* *s4* *s5* *s6* *s7* *s8*))
 
 (deftest misc.1
   (funcall
@@ -9948,19 +9948,19 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; sbcl 0.8.19.32
 ;;; Bound is not *, a INTEGER or a list of a INTEGER: -51494/29889
 
-(deftest misc.533
-  (let* ((r (make-array nil))
-         (c #c(208 -51494/29889))
-         (form `(lambda (r p1)
-                  (declare (optimize speed (safety 1))
-                           (type (simple-array t nil) r)
-                           (type number p1))
-                  (setf (aref r) (+ (the (eql ,c) p1) -319284))
-                  (values)))
-         (fn (compile nil form)))
-    (funcall fn r c)
-    (eqlt (aref r) (+ -319284 c)))
-  t)
+;; (deftest misc.533
+;;   (let* ((r (make-array nil))
+;;          (c #c(208 -51494/29889))
+;;          (form `(lambda (r p1)
+;;                   (declare (optimize speed (safety 1))
+;;                            (type (simple-array t nil) r)
+;;                            (type number p1))
+;;                   (setf (aref r) (+ (the (eql ,c) p1) -319284))
+;;                   (values)))
+;;          (fn (compile nil form)))
+;;     (funcall fn r c)
+;;     (eqlt (aref r) (+ -319284 c)))
+;;   t)
 
 ;;; sbcl 0.8.19.35
 ;;; Incorrect return value from conditional
@@ -9994,32 +9994,32 @@ Broken at C::WT-C-INLINE-LOC.
     SB-C::REF.
 |#
 
-(deftest misc.535
-  (let ((c0 #c(4196.088977268509d0 -15943.3603515625d0)))
-    (funcall
-     (compile
-      nil
-      `(lambda (p1 p2)
-         (declare (optimize speed (safety 1))
-                  (type (simple-array t nil) r)
-                  (type (eql ,c0) p1)
-                  (type number p2))
-         (eql (the (complex double-float) p1) p2)))
-     c0 #c(12 612/979)))
-  nil)
+;; (deftest misc.535
+;;   (let ((c0 #c(4196.088977268509d0 -15943.3603515625d0)))
+;;     (funcall
+;;      (compile
+;;       nil
+;;       `(lambda (p1 p2)
+;;          (declare (optimize speed (safety 1))
+;;                   (type (simple-array t nil) r)
+;;                   (type (eql ,c0) p1)
+;;                   (type number p2))
+;;          (eql (the (complex double-float) p1) p2)))
+;;      c0 #c(12 612/979)))
+;;   nil)
 
 ;;; Similar to misc.535
-(deftest misc.536
-  (funcall
-   (compile
-    nil
-    '(lambda (p1 p2)
-       (declare (optimize speed (safety 1))
-                (type (eql #c(11963908204 1/6)) p1)
-                (type (complex rational) p2))
-       (eql p1 (the complex p2))))
-   #c(11963908204 1/6) #c(2343315619 5252231066))
-  nil)
+;; (deftest misc.536
+;;   (funcall
+;;    (compile
+;;     nil
+;;     '(lambda (p1 p2)
+;;        (declare (optimize speed (safety 1))
+;;                 (type (eql #c(11963908204 1/6)) p1)
+;;                 (type (complex rational) p2))
+;;        (eql p1 (the complex p2))))
+;;    #c(11963908204 1/6) #c(2343315619 5252231066))
+;;   nil)
 
 ;;; Comparison of bit vectors in compiled code
 (deftest misc.537
@@ -10040,34 +10040,34 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; abcl (23 Feb 2005)
 ;;;  The value #C(3 4) is not of type number.
 
-(deftest misc.538
-  (notnot (typep (* 2/5 #c(3 4)) 'number))
-  t)
+;; (deftest misc.538
+;;   (notnot (typep (* 2/5 #c(3 4)) 'number))
+;;   t)
 
 ;;; Allegro CL (6.2 trial edition, x86)
 ;;; Error: `#c(0 -8)' is not of the expected type `REAL'
 
-(deftest misc.539
-  (notnot-mv
-   (complexp
-    (funcall
-     (compile nil '(lambda (x)
-                     (declare (OPTIMIZE SPEED (SAFETY 1))
-                              (type (eql #c(0 -8)) x))
-                     (sqrt x)))
-     #c(0 -8))))
-  t)
+;; (deftest misc.539
+;;   (notnot-mv
+;;    (complexp
+;;     (funcall
+;;      (compile nil '(lambda (x)
+;;                      (declare (OPTIMIZE SPEED (SAFETY 1))
+;;                               (type (eql #c(0 -8)) x))
+;;                      (sqrt x)))
+;;      #c(0 -8))))
+;;   t)
 
 ;;; Illegal instruction
 
-(deftest misc.540
-  (let* ((d0 #(a b c d e f g h))
-         (d1 (make-array 5
-                         :fill-pointer 1
-                         :displaced-to d0
-                         :displaced-index-offset 2)))
-    (find #c(1.0 2.0) d1))
-  nil)
+;; (deftest misc.540
+;;   (let* ((d0 #(a b c d e f g h))
+;;          (d1 (make-array 5
+;;                          :fill-pointer 1
+;;                          :displaced-to d0
+;;                          :displaced-index-offset 2)))
+;;     (find #c(1.0 2.0) d1))
+;;   nil)
 
 ;;; A crasher bug of REMOVE on non-simple nibble arrays
 
@@ -10106,17 +10106,17 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; Lispworks personal edition 4.3 (x86 linux)
 ;;; Error: In PLUSP of (#C(1123113 -260528)) arguments should be of type REAL.
 
-(deftest misc.543
-  (funcall
-   (compile
-    nil
-    '(lambda (p1)
-        (declare (optimize speed (safety 1))
-                 ; (type (simple-array t nil) r)
-                 (type (integer 2493220 2495515) p1))
-        (* p1 #c(1123113 -260528))))
-   2493726)
-  #C(2800736089038 -649685447328))
+;; (deftest misc.543
+;;   (funcall
+;;    (compile
+;;     nil
+;;     '(lambda (p1)
+;;         (declare (optimize speed (safety 1))
+;;                  ; (type (simple-array t nil) r)
+;;                  (type (integer 2493220 2495515) p1))
+;;         (* p1 #c(1123113 -260528))))
+;;    2493726)
+;;   #C(2800736089038 -649685447328))
 
 ;;; gcl
 
@@ -10137,11 +10137,11 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; OpenMCL
 ;;; 1/2 is not of type integer
 
-(deftest misc.545
-  (let ((x #c(-1 1/2)))
-    (declare (type (eql #c(-1 1/2)) x))
-    x)
-  #c(-1 1/2))
+;; (deftest misc.545
+;;   (let ((x #c(-1 1/2)))
+;;     (declare (type (eql #c(-1 1/2)) x))
+;;     x)
+;;   #c(-1 1/2))
 
 ;;; SBCL
 ;;; 0.8.19.39
@@ -10245,10 +10245,10 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; ecls
 ;;; REAL is not of type REAL.
 
-(deftest misc.553
-  (funcall (compile nil '(lambda (x) (declare (type (eql #c(1.0 2.0)) x)) x))
-           #c(1.0 2.0))
-  #c(1.0 2.0))
+;; (deftest misc.553
+;;   (funcall (compile nil '(lambda (x) (declare (type (eql #c(1.0 2.0)) x)) x))
+;;            #c(1.0 2.0))
+;;   #c(1.0 2.0))
 
 ;;; 1 is not of type SEQUENCE
 (deftest misc.554
@@ -10358,41 +10358,41 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; LOG
 ;;; The value #C(-215549 39/40) is not of type (COMPLEX RATIONAL).
 
-(deftest misc.562
-  (let ((fn '(lambda (p1)
-               (declare (optimize (speed 0) (safety 0) (debug 0) (space 2))
-                        (type (complex rational) p1))
-               (log p1))))
-    (notnot (complexp (funcall (compile nil fn) #C(-215549 39/40)))))
-  t)
+;; (deftest misc.562
+;;   (let ((fn '(lambda (p1)
+;;                (declare (optimize (speed 0) (safety 0) (debug 0) (space 2))
+;;                         (type (complex rational) p1))
+;;                (log p1))))
+;;     (notnot (complexp (funcall (compile nil fn) #C(-215549 39/40)))))
+;;   t)
 
 ;;; CONJUGATE
 ;;; Wrong result (#c(1 2))
 
-(deftest misc.563
-  (funcall (compile nil '(lambda (x)
-                           (declare (optimize (speed 1) (safety 0) (debug 3) (space 1))
-                                    (type (complex rational) x))
-                           (conjugate (the (eql #c(1 2)) x))))
-           #c(1 2))
-  #c(1 -2))
+;; (deftest misc.563
+;;   (funcall (compile nil '(lambda (x)
+;;                            (declare (optimize (speed 1) (safety 0) (debug 3) (space 1))
+;;                                     (type (complex rational) x))
+;;                            (conjugate (the (eql #c(1 2)) x))))
+;;            #c(1 2))
+;;   #c(1 -2))
 
 ;;; PHASE
 ;;; The function SB-KERNEL:%ATAN2 is undefined.
 
-(deftest misc.564
-  (notnot
-   (typep
-    (funcall
-     (compile
-      nil
-      '(lambda (p1)
-         (declare (optimize (speed 3) (safety 2) (debug 3) (space 0))
-                  (type complex p1))
-         (phase (the (eql #c(1.0d0 2.0d0)) p1))))
-     #c(1.0d0 2.0d0))
-    'double-float))
-  t)
+;; (deftest misc.564
+;;   (notnot
+;;    (typep
+;;     (funcall
+;;      (compile
+;;       nil
+;;       '(lambda (p1)
+;;          (declare (optimize (speed 3) (safety 2) (debug 3) (space 0))
+;;                   (type complex p1))
+;;          (phase (the (eql #c(1.0d0 2.0d0)) p1))))
+;;      #c(1.0d0 2.0d0))
+;;     'double-float))
+;;   t)
 
 ;;; ACL 6.2 (trial, x86 linux)
 ;;; Incorrect return value (t instead of nil)
@@ -10549,22 +10549,22 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; In abcl (14 Mar 2005)
 ;;; The value T is not of type number.
 
-(deftest misc.575
-  (equalp #c(1269346.0 47870.12254712875) t)
-  nil)
+;; (deftest misc.575
+;;   (equalp #c(1269346.0 47870.12254712875) t)
+;;   nil)
 
 ;;; The value #C(435422075/240892576 373) is not of type NUMBER.
 
-(deftest misc.576
-  (* -7023900320 #C(435422075/240892576 373))
-  #C(-95573789122736375/7527893 -2619914819360))
+;; (deftest misc.576
+;;   (* -7023900320 #C(435422075/240892576 373))
+;;   #C(-95573789122736375/7527893 -2619914819360))
 
 ;;; The value #C(-555014/122849 -6641556271) is not of type NUMBER.
 
-(deftest misc.577
-  (/ -3185994774 #C(-555014/122849 -6641556271))
-  #C(217230410502882805764/665706755984253572883257634437
-     -319343563321640207257301634954/665706755984253572883257634437))
+;; (deftest misc.577
+;;   (/ -3185994774 #C(-555014/122849 -6641556271))
+;;   #C(217230410502882805764/665706755984253572883257634437
+;;      -319343563321640207257301634954/665706755984253572883257634437))
 
 ;;; The value "" is not of type (STRING 1).
 
@@ -10588,9 +10588,9 @@ Broken at C::WT-C-INLINE-LOC.
 ;;; sbcl 0.8.20.19
 ;;;  The component type for COMPLEX is not numeric: (OR RATIO FIXNUM)
 
-(deftest misc.580
-  (notnot-mv (typep #c(1 2) '(complex (or ratio fixnum))))
-  t)
+;; (deftest misc.580
+;;   (notnot-mv (typep #c(1 2) '(complex (or ratio fixnum))))
+;;   t)
 
 ;;; The value -5067.2056 is not of type (SINGLE-FLOAT -5067.2056 -5067.2056).
 
@@ -10635,18 +10635,18 @@ Broken at C::WT-C-INLINE-LOC.
 
 ;;; Argument X is not a REAL: #<FUNCTION {A39DEDD}>
 
-(deftest misc.583
-  (notnot-mv
-   (complexp
-    (funcall
-     (compile
-      nil
-      '(lambda (p1)
-         (declare (optimize (speed 0) (safety 0) (debug 2) (space 3))
-                  (type (complex rational) p1))
-         (sqrt p1)))
-     #c(-9003 -121))))
-  t)
+;; (deftest misc.583
+;;   (notnot-mv
+;;    (complexp
+;;     (funcall
+;;      (compile
+;;       nil
+;;       '(lambda (p1)
+;;          (declare (optimize (speed 0) (safety 0) (debug 2) (space 3))
+;;                   (type (complex rational) p1))
+;;          (sqrt p1)))
+;;      #c(-9003 -121))))
+;;   t)
 
 ;;; The value -27 is not of type (INTEGER -34359738403 -24).
 
@@ -10910,12 +10910,12 @@ Broken at C::WT-C-INLINE-LOC.
 
 ;;; Error in COMPILER::CMP-ANON [or a callee]: #\a is not of type FIXNUM.
 
-(deftest misc.606
-  (let ((form '(lambda ()
-                 (declare (optimize (speed 3) (safety 2) (debug 3) (space 2)))
-                 (equal #\a #c(-1775806.0s0 88367.29s0)))))
-    (funcall (compile nil form)))
-  nil)
+;; (deftest misc.606
+;;   (let ((form '(lambda ()
+;;                  (declare (optimize (speed 3) (safety 2) (debug 3) (space 2)))
+;;                  (equal #\a #c(-1775806.0s0 88367.29s0)))))
+;;     (funcall (compile nil form)))
+;;   nil)
 
 ;;; Error in COMPILER::CMP-ANON [or a callee]: #*1 is not of type FIXNUM.
 
diff --git a/numbers/abs.lsp b/numbers/abs.lsp
index 4e2b0fb8..5f3415b9 100644
--- a/numbers/abs.lsp
+++ b/numbers/abs.lsp
@@ -137,41 +137,41 @@
 
 ;;; Complex numbers
 
-(deftest abs.14
-  (let ((result (abs #c(3 4))))
-    (=t result 5))
-  t)
-
-(deftest abs.15
-  (let ((result (abs #c(-3 4))))
-    (=t result 5))
-  t)
-
-(deftest abs.16
-  (let ((result (abs #c(3 -4))))
-    (=t result 5))
-  t)
-
-(deftest abs.17
-  (let ((result (abs #c(-3 -4))))
-    (=t result 5))
-  t)
-
-(deftest abs.18
-  (abs #c(3.0s0 4.0s0))
-  5.0s0)
-
-(deftest abs.19
-  (abs #c(3.0f0 -4.0f0))
-  5.0f0)
-
-(deftest abs.20
-  (abs #c(-3.0d0 4.0d0))
-  5.0d0)
-
-(deftest abs.21
-  (abs #c(-3.0l0 4.0l0))
-  5.0l0)
+;; (deftest abs.14
+;;   (let ((result (abs #c(3 4))))
+;;     (=t result 5))
+;;   t)
+
+;; (deftest abs.15
+;;   (let ((result (abs #c(-3 4))))
+;;     (=t result 5))
+;;   t)
+
+;; (deftest abs.16
+;;   (let ((result (abs #c(3 -4))))
+;;     (=t result 5))
+;;   t)
+
+;; (deftest abs.17
+;;   (let ((result (abs #c(-3 -4))))
+;;     (=t result 5))
+;;   t)
+
+;; (deftest abs.18
+;;   (abs #c(3.0s0 4.0s0))
+;;   5.0s0)
+
+;; (deftest abs.19
+;;   (abs #c(3.0f0 -4.0f0))
+;;   5.0f0)
+
+;; (deftest abs.20
+;;   (abs #c(-3.0d0 4.0d0))
+;;   5.0d0)
+
+;; (deftest abs.21
+;;   (abs #c(-3.0l0 4.0l0))
+;;   5.0l0)
 
 (deftest abs.22
   (macrolet ((%m (z) z))
diff --git a/numbers/cis.lsp b/numbers/cis.lsp
index 0ddcbc55..b480e4c4 100644
--- a/numbers/cis.lsp
+++ b/numbers/cis.lsp
@@ -15,11 +15,11 @@
   (signals-error (cis 0 nil) program-error)
   t)
 
-(deftest cis.1
-  (let ((result (cis 0)))
-    (or (=t result 1)
-        (eqlt #c(1.0 0.0))))
-  t)
+;; (deftest cis.1
+;;   (let ((result (cis 0)))
+;;     (or (=t result 1)
+;;         (eqlt #c(1.0 0.0))))
+;;   t)
 
 (deftest cis.2
   (loop for x in '(0.0s0 0.0f0 0.0d0 0.0l0)
diff --git a/numbers/complexp.lsp b/numbers/complexp.lsp
index 0bea7c4a..a86cf58e 100644
--- a/numbers/complexp.lsp
+++ b/numbers/complexp.lsp
@@ -13,9 +13,9 @@
   (signals-error (complexp 0 0) program-error)
   t)
 
-(deftest complexp.error.3
-  (signals-error (complexp #C(1 1) nil) program-error)
-  t)
+;; (deftest complexp.error.3
+;;   (signals-error (complexp #C(1 1) nil) program-error)
+;;   t)
 
 (deftest complexp.1
   (check-type-predicate #'complexp 'complex)
diff --git a/numbers/conjugate.lsp b/numbers/conjugate.lsp
index f63dad0a..f25503ec 100644
--- a/numbers/conjugate.lsp
+++ b/numbers/conjugate.lsp
@@ -34,34 +34,34 @@
                     (eql (- (imagpart x)) (imagpart xc))))
   t)
 
-(deftest conjugate.3
-  (eqlt (conjugate #c(0.0s0 0.0s0)) #c(0.0s0 -0.0s0))
-  t)
+;; (deftest conjugate.3
+;;   (eqlt (conjugate #c(0.0s0 0.0s0)) #c(0.0s0 -0.0s0))
+;;   t)
 
-(deftest conjugate.4
-  (eqlt (conjugate #c(1.0s0 0.0s0)) #c(1.0s0 -0.0s0))
-  t)
+;; (deftest conjugate.4
+;;   (eqlt (conjugate #c(1.0s0 0.0s0)) #c(1.0s0 -0.0s0))
+;;   t)
 
-(deftest conjugate.5
-  (eqlt (conjugate #c(0.0f0 0.0f0)) #c(0.0f0 -0.0f0))
-  t)
+;; (deftest conjugate.5
+;;   (eqlt (conjugate #c(0.0f0 0.0f0)) #c(0.0f0 -0.0f0))
+;;   t)
 
-(deftest conjugate.6
-  (eqlt (conjugate #c(1.0f0 0.0f0)) #c(1.0f0 -0.0f0))
-  t)
+;; (deftest conjugate.6
+;;   (eqlt (conjugate #c(1.0f0 0.0f0)) #c(1.0f0 -0.0f0))
+;;   t)
 
-(deftest conjugate.7
-  (eqlt (conjugate #c(0.0d0 0.0d0)) #c(0.0d0 -0.0d0))
-  t)
+;; (deftest conjugate.7
+;;   (eqlt (conjugate #c(0.0d0 0.0d0)) #c(0.0d0 -0.0d0))
+;;   t)
 
-(deftest conjugate.8
-  (eqlt (conjugate #c(1.0d0 0.0d0)) #c(1.0d0 -0.0d0))
-  t)
+;; (deftest conjugate.8
+;;   (eqlt (conjugate #c(1.0d0 0.0d0)) #c(1.0d0 -0.0d0))
+;;   t)
 
-(deftest conjugate.9
-  (eqlt (conjugate #c(0.0l0 0.0l0)) #c(0.0l0 -0.0l0))
-  t)
+;; (deftest conjugate.9
+;;   (eqlt (conjugate #c(0.0l0 0.0l0)) #c(0.0l0 -0.0l0))
+;;   t)
 
-(deftest conjugate.10
-  (eqlt (conjugate #c(1.0l0 0.0l0)) #c(1.0l0 -0.0l0))
-  t)
+;; (deftest conjugate.10
+;;   (eqlt (conjugate #c(1.0l0 0.0l0)) #c(1.0l0 -0.0l0))
+;;   t)
diff --git a/numbers/decf.lsp b/numbers/decf.lsp
index 27523a8f..789e6c37 100644
--- a/numbers/decf.lsp
+++ b/numbers/decf.lsp
@@ -122,25 +122,25 @@
     (values (decf x 0.0l0) x))
   10.0l0 10.0l0)
 
-(deftest decf.18
-  (let ((x 1))
-    (values (decf x #c(0.0s0 10.0s0)) x))
-  #c(1.0s0 -10.0s0) #c(1.0s0 -10.0s0))
-
-(deftest decf.19
-  (let ((x 1))
-    (values (decf x #c(0.0f0 2.0f0)) x))
-  #c(1.0f0 -2.0f0) #c(1.0f0 -2.0f0))
-
-(deftest decf.20
-  (let ((x 1))
-    (values (decf x #c(0.0d0 2.0d0)) x))
-  #c(1.0d0 -2.0d0) #c(1.0d0 -2.0d0))
-
-(deftest decf.21
-  (let ((x 1))
-    (values (decf x #c(0.0l0 -2.0l0)) x))
-  #c(1.0l0 2.0l0) #c(1.0l0 2.0l0))
+;; (deftest decf.18
+;;   (let ((x 1))
+;;     (values (decf x #c(0.0s0 10.0s0)) x))
+;;   #c(1.0s0 -10.0s0) #c(1.0s0 -10.0s0))
+
+;; (deftest decf.19
+;;   (let ((x 1))
+;;     (values (decf x #c(0.0f0 2.0f0)) x))
+;;   #c(1.0f0 -2.0f0) #c(1.0f0 -2.0f0))
+
+;; (deftest decf.20
+;;   (let ((x 1))
+;;     (values (decf x #c(0.0d0 2.0d0)) x))
+;;   #c(1.0d0 -2.0d0) #c(1.0d0 -2.0d0))
+
+;; (deftest decf.21
+;;   (let ((x 1))
+;;     (values (decf x #c(0.0l0 -2.0l0)) x))
+;;   #c(1.0l0 2.0l0) #c(1.0l0 2.0l0))
 
 ;;; Test that explicit calls to macroexpand in subforms
 ;;; are done in the correct environment
diff --git a/numbers/expt.lsp b/numbers/expt.lsp
index 50ddde82..e7f341cd 100644
--- a/numbers/expt.lsp
+++ b/numbers/expt.lsp
@@ -95,33 +95,33 @@
         always (eql (expt c 0) 1))
   t)
 
-(deftest expt.8
-  (loop for i = (random 1.0s3)
-        for c = (complex i i)
-        repeat 1000
-        always (eql (expt c 0) #c(1.0s0 0.0s0)))
-  t)
-
-(deftest expt.9
-  (loop for i = (random 1.0f6)
-        for c = (complex i i)
-        repeat 1000
-        always (eql (expt c 0) #c(1.0f0 0.0f0)))
-  t)
-
-(deftest expt.10
-  (loop for i = (random 1.0d10)
-        for c = (complex i i)
-        repeat 1000
-        always (eql (expt c 0) #c(1.0d0 0.0d0)))
-  t)
-
-(deftest expt.11
-  (loop for i = (random 1.0l10)
-        for c = (complex i i)
-        repeat 1000
-        always (eql (expt c 0) #c(1.0l0 0.0l0)))
-  t)
+;; (deftest expt.8
+;;   (loop for i = (random 1.0s3)
+;;         for c = (complex i i)
+;;         repeat 1000
+;;         always (eql (expt c 0) #c(1.0s0 0.0s0)))
+;;   t)
+
+;; (deftest expt.9
+;;   (loop for i = (random 1.0f6)
+;;         for c = (complex i i)
+;;         repeat 1000
+;;         always (eql (expt c 0) #c(1.0f0 0.0f0)))
+;;   t)
+
+;; (deftest expt.10
+;;   (loop for i = (random 1.0d10)
+;;         for c = (complex i i)
+;;         repeat 1000
+;;         always (eql (expt c 0) #c(1.0d0 0.0d0)))
+;;   t)
+
+;; (deftest expt.11
+;;   (loop for i = (random 1.0l10)
+;;         for c = (complex i i)
+;;         repeat 1000
+;;         always (eql (expt c 0) #c(1.0l0 0.0l0)))
+;;   t)
 
 (deftest expt.12
   (loop for x in *numbers*
@@ -138,21 +138,21 @@
         collect x)
   nil)
 
-(deftest expt.14
-  (expt #c(0 2) 2)
-  -4)
+;; (deftest expt.14
+;;   (expt #c(0 2) 2)
+;;   -4)
 
-(deftest expt.15
-  (expt #c(1 1) 2)
-  #c(0 2))
+;; (deftest expt.15
+;;   (expt #c(1 1) 2)
+;;   #c(0 2))
 
-(deftest expt.16
-  (expt #c(1/2 1/3) 3)
-  #c(-1/24 23/108))
+;; (deftest expt.16
+;;   (expt #c(1/2 1/3) 3)
+;;   #c(-1/24 23/108))
 
-(deftest expt.17
-  (expt #c(1 1) -2)
-  #c(0 -1/2))
+;; (deftest expt.17
+;;   (expt #c(1 1) -2)
+;;   #c(0 -1/2))
 
 (deftest expt.18
   (loop
diff --git a/numbers/imagpart.lsp b/numbers/imagpart.lsp
index 0f6aa2c6..05eeb1b2 100644
--- a/numbers/imagpart.lsp
+++ b/numbers/imagpart.lsp
@@ -9,9 +9,9 @@
   (signals-error (imagpart) program-error)
   t)
 
-(deftest imagpart.error.2
-  (signals-error (imagpart #c(1.0 2.0) nil) program-error)
-  t)
+;; (deftest imagpart.error.2
+;;   (signals-error (imagpart #c(1.0 2.0) nil) program-error)
+;;   t)
 
 (deftest imagpart.error.3
   (check-type-error #'imagpart #'numberp)
diff --git a/numbers/incf.lsp b/numbers/incf.lsp
index 28bc3057..17645b78 100644
--- a/numbers/incf.lsp
+++ b/numbers/incf.lsp
@@ -122,25 +122,25 @@
     (values (incf x 0.0l0) x))
   10.0l0 10.0l0)
 
-(deftest incf.18
-  (let ((x 1))
-    (values (incf x #c(0.0s0 0.0s0)) x))
-  #c(1.0s0 0.0s0) #c(1.0s0 0.0s0))
-
-(deftest incf.19
-  (let ((x 1))
-    (values (incf x #c(0.0f0 2.0f0)) x))
-  #c(1.0f0 2.0f0) #c(1.0f0 2.0f0))
-
-(deftest incf.20
-  (let ((x 1))
-    (values (incf x #c(0.0d0 2.0d0)) x))
-  #c(1.0d0 2.0d0) #c(1.0d0 2.0d0))
-
-(deftest incf.21
-  (let ((x 1))
-    (values (incf x #c(0.0l0 -2.0l0)) x))
-  #c(1.0l0 -2.0l0) #c(1.0l0 -2.0l0))
+;; (deftest incf.18
+;;   (let ((x 1))
+;;     (values (incf x #c(0.0s0 0.0s0)) x))
+;;   #c(1.0s0 0.0s0) #c(1.0s0 0.0s0))
+
+;; (deftest incf.19
+;;   (let ((x 1))
+;;     (values (incf x #c(0.0f0 2.0f0)) x))
+;;   #c(1.0f0 2.0f0) #c(1.0f0 2.0f0))
+
+;; (deftest incf.20
+;;   (let ((x 1))
+;;     (values (incf x #c(0.0d0 2.0d0)) x))
+;;   #c(1.0d0 2.0d0) #c(1.0d0 2.0d0))
+
+;; (deftest incf.21
+;;   (let ((x 1))
+;;     (values (incf x #c(0.0l0 -2.0l0)) x))
+;;   #c(1.0l0 -2.0l0) #c(1.0l0 -2.0l0))
 
 ;;; Test that explicit calls to macroexpand in subforms
 ;;; are done in the correct environment
diff --git a/numbers/load.lsp b/numbers/load.lsp
index 9106d578..7f828abe 100644
--- a/numbers/load.lsp
+++ b/numbers/load.lsp
@@ -19,7 +19,7 @@
 (compile-and-load "ANSI-TESTS:AUX;gcd-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/numbers/number-comparison.lsp b/numbers/number-comparison.lsp
index 3954080e..8cd02588 100644
--- a/numbers/number-comparison.lsp
+++ b/numbers/number-comparison.lsp
@@ -94,50 +94,50 @@
   (=t 0 0.0)
   t)
 
-(deftest =.10
-  (=t 0 #c(0 0))
-  t)
+;; (deftest =.10
+;;   (=t 0 #c(0 0))
+;;   t)
 
-(deftest =.11
-  (=t 1 #c(1.0 0.0))
-  t)
+;; (deftest =.11
+;;   (=t 1 #c(1.0 0.0))
+;;   t)
 
 (deftest =.12
   (=t -0.0 0.0)
   t)
 
-(deftest =.13
-  (let ((nums '(0 0.0s0 0.0f0 0.0d0 0.0l0
-                  #c(0.0s0 0.0s0) #c(0.0f0 0.0f0)
-                  #c(0.0d0 0.0d0) #c(0.0l0 0.0l0))))
-    (loop for x in nums
-          append
-          (loop for y in nums
-                unless (= x y)
-                collect (list x y))))
-  nil)
-
-(deftest =.14
-  (let ((nums '(17 17.0s0 17.0f0 17.0d0 17.0l0
-                   #c(17.0s0 0.0s0) #c(17.0f0 0.0f0)
-                   #c(17.0d0 0.0d0) #c(17.0l0 0.0l0))))
-    (loop for x in nums
-          append
-          (loop for y in nums
-                unless (= x y)
-                collect (list x y))))
-  nil)
-
-(deftest =.15
-  (let ((nums '(-17 -17.0s0 -17.0f0 -17.0d0 -17.0l0
-                    #c(-17.0s0 0.0s0) #c(-17.0f0 0.0f0)
-                    #c(-17.0d0 0.0d0) #c(-17.0l0 0.0l0))))
-    (loop for x in nums
-          append
-          (loop for y in nums
-                unless (= x y)
-                collect (list x y))))
-  nil)
+;; (deftest =.13
+;;   (let ((nums '(0 0.0s0 0.0f0 0.0d0 0.0l0
+;;                   #c(0.0s0 0.0s0) #c(0.0f0 0.0f0)
+;;                   #c(0.0d0 0.0d0) #c(0.0l0 0.0l0))))
+;;     (loop for x in nums
+;;           append
+;;           (loop for y in nums
+;;                 unless (= x y)
+;;                 collect (list x y))))
+;;   nil)
+
+;; (deftest =.14
+;;   (let ((nums '(17 17.0s0 17.0f0 17.0d0 17.0l0
+;;                    #c(17.0s0 0.0s0) #c(17.0f0 0.0f0)
+;;                    #c(17.0d0 0.0d0) #c(17.0l0 0.0l0))))
+;;     (loop for x in nums
+;;           append
+;;           (loop for y in nums
+;;                 unless (= x y)
+;;                 collect (list x y))))
+;;   nil)
+
+;; (deftest =.15
+;;   (let ((nums '(-17 -17.0s0 -17.0f0 -17.0d0 -17.0l0
+;;                     #c(-17.0s0 0.0s0) #c(-17.0f0 0.0f0)
+;;                     #c(-17.0d0 0.0d0) #c(-17.0l0 0.0l0))))
+;;     (loop for x in nums
+;;           append
+;;           (loop for y in nums
+;;                 unless (= x y)
+;;                 collect (list x y))))
+;;   nil)
 
 (deftest =.16
   (let ((n 60000) (m 30000))
@@ -305,50 +305,50 @@
   (/= 0 0.0)
   nil)
 
-(deftest /=.10
-  (/= 0 #c(0 0))
-  nil)
+;; (deftest /=.10
+;;   (/= 0 #c(0 0))
+;;   nil)
 
-(deftest /=.11
-  (/= 1 #c(1.0 0.0))
-  nil)
+;; (deftest /=.11
+;;   (/= 1 #c(1.0 0.0))
+;;   nil)
 
 (deftest /=.12
   (/= -0.0 0.0)
   nil)
 
-(deftest /=.13
-  (let ((nums '(0 0.0s0 0.0f0 0.0d0 0.0l0
-                  #c(0.0s0 0.0s0) #c(0.0f0 0.0f0)
-                  #c(0.0d0 0.0d0) #c(0.0l0 0.0l0))))
-    (loop for x in nums
-          append
-          (loop for y in nums
-                when (/= x y)
-                collect (list x y))))
-  nil)
-
-(deftest /=.14
-  (let ((nums '(17 17.0s0 17.0f0 17.0d0 17.0l0
-                   #c(17.0s0 0.0s0) #c(17.0f0 0.0f0)
-                   #c(17.0d0 0.0d0) #c(17.0l0 0.0l0))))
-    (loop for x in nums
-          append
-          (loop for y in nums
-                when (/= x y)
-                collect (list x y))))
-  nil)
-
-(deftest /=.15
-  (let ((nums '(-17 -17.0s0 -17.0f0 -17.0d0 -17.0l0
-                    #c(-17.0s0 0.0s0) #c(-17.0f0 0.0f0)
-                    #c(-17.0d0 0.0d0) #c(-17.0l0 0.0l0))))
-    (loop for x in nums
-          append
-          (loop for y in nums
-                when (/= x y)
-                collect (list x y))))
-  nil)
+;; (deftest /=.13
+;;   (let ((nums '(0 0.0s0 0.0f0 0.0d0 0.0l0
+;;                   #c(0.0s0 0.0s0) #c(0.0f0 0.0f0)
+;;                   #c(0.0d0 0.0d0) #c(0.0l0 0.0l0))))
+;;     (loop for x in nums
+;;           append
+;;           (loop for y in nums
+;;                 when (/= x y)
+;;                 collect (list x y))))
+;;   nil)
+
+;; (deftest /=.14
+;;   (let ((nums '(17 17.0s0 17.0f0 17.0d0 17.0l0
+;;                    #c(17.0s0 0.0s0) #c(17.0f0 0.0f0)
+;;                    #c(17.0d0 0.0d0) #c(17.0l0 0.0l0))))
+;;     (loop for x in nums
+;;           append
+;;           (loop for y in nums
+;;                 when (/= x y)
+;;                 collect (list x y))))
+;;   nil)
+
+;; (deftest /=.15
+;;   (let ((nums '(-17 -17.0s0 -17.0f0 -17.0d0 -17.0l0
+;;                     #c(-17.0s0 0.0s0) #c(-17.0f0 0.0f0)
+;;                     #c(-17.0d0 0.0d0) #c(-17.0l0 0.0l0))))
+;;     (loop for x in nums
+;;           append
+;;           (loop for y in nums
+;;                 when (/= x y)
+;;                 collect (list x y))))
+;;   nil)
 
 (deftest /=.17
   (loop for x in '(1.0s0 1.0f0 1.0d0 1.0l0)
@@ -1647,50 +1647,50 @@
 ;;; Test that explicit calls to macroexpand in subforms
 ;;; are done in the correct environment
 
-(deftest =.env.1
-  (macrolet ((%m (z) z))
-            (mapcar 'notnot
-                    (list (= (expand-in-current-env (%m 0)))
-                          (= 1 (expand-in-current-env (%m 1)))
-                          (= (expand-in-current-env (%m 2)) 2)
-                          (= (expand-in-current-env (%m 3))
-                             (expand-in-current-env (%m 3)))
-                          (= (expand-in-current-env (%m #c(1 2)))
-                             (expand-in-current-env (%m #c(1 2))))
-
-                          (= 1 (expand-in-current-env (%m 2.0)))
-                          (= (expand-in-current-env (%m 2)) 2/3)
-                          (= (expand-in-current-env (%m 4))
-                             (expand-in-current-env (%m 5)))
-
-                          (= (expand-in-current-env (%m 0)) 0 0)
-                          (= 0 (expand-in-current-env (%m 0)) 0)
-                          (= 0 0 (expand-in-current-env (%m 0)))
-                          )))
-  (t t t t t nil nil nil t t t))
-
-
-(deftest /=.env.1
-  (macrolet ((%m (z) z))
-            (mapcar 'notnot
-                    (list (/= (expand-in-current-env (%m 0)))
-                          (/= 1 (expand-in-current-env (%m 1)))
-                          (/= (expand-in-current-env (%m 2)) 2)
-                          (/= (expand-in-current-env (%m 3))
-                              (expand-in-current-env (%m 3)))
-                          (/= (expand-in-current-env (%m #c(1 2)))
-                              (expand-in-current-env (%m #c(1 2))))
-
-                          (/= 1 (expand-in-current-env (%m 2.0)))
-                          (/= (expand-in-current-env (%m 2)) 2/3)
-                          (/= (expand-in-current-env (%m 4))
-                              (expand-in-current-env (%m 5)))
-
-                          (/= (expand-in-current-env (%m 2)) 0 1)
-                          (/= 0 (expand-in-current-env (%m 2)) 1)
-                          (/= 0 1 (expand-in-current-env (%m 2)))
-                          )))
-  (t nil nil nil nil t t t t t t))
+;; (deftest =.env.1
+;;   (macrolet ((%m (z) z))
+;;             (mapcar 'notnot
+;;                     (list (= (expand-in-current-env (%m 0)))
+;;                           (= 1 (expand-in-current-env (%m 1)))
+;;                           (= (expand-in-current-env (%m 2)) 2)
+;;                           (= (expand-in-current-env (%m 3))
+;;                              (expand-in-current-env (%m 3)))
+;;                           (= (expand-in-current-env (%m #c(1 2)))
+;;                              (expand-in-current-env (%m #c(1 2))))
+
+;;                           (= 1 (expand-in-current-env (%m 2.0)))
+;;                           (= (expand-in-current-env (%m 2)) 2/3)
+;;                           (= (expand-in-current-env (%m 4))
+;;                              (expand-in-current-env (%m 5)))
+
+;;                           (= (expand-in-current-env (%m 0)) 0 0)
+;;                           (= 0 (expand-in-current-env (%m 0)) 0)
+;;                           (= 0 0 (expand-in-current-env (%m 0)))
+;;                           )))
+;;   (t t t t t nil nil nil t t t))
+
+
+;; (deftest /=.env.1
+;;   (macrolet ((%m (z) z))
+;;             (mapcar 'notnot
+;;                     (list (/= (expand-in-current-env (%m 0)))
+;;                           (/= 1 (expand-in-current-env (%m 1)))
+;;                           (/= (expand-in-current-env (%m 2)) 2)
+;;                           (/= (expand-in-current-env (%m 3))
+;;                               (expand-in-current-env (%m 3)))
+;;                           (/= (expand-in-current-env (%m #c(1 2)))
+;;                               (expand-in-current-env (%m #c(1 2))))
+
+;;                           (/= 1 (expand-in-current-env (%m 2.0)))
+;;                           (/= (expand-in-current-env (%m 2)) 2/3)
+;;                           (/= (expand-in-current-env (%m 4))
+;;                               (expand-in-current-env (%m 5)))
+
+;;                           (/= (expand-in-current-env (%m 2)) 0 1)
+;;                           (/= 0 (expand-in-current-env (%m 2)) 1)
+;;                           (/= 0 1 (expand-in-current-env (%m 2)))
+;;                           )))
+;;   (t nil nil nil nil t t t t t t))
 
 (deftest <.env.1
   (macrolet ((%m (z) z))
diff --git a/numbers/phase.lsp b/numbers/phase.lsp
index 40c4cee4..e5744be6 100644
--- a/numbers/phase.lsp
+++ b/numbers/phase.lsp
@@ -53,70 +53,70 @@
   (eqlt (phase -1/2) (coerce pi 'single-float))
   t)
 
-(deftest phase.10
-  (let ((p1 (phase #c(0 1)))
-        (p2 (phase #c(0.0f0 1.0f0))))
-    (and (eql p1 p2)
-         (approx= p1 (coerce (/ pi 2) 'single-float))))
-  t)
-
-(deftest phase.11
-  (let ((p (phase #c(0.0d0 1.0d0))))
-    (approx= p (coerce (/ pi 2) 'double-float)))
-  t)
-
-(deftest phase.12
-  (let ((p (phase #c(0.0s0 1.0s0))))
-    (approx= p (coerce (/ pi 2) 'single-float)))
-  t)
-
-(deftest phase.13
-  (let ((p (phase #c(0.0l0 1.0l0))))
-    (approx= p (/ pi 2)))
-  t)
-
-(deftest phase.14
-  (let ((p1 (phase #c(1 1)))
-        (p2 (phase #c(1.0f0 1.0f0))))
-    (and (eql p1 p2)
-         (approx= p1 (coerce (/ pi 4) 'single-float)
-                  (* 2 single-float-epsilon))))
-  t)
-
-(deftest phase.15
-  (let ((p (phase #c(1.0d0 1.0d0))))
-    (approx= p (coerce (/ pi 4) 'double-float)
-             (* 2 double-float-epsilon)))
-  t)
-
-(deftest phase.16
-  (let ((p (phase #c(1.0s0 1.0s0))))
-    (approx= p (coerce (/ pi 4) 'single-float)
-             (* 2 short-float-epsilon)))
-  t)
-
-(deftest phase.17
-  (let ((p (phase #c(1.0l0 1.0l0))))
-    (approx= p (/ pi 4) (* 2 long-float-epsilon)))
-  t)
+;; (deftest phase.10
+;;   (let ((p1 (phase #c(0 1)))
+;;         (p2 (phase #c(0.0f0 1.0f0))))
+;;     (and (eql p1 p2)
+;;          (approx= p1 (coerce (/ pi 2) 'single-float))))
+;;   t)
+
+;; (deftest phase.11
+;;   (let ((p (phase #c(0.0d0 1.0d0))))
+;;     (approx= p (coerce (/ pi 2) 'double-float)))
+;;   t)
+
+;; (deftest phase.12
+;;   (let ((p (phase #c(0.0s0 1.0s0))))
+;;     (approx= p (coerce (/ pi 2) 'single-float)))
+;;   t)
+
+;; (deftest phase.13
+;;   (let ((p (phase #c(0.0l0 1.0l0))))
+;;     (approx= p (/ pi 2)))
+;;   t)
+
+;; (deftest phase.14
+;;   (let ((p1 (phase #c(1 1)))
+;;         (p2 (phase #c(1.0f0 1.0f0))))
+;;     (and (eql p1 p2)
+;;          (approx= p1 (coerce (/ pi 4) 'single-float)
+;;                   (* 2 single-float-epsilon))))
+;;   t)
+
+;; (deftest phase.15
+;;   (let ((p (phase #c(1.0d0 1.0d0))))
+;;     (approx= p (coerce (/ pi 4) 'double-float)
+;;              (* 2 double-float-epsilon)))
+;;   t)
+
+;; (deftest phase.16
+;;   (let ((p (phase #c(1.0s0 1.0s0))))
+;;     (approx= p (coerce (/ pi 4) 'single-float)
+;;              (* 2 short-float-epsilon)))
+;;   t)
+
+;; (deftest phase.17
+;;   (let ((p (phase #c(1.0l0 1.0l0))))
+;;     (approx= p (/ pi 4) (* 2 long-float-epsilon)))
+;;   t)
 
 ;;; Negative zeros
-(deftest phase.18
-  (or (eqlt -0.0s0 0.0s0)
-      (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'short-float)))
-  t)
-
-(deftest phase.19
-  (or (eqlt -0.0f0 0.0f0)
-      (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'single-float)))
-  t)
-
-(deftest phase.20
-  (or (eqlt -0.0d0 0.0d0)
-      (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'double-float)))
-  t)
-
-(deftest phase.21
-  (or (eqlt -0.0l0 0.0l0)
-      (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'long-float)))
-  t)
+;; (deftest phase.18
+;;   (or (eqlt -0.0s0 0.0s0)
+;;       (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'short-float)))
+;;   t)
+
+;; (deftest phase.19
+;;   (or (eqlt -0.0f0 0.0f0)
+;;       (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'single-float)))
+;;   t)
+
+;; (deftest phase.20
+;;   (or (eqlt -0.0d0 0.0d0)
+;;       (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'double-float)))
+;;   t)
+
+;; (deftest phase.21
+;;   (or (eqlt -0.0l0 0.0l0)
+;;       (approx= (phase #c(-1.0 -0.0)) (coerce (- pi) 'long-float)))
+;;   t)
diff --git a/numbers/realp.lsp b/numbers/realp.lsp
index affb15be..73c48b95 100644
--- a/numbers/realp.lsp
+++ b/numbers/realp.lsp
@@ -25,9 +25,9 @@
   (notnot-mv (realp 0.0))
   t)
   
-(deftest realp.3
-  (realp #c(1 2))
-  nil)
+;; (deftest realp.3
+;;   (realp #c(1 2))
+;;   nil)
 
 (deftest realp.4
   (notnot-mv (realp 17/13))
diff --git a/numbers/realpart.lsp b/numbers/realpart.lsp
index cac22d60..7db4238d 100644
--- a/numbers/realpart.lsp
+++ b/numbers/realpart.lsp
@@ -9,9 +9,9 @@
   (signals-error (realpart) program-error)
   t)
 
-(deftest realpart.error.2
-  (signals-error (realpart #c(1.0 2.0) nil) program-error)
-  t)
+;; (deftest realpart.error.2
+;;   (signals-error (realpart #c(1.0 2.0) nil) program-error)
+;;   t)
 
 (deftest realpart.error.3
   (check-type-error #'realpart #'numberp)
diff --git a/numbers/signum.lsp b/numbers/signum.lsp
index 39edf514..d76d274e 100644
--- a/numbers/signum.lsp
+++ b/numbers/signum.lsp
@@ -87,19 +87,19 @@
    collect (list c4 (signum c4)))
   nil)
 
-(deftest signum.8
-  (let* ((c (complex 0 1))
-         (s (signum c)))
-    (or (eqlt c s)
-        (eqlt s #c(0.0 1.0))))
-  t)
-
-(deftest signum.9
-  (let* ((c (complex 0 -1))
-         (s (signum c)))
-    (or (eqlt c s)
-        (eqlt s #c(0.0 -1.0))))
-  t)
+;; (deftest signum.8
+;;   (let* ((c (complex 0 1))
+;;          (s (signum c)))
+;;     (or (eqlt c s)
+;;         (eqlt s #c(0.0 1.0))))
+;;   t)
+
+;; (deftest signum.9
+;;   (let* ((c (complex 0 -1))
+;;          (s (signum c)))
+;;     (or (eqlt c s)
+;;         (eqlt s #c(0.0 -1.0))))
+;;   t)
 
 (deftest signum.10
   (let* ((c (complex 3/5 4/5))
diff --git a/numbers/sqrt.lsp b/numbers/sqrt.lsp
index a78cd75c..7f5d97d1 100644
--- a/numbers/sqrt.lsp
+++ b/numbers/sqrt.lsp
@@ -60,11 +60,11 @@
 ;;;      (=t result (float (ash 1 5000) result))))
 ;;;  t)
 
-(deftest sqrt.7
-  (let ((result (sqrt -1)))
-    (or (eqlt result #c(0 1))
-        (eqlt result #c(0.0 1.0))))
-  t)
+;; (deftest sqrt.7
+;;   (let ((result (sqrt -1)))
+;;     (or (eqlt result #c(0 1))
+;;         (eqlt result #c(0.0 1.0))))
+;;   t)
 
 (deftest sqrt.8
   (loop for x in *floats*
diff --git a/objects/load.lsp b/objects/load.lsp
index 8c7692c5..48f59fcc 100644
--- a/objects/load.lsp
+++ b/objects/load.lsp
@@ -5,7 +5,7 @@
 
 (compile-and-load "ANSI-TESTS:AUX;defclass-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/packages/load.lsp b/packages/load.lsp
index 9245c97d..dcfb2e3d 100644
--- a/packages/load.lsp
+++ b/packages/load.lsp
@@ -6,7 +6,7 @@
 (compile-and-load "ANSI-TESTS:AUX;packages00-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;package-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/pathnames/load.lsp b/pathnames/load.lsp
index 0bd8aa8c..b98ff2e5 100644
--- a/pathnames/load.lsp
+++ b/pathnames/load.lsp
@@ -1,7 +1,7 @@
 ;;;; Tests for pathnames and logical pathnames
 (compile-and-load "ANSI-TESTS:AUX;pathnames-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/printer/load.lsp b/printer/load.lsp
index 4a65cc39..21dca2f3 100644
--- a/printer/load.lsp
+++ b/printer/load.lsp
@@ -2,7 +2,7 @@
 (compile-and-load "ANSI-TESTS:AUX;printer-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;backquote-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/reader/load.lsp b/reader/load.lsp
index f1ae8a11..03939f94 100644
--- a/reader/load.lsp
+++ b/reader/load.lsp
@@ -1,7 +1,7 @@
 ;;;; Tests of the reader
 (compile-and-load "ANSI-TESTS:AUX;reader-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/sequences/load.lsp b/sequences/load.lsp
index ea22f233..c8c25dae 100644
--- a/sequences/load.lsp
+++ b/sequences/load.lsp
@@ -4,7 +4,7 @@
 (compile-and-load "ANSI-TESTS:AUX;remove-aux.lsp")
 (compile-and-load "ANSI-TESTS:AUX;remove-duplicates-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/streams/load.lsp b/streams/load.lsp
index 83c6da96..1c1a36a3 100644
--- a/streams/load.lsp
+++ b/streams/load.lsp
@@ -3,7 +3,7 @@
 ;;;; Created:  Tue Jan 13 19:38:10 2004
 ;;;; Contains: Load files containing tests for section 21 (streams)
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/strings/load.lsp b/strings/load.lsp
index 3647cb69..6855b62e 100644
--- a/strings/load.lsp
+++ b/strings/load.lsp
@@ -1,7 +1,7 @@
 ;;; Tests of strings
 (compile-and-load "ANSI-TESTS:AUX;string-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/structures/load.lsp b/structures/load.lsp
index f78244f9..7c62b0d9 100644
--- a/structures/load.lsp
+++ b/structures/load.lsp
@@ -1,6 +1,6 @@
 ;;; Tests of structures
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/structures/structure-00.lsp b/structures/structure-00.lsp
index b0b26ac0..e93d0053 100644
--- a/structures/structure-00.lsp
+++ b/structures/structure-00.lsp
@@ -4,7 +4,7 @@
 ;;;; Contains: Common code for creating structure tests
 
 (in-package :cl-test)
-(declaim (optimize (safety 3)))
+;; (declaim (optimize (safety 3)))
 
 (defun make-struct-test-name (structure-name n)
   ;; (declare (type (or string symbol character) structure-name)
diff --git a/structures/structures-01.lsp b/structures/structures-01.lsp
index e5c67c72..b77a41ab 100644
--- a/structures/structures-01.lsp
+++ b/structures/structures-01.lsp
@@ -4,7 +4,7 @@
 ;;;; Contains: Test code for structures, part 01
 
 (in-package :cl-test)
-(declaim (optimize (safety 3)))
+;; (declaim (optimize (safety 3)))
 
 ;;; Tests for structures
 ;;;
diff --git a/structures/structures-02.lsp b/structures/structures-02.lsp
index f215f167..883690e2 100644
--- a/structures/structures-02.lsp
+++ b/structures/structures-02.lsp
@@ -4,7 +4,7 @@
 ;;;; Contains: Test code for structures, part 02
 
 (in-package :cl-test)
-(declaim (optimize (safety 3)))
+;; (declaim (optimize (safety 3)))
 
 ;; Test initializers for fields
 
diff --git a/symbols/cl-symbols.lsp b/symbols/cl-symbols.lsp
index d1f598b0..44dea4a5 100644
--- a/symbols/cl-symbols.lsp
+++ b/symbols/cl-symbols.lsp
@@ -6,7 +6,7 @@
 
 (in-package :cl-test)
 
-(declaim (optimize (safety 3)))
+;; (declaim (optimize (safety 3)))
 
 ;;; Test for the presence of every darned symbol
 ;;; the standard says should be in the CL package.
diff --git a/symbols/load.lsp b/symbols/load.lsp
index 5ff13d07..0de18107 100644
--- a/symbols/load.lsp
+++ b/symbols/load.lsp
@@ -1,7 +1,7 @@
 ;;; Tests of symbols
 (compile-and-load "ANSI-TESTS:AUX;cl-symbols-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname
diff --git a/types-and-classes/load.lsp b/types-and-classes/load.lsp
index 94ed31df..210882ed 100644
--- a/types-and-classes/load.lsp
+++ b/types-and-classes/load.lsp
@@ -1,7 +1,7 @@
 ;;; Tests of types and classes
 (compile-and-load "ANSI-TESTS:AUX;types-aux.lsp")
 
-(in-package #:cl-test)
+(in-package :cl-test)
 
 (let ((*default-pathname-defaults*
        (make-pathname