diff options
| author | Stas Boukarev <stassats@gmail.com> | 2024-04-25 21:38:09 +0300 |
|---|---|---|
| committer | Stas Boukarev <stassats@gmail.com> | 2024-04-25 21:38:09 +0300 |
| commit | 1f3b8569249ba081e33e7886b3a98bf22be595a5 (patch) | |
| tree | 14b02ddbbbde362cafa15020600dc42e53fda4d9 | |
| parent | be003c65314d5068d603ad3844a17176ec622467 (diff) | |
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.
| -rw-r--r-- | swank/source-path-parser.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/swank/source-path-parser.lisp b/swank/source-path-parser.lisp index 69e687a7..deddb22f 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*. |