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

WITH-ECL-IO-SYNTAX also binds *pprint-dispatch-table*

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-22 13:19:36 +02:00
parent 72a003a392
commit 36119c352e
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/read.d
View file

@ -2251,7 +2251,8 @@ init_read(void)
{
cl_object var, val;
var = cl_list(22,
var = cl_list(23,
@'*print-pprint-dispatch*', /* See end of pprint.lsp */
@'*print-array*',
@'*print-base*',
@'*print-case*',
@ -2274,7 +2275,8 @@ init_read(void)
@'si::*print-package*',
@'si::*print-structure*',
@'si::*sharp-eq-context*');
val = cl_list(22,
val = cl_list(23,
/**pprint-dispatch-table**/ Cnil,
/**print-array**/ Ct,
/**print-base**/ MAKE_FIXNUM(10),
/**print-case**/ @':downcase',

1
src/lsp/pprint.lsp
View file

@ -1576,5 +1576,6 @@
)
(setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
(setf (first (cdr si::+io-syntax-progv-list+)) *initial-pprint-dispatch*)
(setf (first (cdr si::+ecl-syntax-progv-list+)) *initial-pprint-dispatch*)
#-ecl-min
(setf *print-pretty* t))