6 lines
222 B
Plaintext
6 lines
222 B
Plaintext
;;; Regression test for AR 7893: Default handler for STREAM-NOT-OPEN uses TEdit function when TEdit not loaded
|
|
|
|
(do-test "AR 7893"
|
|
(or (get 'il:tedit 'il:filedates) (null (xcl:condition-handler 'xcl:stream-not-open)))
|
|
)
|