From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sat, 9 Jun 2012 17:21:17 +0000 (+0300)
Subject: fix :DEBUGGER :SOURCE 2 test on unithreaded builds
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b94258cdc4fc43cf83d693ee456416631ba6ab96;p=sbcl.git

fix :DEBUGGER :SOURCE 2 test on unithreaded builds

  Trivial layout different on debugger entry cause it to break.
---

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 2411256..75d618e 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -650,6 +650,8 @@
                  (if (eq '* match)
                      ;; Whatever, till the next line matches.
                      (let ((text (pop targets)))
+                       #+nil
+                       (format *error-output* "Looking for: ~A~%" text)
                        (unless (search text line)
                          (push text targets)
                          (push match targets)))
@@ -694,7 +696,7 @@
       (let ((f #'(lambda (x cont)
                    (print x (make-broadcast-stream))
                    (if (zerop x)
-                       (error "foo")
+                       (error "~%foo")
                        (funcall cont (1- x) cont)))))
         (funcall f 10 f)))
    '*
@@ -702,7 +704,7 @@
    '*
    "foo"
    '*
-   "source: (ERROR \"foo\")"
+   "source: (ERROR \"~%foo\")"
    '*
    "(LAMBDA (X CONT)"
    '*