From 9f8aae24d5ee5e9af7c05b3a707469fa23fb86ca Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Sat, 18 Feb 2017 10:15:57 -0500
Subject: [PATCH] Delete :sb-test feature. Always do those tests

---
 base-target-features.lisp-expr | 7 -------
 make-host-1.lisp               | 7 +++----
 make-host-2.lisp               | 3 +--
 src/code/pred.lisp             | 1 -
 4 files changed, 4 insertions(+), 14 deletions(-)

diff --git a/base-target-features.lisp-expr b/base-target-features.lisp-expr
index fe9fed4bf..8c7ecd031 100644
--- a/base-target-features.lisp-expr
+++ b/base-target-features.lisp-expr
@@ -70,13 +70,6 @@
  ;; the executable I'm running.
  :sb-doc
 
- ;; Do regression and other tests when building the system. You might
- ;; or might not want this if you're not a developer, depending on how
- ;; paranoid you are. You probably do want it if you are a developer.
- ;; This test does not affect the target system (in much the same way
- ;; as :sb-after-xc-core, below).
- :sb-test
-
  ;; Make more debugging information available (for debugging SBCL
  ;; itself). If you aren't hacking or troubleshooting SBCL itself,
  ;; you probably don't want this set.
diff --git a/make-host-1.lisp b/make-host-1.lisp
index af48eb561..d7e8fedf9 100644
--- a/make-host-1.lisp
+++ b/make-host-1.lisp
@@ -66,10 +66,9 @@
 ;;; Let's check that the type system, and various other things, are
 ;;; reasonably sane. (It's easy to spend a long time wandering around
 ;;; confused trying to debug cross-compilation if it isn't.)
- (when (find :sb-test *shebang-features*)
-   (load "tests/type.before-xc.lisp")
-   (load "tests/info.before-xc.lisp")
-   (load "tests/vm.before-xc.lisp"))
+ (load "tests/type.before-xc.lisp")
+ (load "tests/info.before-xc.lisp")
+ (load "tests/vm.before-xc.lisp")
 ;; When building on a slow host using a slow Lisp,
 ;; the wait time in slurp-ucd seems interminable - over a minute.
 ;; Compiling seems to help a bit, but maybe it's my imagination.
diff --git a/make-host-2.lisp b/make-host-2.lisp
index cf8f481d2..c936c3410 100644
--- a/make-host-2.lisp
+++ b/make-host-2.lisp
@@ -203,8 +203,7 @@ Sample output
 ;;; Let's check that the type system was reasonably sane. (It's easy
 ;;; to spend a long time wandering around confused trying to debug
 ;;; cold init if it wasn't.)
-(when (position :sb-test *shebang-features*)
-  (load "tests/type.after-xc.lisp"))
+(load "tests/type.after-xc.lisp")
 
 ;;; If you're experimenting with the system under a cross-compilation
 ;;; host which supports CMU-CL-style SAVE-LISP, this can be a good
diff --git a/src/code/pred.lisp b/src/code/pred.lisp
index 4eab17020..daa41f91b 100644
--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -492,7 +492,6 @@ length and have identical components. Other arrays must be EQ to be EQUAL."
         (t nil)))
 
 (/show0 "about to do test cases in pred.lisp")
-#!+sb-test
 (let ((test-cases `((0.0 ,(load-time-value (make-unportable-float :single-float-negative-zero)) t)
                     (0.0 1.0 nil)
                     (#c(1 0) #c(1.0 0.0) t)
-- 
2.11.4.GIT