6 lines
148 B
Plaintext
6 lines
148 B
Plaintext
;;; Regression test for AR 8470: VIRGINFN calls u.d.f. PACK-IN-
|
|
|
|
(do-test "AR 8470"
|
|
(not (member 'il:pack-in- (first (il:calls 'il:virginfn))))
|
|
)
|