X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fntrace.lisp;h=d666736a0099549b39b49eda289eec59064b62d5;hb=2b277125b2d14a05710d7c8e4c0a22f97eea662a;hp=62979c36aa5cc3846c4ee8efbddfac6dfa231242;hpb=63cef087068afc157283c0a05ae1f16b962303aa;p=sbcl.git diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp index 62979c3..d666736 100644 --- a/src/code/ntrace.lisp +++ b/src/code/ntrace.lisp @@ -183,7 +183,7 @@ (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*)