From 3f8e05ce29aeae119265301a79a2db189e45dd25 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 11 Dec 2011 00:16:57 +0100 Subject: [PATCH] Set *print-escape* to nil in the debugger --- src/lsp/top.lsp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp index d674ef7bb..8da7fbeaa 100644 --- a/src/lsp/top.lsp +++ b/src/lsp/top.lsp @@ -777,6 +777,7 @@ Use special code 0 to cancel this operation.") (let*((*print-level* 2) (*print-length* 4) (*print-pretty* t) + (*print-escape* nil) (*print-readably* nil) (functions) (blocks) (variables)) (unless (si::bc-disassemble (ihs-fun *ihs-current*)) @@ -1013,6 +1014,7 @@ Use special code 0 to cancel this operation.") (let*((*print-level* 2) (*print-length* 4) (*print-pretty* t) + (*print-escape* nil) (*print-readably* nil)) (multiple-value-bind (local-variables special-variables functions blocks restarts) (ihs-environment *ihs-current*)