branch: elpa/slime
commit 1f3b8569249ba081e33e7886b3a98bf22be595a5
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@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*.
