7 lines
199 B
Plaintext
7 lines
199 B
Plaintext
;; AR 7412 test
|
|
;; Filed as {ERIS}<LISPCORE>TEST>CMLEXEC>AR7412.TEST
|
|
;; Verify that the interlisp function DIR is defined
|
|
(do-test AR7412
|
|
(eq (type-of (il:getd 'il:dir)) 'il:compiled-closure))
|
|
|
|
STOP |