Commit ce325a3d authored by pfdietz's avatar pfdietz
Browse files

Modified to run under Lispworks, which unfortunately already had a package...

Modified to run under Lispworks, which unfortunately already had a package (nick)named RT.  Changed the regression test package to be REGRESSION-TEST, and make the RT nickname be available only with #-lispworks.  Removed a bunch of gratuitous use-package forms.  Added lispworks binary filenames to .cvsignore and make clean.  Added a test to MAKE-SYMBOL that illustrates a place where Lispworks is noncomplant (this is related to the failure on MAKE-SYMBOL.ERROR.8)
parent ffabd0cb
......@@ -4,7 +4,6 @@
;;;; Contains: Aux. functions for CL-TEST
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......@@ -287,7 +286,7 @@ the condition to go uncaught if it cannot be classified."
(muffle-warning))))
(proclaim '(optimize (safety 3)))
(classify-error*
(if rt::*compile-tests*
(if regression-test::*compile-tests*
(funcall (compile nil `(lambda ()
(declare (optimize (safety 3)))
,form)))
......
......@@ -5,7 +5,6 @@
;;;; and symbol-related functions
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......@@ -1103,27 +1102,27 @@
;;; symbol-name
(deftest symbol-name.1
(safe-symbol-name '|ABCD|)
(symbol-name '|ABCD|)
"ABCD")
(deftest symbol-name.2
(safe-symbol-name '|1234abcdABCD|)
(symbol-name '|1234abcdABCD|)
"1234abcdABCD")
(deftest symbol-name.3
(safe-symbol-name 1)
(classify-error (symbol-name 1))
type-error)
(deftest symbol-name.4
(safe-symbol-name '(a))
(classify-error (symbol-name '(a)))
type-error)
(deftest symbol-name.5
(safe-symbol-name "ABCDE")
(classify-error (symbol-name "ABCDE"))
type-error)
(deftest symbol-name.6
(safe-symbol-name 12913.0213)
(classify-error (symbol-name 12913.0213))
type-error)
(deftest symbol-name.7
......@@ -1179,7 +1178,7 @@
nil)
(deftest make-symbol.10
(symbol-name (safe-make-symbol ""))
(symbol-name (make-symbol ""))
"")
(deftest make-symbol.order.1
......@@ -1190,35 +1189,35 @@
"ABC" 1)
(deftest make-symbol.error.1
(safe-make-symbol nil)
(classify-error (make-symbol nil))
type-error)
(deftest make-symbol.error.2
(safe-make-symbol 'a)
(classify-error (make-symbol 'a))
type-error)
(deftest make-symbol.error.3
(safe-make-symbol 1)
(classify-error (make-symbol 1))
type-error)
(deftest make-symbol.error.4
(safe-make-symbol -1)
(classify-error (make-symbol -1))
type-error)
(deftest make-symbol.error.5
(safe-make-symbol 1.213)
(classify-error (make-symbol 1.213))
type-error)
(deftest make-symbol.error.6
(safe-make-symbol -1312.2)
(classify-error (make-symbol -1312.2))
type-error)
(deftest make-symbol.error.7
(safe-make-symbol #\w)
(classify-error (make-symbol #\w))
type-error)
(deftest make-symbol.error.8
(safe-make-symbol '(a))
(classify-error (make-symbol '(a)))
type-error)
(deftest make-symbol.error.9
......@@ -1229,6 +1228,10 @@
(classify-error (make-symbol "a" "a"))
program-error)
(deftest make-symbol.error.11
(classify-error (make-symbol '(#\a #\b #\c)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; copy-symbol
......
......@@ -4,7 +4,7 @@
;;;; Contains: CL test case package definition
(defpackage :cl-test
(:use :cl :rt)
(:use :cl :regression-test)
#+gcl (:use defpackage)
(:nicknames)
(:import-from "COMMON-LISP-USER" "COMPILE-AND-LOAD" "==>")
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 1
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 2
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 3
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 4
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 5
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 6
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 7
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,6 @@
;;;; Contains: Testing of CL Features related to "CONS", part 8
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 9
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 10
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 11
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 12
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 13
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 14
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 15
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 16
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
......@@ -4,7 +4,7 @@
;;;; Contains: Testing of CL Features related to "CONS", part 17
(in-package :cl-test)
(use-package :rt)
(declaim (optimize (safety 3)))
(defun rev-assoc-list (x)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment