10 lines
269 B
Plaintext
10 lines
269 B
Plaintext
;; AR8301.TEST
|
|
;; Filed as {ERIS}<LISPCORE>TEST>CML-IO>AR8301.TEST
|
|
;; By Peter Reidy
|
|
;; Verify no udf break for unread-char, peek-char.
|
|
(do-test-group AR8301
|
|
(do-test AR8301-test
|
|
(CL:UNREAD-CHAR #\Space)
|
|
(CL:PEEK-CHAR NIL (make-string-input-stream "nothing"))
|
|
)
|
|
) |