7 lines
298 B
Plaintext
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)))))
|
|
)
|