13 lines
405 B
Plaintext
13 lines
405 B
Plaintext
;; AR 8136 test
|
|
;; Filed as {ERIS}<LISPCORE>TEST>CMLSTREAMS>AR8136.TEST
|
|
;; By Peter Reidy
|
|
;; Verify that a concatenated stream is readable even when the first ends with whitespace.
|
|
(do-test-group AR8136
|
|
:before (test-setq
|
|
stream1 (make-string-input-stream "(= 6 (+ 3 3) ")
|
|
stream2 (make-string-input-stream ")")
|
|
)
|
|
(do-test AR8136
|
|
(eval (read (make-concatenated-stream stream1 stream2)))
|
|
)
|
|
) |