X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdebug.impure.lisp;h=a1d1e19d0c8539f4beff7c0e3816b550bd363262;hb=b3e7d6608689a639cb774e2ce15bb5bacaed5179;hp=9acd873f14f46575959170bed4a31b7f9606ab12;hpb=78689792e8f8d20b3b931f508f3a9eca81b64f1f;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 9acd873..a1d1e19 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -126,7 +126,7 @@
 #-alpha ; bug 346
 (progn
   (flet ((test-function ()
-	   (declare (optimize (speed 1) (debug 2))) ; tail call elimination
+	   (declare (optimize (speed 2) (debug 1))) ; tail call elimination
 	   (/ 42 0)))
     (assert (verify-backtrace #'test-function '/)))
 
@@ -136,9 +136,10 @@
     (assert (verify-backtrace #'test-function '/))))
 
 #-(or x86 alpha) ; bug 61
-(defun throw-test ()
-  (throw 'no-such-tag t))
-(assert (verify-backtrace #'throw-test 'throw-test))
+(progn
+  (defun throw-test ()
+    (throw 'no-such-tag t))
+  (assert (verify-backtrace #'throw-test 'throw-test)))
 
 ;;; success
 (quit :unix-status 104)