projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.37: Delete some dead code in pack.lisp
[sbcl.git]
/
tests
/
compiler.pure.lisp
diff --git
a/tests/compiler.pure.lisp
b/tests/compiler.pure.lisp
index
9167b6b
..
69fcd3c
100644
(file)
--- a/
tests/compiler.pure.lisp
+++ b/
tests/compiler.pure.lisp
@@
-2190,3
+2190,14
@@
(compile nil '(lambda (x) (declare (fixnum x))
(logand most-positive-fixnum (* x most-positive-fixnum))))
(compile nil '(lambda (x) (declare (fixnum x))
(logand most-positive-fixnum (* x most-positive-fixnum))))
+
+;;; bug 256.b
+(assert (let (warned-p)
+ (handler-bind ((warning (lambda (w) (setf warned-p t))))
+ (compile nil
+ '(lambda (x)
+ (list (let ((y (the real x)))
+ (unless (floatp y) (error ""))
+ y)
+ (integer-length x)))))
+ warned-p))