From bb1ead258cdbd5cbd0fe25e16cb6a201873b630b Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 1 Nov 2006 11:48:39 +0000 Subject: [PATCH] 0.9.18.19: oops, tests hang! * Something wrong with stepping, make it at least finish the tests. --- tests/seq.impure.lisp | 2 +- tests/step.impure.lisp | 6 ++++-- version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 4 deletions(-) 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" -- 1.7.10.4