Changeset 13380
- Timestamp:
- 07/08/11 08:40:37 (11 years ago)
- Location:
- trunk/abcl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/dump-form.lisp
r13274 r13380 135 135 (*print-pretty* nil) 136 136 (*print-radix* nil) 137 #+nil ;; XXX Some types (q.v. (UNSIGNED-BYTE 32)) don't have a 138 ;; readable syntax because they don't roundtrip to the same 139 ;; type, but still return a Lisp object that "works", albeit 140 ;; perhaps inefficiently when READ from their DUMP-FORM 141 ;; representation. 137 142 (*print-readably* t) 138 143 (*print-right-margin* nil) -
trunk/abcl/test/lisp/abcl/compiler-tests.lisp
r13262 r13380 444 444 :results #.most-positive-java-long) 445 445 446 ;;; ticket #147 447 (deftest compiler.1 448 (let ((tmpfile (ext::make-temp-file)) 449 (forms `((in-package :cl-user) 450 (eval-when (:compile-toplevel :load-toplevel :execute) 451 (setf *print-case* ':downcase)) 452 (defstruct rec a b)))) 453 (with-open-file (s tmpfile :direction :output) 454 (dolist (form forms) 455 (write form :stream s))) 456 (let ((result (compile-file tmpfile))) 457 (delete-file tmpfile) 458 (not (null result)))) 459 t) 460 461 ;;; ticket #156 462 (deftest compiler.2 463 (let ((tmpfile (ext::make-temp-file)) 464 (line "(defconstant a #.(make-array '(8 256) 465 :element-type '(unsigned-byte 32) :initial-element 0))")) 466 (with-open-file (s tmpfile :direction :output) 467 (format s "~A" line)) 468 (let ((result (compile-file tmpfile))) 469 #+nil (delete-file tmpfile) 470 (not (null result)))) 471 t) 472 473 474 475 476 477 478 479 480
Note: See TracChangeset
for help on using the changeset viewer.