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

Simplify the with-*-syntax macros using with-clean-symbols

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-29 23:03:41 +01:00
parent 61e4cdb065
commit 4e17f5d1d8
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/iolib.lsp
View file

@ -247,8 +247,8 @@ the one defined in the ANSI standard. *print-base* is 10, *print-array* is t,
*package* is \"CL-USER\", etc."
(with-clean-symbols (%progv-list)
`(let ((%progv-list +io-syntax-progv-list+))
(progv (car (ext:truly-the cons %progv-list))
(cdr (ext:truly-the cons %progv-list))
(progv (si:cons-car %progv-list)
(si:cons-cdr %progv-list)
,@body))))
(defmacro with-ecl-io-syntax (&body body)
@ -257,8 +257,8 @@ The forms of the body are executed in a print environment that corresponds to
the one used internally by ECL compiled files."
(with-clean-symbols (%progv-list)
`(let ((%progv-list +ecl-syntax-progv-list+))
(progv (car (ext:truly-the cons %progv-list))
(cdr (ext:truly-the cons %progv-list))
(progv (si:cons-car %progv-list)
(si:cons-cdr %progv-list)
,@body))))
#-formatter