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

Even better solution than removing :prompt-hook.

Browse source
This commit is contained in:
jgarcia 2008-05-23 06:38:09 +00:00
parent b69c666a23
commit 0280269db6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lsp/top.lsp
View file

@ -379,7 +379,8 @@ under certain conditions; see file 'Copyright' for details.")
(error "Console interrupt -- cannot continue."))))
(defun tpl (&key ((:commands *tpl-commands*) tpl-commands)
(broken-at nil)
((:prompt-hook *tpl-prompt-hook*) *tpl-prompt-hook*)
(broken-at nil)
(quiet nil))
(let* ((*ihs-base* *ihs-top*)
(*ihs-top* (if broken-at (ihs-search t broken-at) (ihs-top 'tpl)))