projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.42.11: reinline nested LIST and VECTOR calls in MAKE-ARRAY initial-contents
[sbcl.git]
/
tests
/
dynamic-extent.impure.lisp
diff --git
a/tests/dynamic-extent.impure.lisp
b/tests/dynamic-extent.impure.lisp
index
93493d4
..
be5ddbc
100644
(file)
--- a/
tests/dynamic-extent.impure.lisp
+++ b/
tests/dynamic-extent.impure.lisp
@@
-894,4
+894,11
@@
(flet ((bar () t))
(cons #'bar (lambda () (declare (dynamic-extent #'bar))))))
'sb-ext:compiler-note)))
(flet ((bar () t))
(cons #'bar (lambda () (declare (dynamic-extent #'bar))))))
'sb-ext:compiler-note)))
+
+(with-test (:name :bug-586105)
+ (flet ((test (x)
+ (let ((vec (make-array 1 :initial-contents (list (list x)))))
+ (declare (dynamic-extent vec))
+ (assert (eql x (car (aref vec 0)))))))
+ (assert-no-consing (test 42))))
\f
\f