7 lines
240 B
Plaintext
7 lines
240 B
Plaintext
;;; Regression test for AR 8366: the local variable RPTN was unbound in RPT
|
|
|
|
(do-test "AR 8366"
|
|
(makunbound 'il:rptn)
|
|
(equal (let ((x ())) (declare (special x)) (il:rpt 2 '(push il:rptn x)) (il:rptq 2 (push il:rptn x)) x) '(1 2 1 2))
|
|
)
|