From 8adccd5ebec6815eff298f331f71b43b9cd5cefc Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Thu, 25 Feb 2010 12:15:49 +0100
Subject: [PATCH] In IHS-ENVIRONMENT, the list of local variables may contain
 strings -- they are now converted to symbols.

---
 src/lsp/top.lsp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 52c20360c..bc1c15982 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -964,6 +964,11 @@ Use special code 0 to cancel this operation.")
                (push (compiled-function-name record) functions))
               ((progn
                  (setf record0 (car record) record1 (cdr record))
+                 (when (stringp record0)
+                   (setf record0
+                         (let ((*package* (find-package "KEYWORD")))
+                           (with-standard-io-syntax
+                             (read-from-string record0)))))
                  (or (symbolp record0) (stringp record0)))
                (setq local-variables (acons record0 record1 local-variables)))
               ((symbolp record1)