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

Improved SI:SAFE-EVAL, making it safe against THROW, and other jumps to an outer point.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-31 22:49:19 +02:00
parent f926a8d497
commit ebb4e1c5cb
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/iolib.lsp
View file

@ -76,6 +76,9 @@ object's representation."
(values (read stream eof-error-p eof-value)
(file-position stream)))))
(defun si::string-to-object (string &rest args)
(apply #'si::safe-eval `(read-from-string ,string) nil args))
(defun write-to-string (object &rest rest
&aux (stream (make-string-output-stream)))
"Args: (object &key (escape *print-escape*) (radix *print-radix*)