Changeset 13262

Timestamp:

04/04/11 12:30:54 (12 years ago)

Author:

Mark Evenson

Message:

Fix UNUSED.2 for ABCL.

Allow CLISP to compile compiler-tests.lisp.

File:

• trunk/abcl/test/lisp/abcl/compiler-tests.lisp (modified) (15 diffs)

trunk/abcl/test/lisp/abcl/compiler-tests.lisp

@@ -67 +67 @@
              (third list)))
      (unused.2)))
-  #+(or abcl allegro) (unused.2 t   nil)
-  #+clisp             (unused.2 1   nil)
-  #+(or cmu sbcl)     (unused.2 nil nil)
-  #+lispworks         (unused.2 t   nil)
+  #+allegro            (unused.2 t   nil)
+  #+clisp              (unused.2 1   nil)
+  #+(or cmu sbcl abcl) (unused.2 nil nil)
+  #+lispworks          (unused.2 t   nil)
   17)
 
@@ -105 +105 @@
 #+allegro (pushnew 'plus.3 *expected-failures*)
 
+#-clisp
 (define-compiler-test plus.4
   (lambda (x y)
@@ -119 +120 @@
   :results #.(- most-negative-fixnum))
 
+#-clisp
 (define-compiler-test minus.2
   (lambda (x)
@@ -126 +128 @@
   :results #.(- most-negative-java-long))
 
+#-clisp
 (define-compiler-test minus.3
   (lambda (x y)
@@ -133 +136 @@
   :results #.(- most-negative-java-long most-positive-java-long))
 
+#-clisp
 (define-compiler-test logxor-minus.1
   (lambda (x)
@@ -140 +144 @@
   :results -9223372036854775792)
 
+#-clisp
 (deftest times.1
   (progn
@@ -256 +261 @@
   3)
 
+#-clisp
 (deftest bignum-constant.1
   (progn
@@ -269 +275 @@
   #.most-positive-java-long)
 
+#-clisp
 (deftest bignum-constant.2
   (progn
@@ -282 +289 @@
   #.(1+ most-positive-java-long))
 
+#-clisp
 (deftest bignum-constant.3
   (progn
@@ -295 +303 @@
   #.most-negative-java-long)
 
+#-clisp
 (deftest bignum-constant.4
   (progn
@@ -388 +397 @@
   :results #.most-negative-fixnum)
 
+#-clisp
 (define-compiler-test min.3
   (lambda (x y)
@@ -395 +405 @@
   :results 3)
 
+#-clisp
 (define-compiler-test min.4
   (lambda (x y)
@@ -409 +420 @@
   :results 4)
 
+#-clisp
 (define-compiler-test max.2
   (lambda (x y)
@@ -416 +428 @@
   :results #.most-positive-fixnum)
 
+#-clisp
 (define-compiler-test max.3
   (lambda (x y)
@@ -423 +436 @@
   :results 4)
 
+#-clisp
 (define-compiler-test max.4
   (lambda (x y)