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

Another sbcl bug.

parent 286221b6
No related branches found
No related tags found
No related merge requests found
......@@ -1314,3 +1314,18 @@
b)))))
2950453607 -4)
-815145134)
;;; Gives the error The value NIL is not of type INTEGER. (in sbcl 0.8.4.40)
(deftest misc.106
(progn
(eval '(defun misc.106-fn (a b c)
(declare (optimize speed))
(block b6
(flet ((%f8 (f8-1 f8-2) b))
(%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
(misc.106-fn -30271 -1 -3043))
-30271)
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