common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Adjust a test.

Browse source
This commit is contained in:
Stas Boukarev 2021-11-22 23:31:03 +03:00
parent f3dc1111a6
commit c8e8dead0d
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/dynamic-extent.impure.lisp
View file

@ -1601,8 +1601,7 @@
;;; analysis.
(with-test (:name :uvl-preserved-by-dx-too-long)
(checked-compile
'(lambda (f1 a test)
(let ((a (f2 a)))
(flet ((f3 (&rest m) (apply test m)))
(declare (dynamic-extent #'f3))
(apply f1 #'f3 args))))))
'(lambda (f1 test args)
(flet ((f3 (&rest m) (apply test m)))
(declare (dynamic-extent #'f3))
(apply f1 #'f3 args)))))