mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 16:30:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not rebind *readtable* when reading user's input

Browse source
This commit is contained in:
jjgarcia 2004-11-22 14:29:07 +00:00
parent aaac3b4650
commit 9eb3a5b814
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/top.lsp
View file

@ -498,7 +498,7 @@ file. When the saved image is invoked, it will start the redefined top-level."
(- *tpl-level* *step-level* -1)
""))
(defun tpl-read (&aux (*readtable* (sys::standard-readtable)))
(defun tpl-read ()
(finish-output)
(loop
(case (peek-char nil *standard-input* nil :EOF)