Changeset 14245


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/compiler-tests.lisp

    r14146 r14245  
    448448(deftest compiler.1
    449449    (let ((tmpfile (ext::make-temp-file))
     450          (original-print-case *print-case*)
    450451          (forms `((in-package :cl-user)
    451                      (eval-when (:compile-toplevel :load-toplevel :execute)
    452                        (setf *print-case* ':downcase))
    453                      (defstruct rec a b))))
     452                   (eval-when (:compile-toplevel :load-toplevel :execute)
     453                     (setf *print-case* ':downcase))
     454                   (defstruct rec a b))))
    454455      (with-open-file (s tmpfile :direction :output)
    455456        (dolist (form forms)
     
    457458      (let ((result (compile-file tmpfile)))
    458459        (delete-file tmpfile)
     460        (setf *print-case* original-print-case)
    459461        (not (null result))))
    460462  t)
Note: See TracChangeset for help on using the changeset viewer.