Changeset 14245

Timestamp:

11/15/12 12:33:00 (8 years ago)

Author:

Mark Evenson

Message:

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

Also seemingly "fixes" about four failing tests.

File:

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

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

@@ -448 +448 @@
 (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)
@@ -457 +458 @@
       (let ((result (compile-file tmpfile)))
         (delete-file tmpfile)
+        (setf *print-case* original-print-case)
         (not (null result))))
   t)