From 08056b7589e2e258f65a1187c7a24c842bc79cda Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 1 Dec 2004 16:50:24 +0000 Subject: [PATCH] Switch off the pretty printer while we are debugging. --- src/lsp/top.lsp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp index e5ebba938..f132bd979 100644 --- a/src/lsp/top.lsp +++ b/src/lsp/top.lsp @@ -885,12 +885,14 @@ package." (declare (si::c-local)) (unless *break-enable* (throw *quit-tag* nil)) - (let*((*break-message* (format nil "~&~A~%" condition)) - (*break-level* (1+ *break-level*)) - (*break-env* nil) - (*standard-input* *debug-io*) + (let*((*standard-input* *debug-io*) (*standard-output* *debug-io*) - (*readtable* (or *break-readtable* *readtable*))) + (*print-pretty* nil) + (*print-circle* t) + (*readtable* (or *break-readtable* *readtable*)) + (*break-message* (format nil "~&~A~%" condition)) + (*break-level* (1+ *break-level*)) + (*break-env* nil)) (when (listen *debug-io*) (clear-input *debug-io*)) (princ *break-message*)