13 lines
199 B
Plaintext
13 lines
199 B
Plaintext
;;; test file for LLREAD 4-30-87 by woz
|
|
|
|
;;; AR 7741
|
|
(do-test "SKREAD understands vertical bar"
|
|
(with-input-from-string (s "(a |b) c| d) e |")
|
|
(il:skread s)
|
|
(eq (read s) 'e))
|
|
)
|
|
|
|
stop
|
|
|
|
|