Skip to content
Snippets Groups Projects
Commit 8d2957bf authored by pfdietz's avatar pfdietz
Browse files

Added misc.639, a new sbcl bug

parent 2d686cbb
No related branches found
No related tags found
No related merge requests found
......@@ -11339,3 +11339,17 @@ Broken at C::WT-MAKE-CLOSURE.
21))))
(not (not (eql c (funcall (compile nil form) s))))))
t)
;;; sbcl 0.9.11.24 (x86 linux)
;;; failed AVER: "(EQ PHYSENV (LAMBDA-PHYSENV (LAMBDA-VAR-HOME THING)))"
(deftest misc.639
(let ((form '(lambda (a b d)
(declare (notinline >= eql))
(declare (optimize (debug 2) (speed 3) (safety 0)
(compilation-speed 3) (space 0)))
(labels ((%f8 (f8-1 &optional (f8-4 (if (if (eql 0 -16) (>= d) nil) 0 0)))
a))
(%f8 b)))))
(funcall (compile nil form) :good 18 0))
:good)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment