Changeset 14245
- Timestamp:
- 11/15/12 12:33:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/compiler-tests.lisp
r14146 r14245 448 448 (deftest compiler.1 449 449 (let ((tmpfile (ext::make-temp-file)) 450 (original-print-case *print-case*) 450 451 (forms `((in-package :cl-user) 451 452 453 452 (eval-when (:compile-toplevel :load-toplevel :execute) 453 (setf *print-case* ':downcase)) 454 (defstruct rec a b)))) 454 455 (with-open-file (s tmpfile :direction :output) 455 456 (dolist (form forms) … … 457 458 (let ((result (compile-file tmpfile))) 458 459 (delete-file tmpfile) 460 (setf *print-case* original-print-case) 459 461 (not (null result)))) 460 462 t)
Note: See TracChangeset
for help on using the changeset viewer.