From 51e4b92e1a1e4e9d3eb40c1e8dba78268f273056 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 25 Jul 2002 11:07:46 +0000 Subject: [PATCH] 0.7.6.6: Fix two typos for SB-SHOW --- src/code/toplevel.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp index 1348ad7..af2f3f1 100644 --- a/src/code/toplevel.lisp +++ b/src/code/toplevel.lisp @@ -65,7 +65,8 @@ (/show0 "back from INFINITE-ERROR-PROTECTOR") (let ((*current-error-depth* (1+ *current-error-depth*))) (/show0 "in INFINITE-ERROR-PROTECT, incremented error depth") - #+sb-show (sb-debug:backtrace) + ;; arbitrary truncation + #!+sb-show (sb!debug:backtrace 8) ,@forms))) ;;; a helper function for INFINITE-ERROR-PROTECT diff --git a/version.lisp-expr b/version.lisp-expr index 136a7be..66065ee 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; for internal versions, especially for internal versions off the ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.7.6.5" +"0.7.6.6" -- 1.7.10.4