mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 10:42:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

New WITH-STANDARD-IO-SYNTAX macro.

Browse source
This commit is contained in:
jjgarcia 2001-09-29 11:02:05 +00:00
parent 29dcac3ccc
commit d8460be1cf
2 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/lsp/export.lsp
View file

@ -278,6 +278,7 @@
with-open-file
with-open-stream
with-output-to-string
with-standard-io-syntax
write-to-string
y-or-n-p
yes-or-no-p

23
src/lsp/iolib.lsp
View file

@ -178,3 +178,26 @@
namestring year month day hour min sec))))))
;(provide 'iolib)
(defmacro with-standard-io-syntax (&body body)
`(let ((*package* (find-package :cl-user))
(*print-array* t)
(*print-base* 10)
(*print-case* :upcase)
(*print-circle* nil)
(*print-escape* t)
(*print-gensym* t)
(*print-length* nil)
(*print-level* nil)
(*print-lines* nil)
(*print-miser-width* nil)
(*print-pretty* nil)
(*print-radix* nil)
(*print-radably* t)
(*print-right-margin* nil)
(*read-base* 10)
(*read-default-float-format* 'single-float)
(*read-eval* t)
(*read-suppress* nil)
(*readtable* (copy-readtable (si::standard-readtable))))
,@body))