[nongnu] elpa/slime 1f3b856924 3/4: Revert "extract-package, readtable-for-package: Use default readtable"

[ELPA Syncer]

branch: elpa/slime
commit 1f3b8569249ba081e33e7886b3a98bf22be595a5
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    Revert "extract-package, readtable-for-package: Use default readtable"
    
    This reverts commit 485aa0ca171d2b00b51ffa4c471b0140bf468d9b.
    
    There's no explanation why it is needed and it breaks
    guess-buffer-readtable by returning an empty readtable.
---
 swank/source-path-parser.lisp | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/swank/source-path-parser.lisp b/swank/source-path-parser.lisp
index 69e687a7f4..deddb22f6f 100644
--- a/swank/source-path-parser.lisp
+++ b/swank/source-path-parser.lisp
@@ -128,9 +128,8 @@ subexpressions of the object to stream positions."
 
 (defun extract-package (line)
   (declare (type string line))
-  (let ((*readtable* (copy-readtable nil)))
-    (let ((name (cadr (read-from-string line))))
-      (find-package name))))
+  (let ((name (cadr (read-from-string line))))
+    (find-package name)))
 
 #+(or)
 (progn
@@ -143,9 +142,8 @@ 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.
-  (let ((*readtable* (copy-readtable nil)))
-    (funcall (read-from-string "swank::guess-buffer-readtable")
-             (string-upcase (package-name package)))))
+  (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*.