mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

WITH-STANDARD-IO-SYNTAX now also rebinds *print-pprint-dispatch*.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-22 13:16:16 +02:00
parent 34a1ec234b
commit 72a003a392
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -13,6 +13,8 @@ ECL 9.6.3:
- EXT:OUTPUT-FLOAT-INFINITY works now fine when *print-circle* is T.
- WITH-STANDARD-IO-SYNTAX now also rebinds *print-pprint-dispatch*.
* Compiler:
- When printing out data and reading it from a FASL file, the

6
src/c/read.d
View file

@ -2298,7 +2298,8 @@ init_read(void)
/*si::*print-structure**/ Ct,
/*si::*sharp-eq-context**/ Cnil);
ECL_SET(@'si::+ecl-syntax-progv-list+', CONS(var,val));
var = cl_list(20,
var = cl_list(21,
@'*print-pprint-dispatch*', /* See end of pprint.lsp */
@'*print-array*',
@'*print-base*',
@'*print-case*',
@ -2319,7 +2320,8 @@ init_read(void)
@'*read-suppress*',
@'*readtable*',
@'*package*');
val = cl_list(20,
val = cl_list(21,
/**pprint-dispatch-table**/ Cnil,
/**print-array**/ Ct,
/**print-base**/ MAKE_FIXNUM(10),
/**print-case**/ @':upcase',

1
src/lsp/pprint.lsp
View file

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