[Sbcl-commits] CVS: sbcl/src/code toplevel.lisp,1.30,1.31

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv25738/src/code

Modified Files:
	toplevel.lisp 
Log Message:
0.7.6.6:
	Fix two typos for SB-SHOW


Index: toplevel.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/toplevel.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- toplevel.lisp	23 Jul 2002 17:22:36 -0000	1.30
+++ toplevel.lisp	25 Jul 2002 11:07:46 -0000	1.31
@@ -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