mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Set *print-escape* to nil in the debugger

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-11 00:16:57 +01:00
parent 5ca1a03c86
commit 3f8e05ce29
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/top.lsp
View file

@ -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*)