projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
1.0.24.34: IR2: additional representation for predicates, conditional moves
[sbcl.git]
/
tests
/
compiler.pure.lisp
diff --git
a/tests/compiler.pure.lisp
b/tests/compiler.pure.lisp
index
e913df3
..
7dcc183
100644
(file)
--- a/
tests/compiler.pure.lisp
+++ b/
tests/compiler.pure.lisp
@@
-2683,3
+2683,10
@@
nil)
(assert (eq 'list type))
(assert derivedp)))
+
+(with-test (:name :base-char-typep-elimination)
+ (assert (eq (funcall (lambda (ch)
+ (declare (type base-char ch) (optimize (speed 3) (safety 0)))
+ (typep ch 'base-char))
+ t)
+ t)))