1
0
mirror of synced 2026-04-28 12:58:19 +00:00
Files
Interlisp.medley/internal/test/LANGUAGE/AUTO/AR8491.TEST

7 lines
298 B
Plaintext

;;; Regression test for AR 8491: Arg not a NUMBER error when format ~:R given RATIO
(do-test "AR 8491"
(labels ((find-il-lambda (form) (if (atom form) (eq form 'il:lambda) (or (find-il-lambda (car form)) (find-il-lambda (cdr form))))))
(not (find-il-lambda (macroexpand '(prog1 a b c)))))
)