X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdebug.impure.lisp;h=a1d1e19d0c8539f4beff7c0e3816b550bd363262;hb=67dc5cf478dfe5e3f517001febb9a8f7b922eacf;hp=7759cd416b255abfb2ca0769ac8106f8ebb92dca;hpb=a87f7ecb8beedbb3c1a225b7bc84dc6b51622cd9;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 7759cd4..a1d1e19 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -97,7 +97,7 @@
 ;;; Try it with and without tail call elimination, since they can have
 ;;; different effects.  (Specifically, if undefined_tramp is incorrect
 ;;; a stunted stack can result from the tail call variant.)
-#-x86 ; bug 345
+#-(or alpha x86) ; bug 345
 (progn
   (flet ((test-function ()
 	   (declare (optimize (speed 2) (debug 1))) ; tail call elimination
@@ -123,15 +123,23 @@
 ;;; the return value (to the flet or the enclosing top level form) is
 ;;; more than MOST-POSITIVE-FIXNUM with the current spaces on OS X.
 ;;; Enabling it might catch other problems, so do it anyway.
-(flet ((test-function ()
-         (declare (optimize (speed 1) (debug 2))) ; tail call elimination
-         (/ 42 0)))
-  (assert (verify-backtrace #'test-function '/)))
+#-alpha ; bug 346
+(progn
+  (flet ((test-function ()
+	   (declare (optimize (speed 2) (debug 1))) ; tail call elimination
+	   (/ 42 0)))
+    (assert (verify-backtrace #'test-function '/)))
 
-(flet ((test-function ()
-         (declare (optimize (speed 1) (debug 2))) ; no tail call elimination
-         (/ 42 0)))
-  (assert (verify-backtrace #'test-function '/)))
+  (flet ((test-function ()
+	   (declare (optimize (speed 1) (debug 2))) ; no tail call elimination
+	   (/ 42 0)))
+    (assert (verify-backtrace #'test-function '/))))
+
+#-(or x86 alpha) ; bug 61
+(progn
+  (defun throw-test ()
+    (throw 'no-such-tag t))
+  (assert (verify-backtrace #'throw-test 'throw-test)))
 
 ;;; success
 (quit :unix-status 104)