[armedbear-cvs] r14245 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Nov 15 04:33:00 2012
New Revision: 14245

Log:
abcl-test: Restore original *PRINT-CASE*.

Also seemingly "fixes" about four failing tests.

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

Modified: trunk/abcl/test/lisp/abcl/compiler-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/compiler-tests.lisp	Thu Nov 15 04:32:58 2012	(r14244)
+++ trunk/abcl/test/lisp/abcl/compiler-tests.lisp	Thu Nov 15 04:33:00 2012	(r14245)
@@ -447,15 +447,17 @@
 #+abcl
 (deftest compiler.1 
     (let ((tmpfile (ext::make-temp-file))
+          (original-print-case *print-case*)
           (forms `((in-package :cl-user)
-                     (eval-when (:compile-toplevel :load-toplevel :execute)
-                       (setf *print-case* ':downcase))
-                     (defstruct rec a b))))
+                   (eval-when (:compile-toplevel :load-toplevel :execute)
+                     (setf *print-case* ':downcase))
+                   (defstruct rec a b))))
       (with-open-file (s tmpfile :direction :output)
         (dolist (form forms)
           (write form :stream s)))
       (let ((result (compile-file tmpfile)))
         (delete-file tmpfile)
+        (setf *print-case* original-print-case)
         (not (null result))))
   t)
 
@@ -498,4 +500,4 @@
         (ignore-errors
           (compile nil '(lambda (&key args &optional x))))
       (typep error 'program-error))
-  t)
\ No newline at end of file
+  t)