From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 1 Nov 2006 11:48:39 +0000 (+0000)
Subject: 0.9.18.19: oops, tests hang!
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bb1ead258cdbd5cbd0fe25e16cb6a201873b630b;p=sbcl.git

0.9.18.19: oops, tests hang!
 * Something wrong with stepping, make it at least finish the tests.
---

diff --git a/tests/seq.impure.lisp b/tests/seq.impure.lisp
index f91e797..ee254df 100644
--- a/tests/seq.impure.lisp
+++ b/tests/seq.impure.lisp
@@ -515,7 +515,7 @@
 (sequence-bounding-indices-test
  (format t "~&/Function PARSE-NAMESTRING")
  (setf (fill-pointer string) 10)
- (setf (subseq string 0 10) 
+ (setf (subseq string 0 10)
        #-win32 "/dev/ /tmp"
        #+win32 "C:/   NUL")
  (setf (fill-pointer string) 5)
diff --git a/tests/step.impure.lisp b/tests/step.impure.lisp
index afa3281..00aa7e0 100644
--- a/tests/step.impure.lisp
+++ b/tests/step.impure.lisp
@@ -26,12 +26,14 @@
 
 (defvar *cerror-called* nil)
 
+(define-condition cerror-break (error) ())
+
 (defun fib-break (x)
   (declare (optimize debug))
   (if (< x 2)
       (progn
         (unless *cerror-called*
-          (cerror "a" "b")
+          (cerror "a" 'cerror-break)
           (setf *cerror-called* t))
         1)
       (+ (fib-break (1- x))
@@ -144,7 +146,7 @@
                                     results)
                               (invoke-restart 'step-into))))))
     (setf *cerror-called* nil)
-    (handler-bind ((error
+    (handler-bind ((cerror-break
                     (lambda (c)
                       (sb-impl::enable-stepping)
                       (invoke-restart 'continue))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 00729c7..cb2afc2 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.18.18"
+"0.9.18.19"