From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 13 Apr 2005 13:48:43 +0000 (+0000)
Subject: 0.8.21.36: TRACE :ENCAPSULATE NIL broken on ppc/darwin
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d4f4b68910a64640f9b8c67560ffd7f4d57c54b9;p=sbcl.git

0.8.21.36: TRACE :ENCAPSULATE NIL broken on ppc/darwin
 * record bug.
 * add test-case for other platform.
 * test normal trace for good measure.
---

diff --git a/BUGS b/BUGS
index a04ad72..0b795f0 100644
--- a/BUGS
+++ b/BUGS
@@ -2085,3 +2085,6 @@ WORKAROUND:
   Floating point traps are currently not enabled on the x86-64 port.
   This is true for at least overflow detection (as tested in
   float.pure.lisp) and divide-by-zero.
+
+379: TRACE :ENCAPSULATE NIL broken on ppc/darwin
+  See commented-out test-case in debug.impure.lisp.
diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 96bd754..86a0de6 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -324,5 +324,26 @@
     (assert (verify-backtrace #'bt.5.3
                               '((bt.5.3 &rest))))))
 
+;;;; test TRACE
+
+(defun trace-this ()
+  'ok)
+
+(let ((out (with-output-to-string (*trace-output*)
+	     (trace trace-this)
+	     (assert (eq 'ok (trace-this)))
+	     (untrace))))
+  (assert (search "TRACE-THIS" out))
+  (assert (search "returned OK" out)))
+
+#-(and ppc darwin)
+;;; bug 379
+(let ((out (with-output-to-string (*trace-output*)
+	     (trace trace-this :encapsulate nil)
+	     (assert (eq 'ok (trace-this)))
+	     (untrace))))
+  (assert (search "TRACE-THIS" out))
+  (assert (search "returned OK" out)))
+
 ;;; success
 (quit :unix-status 104)
diff --git a/version.lisp-expr b/version.lisp-expr
index bc53dd6..3583ac7 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.8.21.35"
+"0.8.21.36"