Eliminate the separately maintained Lisp system version number.

[sod] / src / test-base.lisp

diff --git a/src/test-base.lisp b/src/test-base.lisp
index f7210ab411bf9fd7ba158e966e046b66f37092c6..203f91851b3b88a733fbaa76a2059ef950fda62b 100644 (file)
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -55,17 +55,6 @@ (defun assert-princ (object string)
 (defclass base-test (test-case) ())
 (add-test *sod-test-suite* (get-suite base-test))
 
-(export '*build-version*)
-(defvar *build-version* nil)
-
-(def-test-method check-version ((test base-test) :run nil)
-  (unless (or (null *build-version*)
-             (and (>= (length *build-version*) (length *sod-version*))
-                  (string= *build-version* *sod-version*
-                           :end1 (length *sod-version*))))
-    (failure "Build version ~A doesn't match package version ~A."
-            *build-version* *sod-version*)))
-
 (defun run-tests (&optional which)
   (textui-test-run (acond
                     ((null which) *sod-test-suite*)