Commit 279ebb9c authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

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

Also seemingly "fixes" about four failing tests.
parent ad00eb92
......@@ -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)
Markdown is supported
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