7 lines
254 B
Plaintext
7 lines
254 B
Plaintext
;; Regression tests for the File Manager
|
|
|
|
(do-test "AR 7737: (HASDEF & 'FILES) shouldn't create new symbols"
|
|
(let ((name (il:gensym)))
|
|
(and (null (il:hasdef name 'il:files))
|
|
(null (find-symbol (il:concat name "COMS") "INTERLISP")))))
|