projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.3.1:
[sbcl.git]
/
src
/
code
/
ntrace.lisp
diff --git
a/src/code/ntrace.lisp
b/src/code/ntrace.lisp
index
a5a4e44
..
d666736
100644
(file)
--- a/
src/code/ntrace.lisp
+++ b/
src/code/ntrace.lisp
@@
-29,7
+29,7
@@
"If the trace indentation exceeds this value, then indentation restarts at
0.")
"If the trace indentation exceeds this value, then indentation restarts at
0.")
-(defvar *trace-encapsulate-default* :default
+(defvar *trace-encapsulate-default* t
#+sb-doc
"the default value for the :ENCAPSULATE option to TRACE")
\f
#+sb-doc
"the default value for the :ENCAPSULATE option to TRACE")
\f
@@
-183,7
+183,7
@@
(dolist (entry *traced-entries*)
(when (cdr entry) (incf depth)))
(format t
(dolist (entry *traced-entries*)
(when (cdr entry) (incf depth)))
(format t
- "~@V,0T~W: "
+ "~V,0@T~W: "
(+ (mod (* depth *trace-indentation-step*)
(- *max-trace-indentation* *trace-indentation-step*))
*trace-indentation-step*)
(+ (mod (* depth *trace-indentation-step*)
(- *max-trace-indentation* *trace-indentation-step*))
*trace-indentation-step*)