21 lines
713 B
Plaintext
21 lines
713 B
Plaintext
;;;; Regression tests for Lyric FASDUMP patches
|
|
|
|
;;; AR 8655: FASL dumps some integers incorrectly
|
|
|
|
(do-test ("AR 8655: Dump integers s.t. (mod (integer-length x) 8) = 0"
|
|
:before
|
|
(let ((fasl::check-table-size nil))
|
|
(fasl:with-open-handle (fh "{core}test.dfasl")
|
|
(princ "Test dumping large integers" (fasl:begin-text fh))
|
|
(fasl:begin-block fh)
|
|
(fasl:dump-value fh (expt 2 31))))
|
|
:after (ignore-errors (il:delfile "{core}test.dfasl")))
|
|
(with-open-file (s "{core}test.dfasl")
|
|
(let ((once nil) (ok nil))
|
|
(fasl:process-file s :item-fn
|
|
#'(lambda (x)
|
|
(if once (setf ok nil) (progn (setf once t ok (eql x (expt 2 31)))))))
|
|
ok)
|
|
)
|
|
)
|