0.8.21.36: TRACE :ENCAPSULATE NIL broken on ppc/darwin
authorNikodemus Siivola <nikodemus@random-state.net>
Wed, 13 Apr 2005 13:48:43 +0000 (13:48 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Wed, 13 Apr 2005 13:48:43 +0000 (13:48 +0000)
 * record bug.
 * add test-case for other platform.
 * test normal trace for good measure.

BUGS
tests/debug.impure.lisp
version.lisp-expr

diff --git a/BUGS b/BUGS
index a04ad72..0b795f0 100644 (file)
--- 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.
index 96bd754..86a0de6 100644 (file)
     (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)
index bc53dd6..3583ac7 100644 (file)
@@ -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"