[nongnu] elpa/slime 485aa0ca17 16/43: extract-package, readtable-for-package: Use default readtable

[ELPA Syncer]

branch: elpa/slime
commit 485aa0ca171d2b00b51ffa4c471b0140bf468d9b
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Luís Oliveira <loliveira@common-lisp.net>

    extract-package, readtable-for-package: Use default readtable
---
 swank/source-path-parser.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/swank/source-path-parser.lisp b/swank/source-path-parser.lisp
index d859826423..951343d286 100644
--- a/swank/source-path-parser.lisp
+++ b/swank/source-path-parser.lisp
@@ -128,8 +128,9 @@ subexpressions of the object to stream positions."
 
 (defun extract-package (line)
   (declare (type string line))
-  (let ((name (cadr (read-from-string line))))
-    (find-package name)))
+  (let ((*readtable* (copy-readtable nil)))
+    (let ((name (cadr (read-from-string line))))
+      (find-package name))))
 
 #+(or)
 (progn
@@ -142,8 +143,9 @@ subexpressions of the object to stream positions."
 (defun readtable-for-package (package)
   ;; KLUDGE: due to the load order we can't reference the swank
   ;; package.
-  (funcall (read-from-string "swank::guess-buffer-readtable")
-           (string-upcase (package-name package))))
+  (let ((*readtable* (copy-readtable nil)))
+    (funcall (read-from-string "swank::guess-buffer-readtable")
+             (string-upcase (package-name package)))))
 
 ;; Search STREAM for a "(in-package ...)" form.  Use that to derive
 ;; the values for *PACKAGE* and *READTABLE*.