19 lines
403 B
Plaintext
19 lines
403 B
Plaintext
;; AR7475.TEST
|
|
;; Filed as {ERIS}<LISPCORE>TEST>CML-IO>AR7475.TEST
|
|
;; By Peter Reidy
|
|
;; Read an expression with nested #+. The expression only has to be readable, not executable.
|
|
(do-test-group AR7475
|
|
:before
|
|
(test-setq string
|
|
"#+(or symbolics ti lmi)
|
|
(progn
|
|
(foo)
|
|
#+(or symbolics ti)
|
|
(bar)
|
|
(baz))
|
|
)"
|
|
)
|
|
(do-test AR7475-test
|
|
(or (read-from-string string) t)
|
|
)
|
|
) |