From ebb4e1c5cb2ac22f371e2e7f3c0b847ff120b861 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Fri, 31 Jul 2009 22:49:19 +0200
Subject: [PATCH] Improved SI:SAFE-EVAL, making it safe against THROW, and
 other jumps to an outer point.

---
 src/lsp/iolib.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp
index fe4be191a..58b33a099 100644
--- a/src/lsp/iolib.lsp
+++ b/src/lsp/iolib.lsp
@@ -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*)