diff options
Diffstat (limited to 'swank/source-path-parser.lisp')
| -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*. |