repo.or.cz
/
sbcl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fix sequence type derivation in the presence of negation types.
[sbcl.git]
/
contrib
/
sb-cover
/
test-data-3.lisp
blob
3b2a51586c0c1084c2636e77db5d48c13e008498
1
(
declaim
(
optimize
sb-c
::
store-coverage-data
))
2
3
(
defun
test-1
()
4
(
print
'((
1
3 1
))))
5
6
(
defun
test-2
()
7
(
assert
(
equal
(
test-1
)
8
(
list
(
list
1 3 1
)))))