From 0280269db692c8f2f54578cf83bbe76eaee08f64 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 23 May 2008 06:38:09 +0000
Subject: [PATCH] Even better solution than removing :prompt-hook.

---
 src/lsp/top.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 4ada43301..60a0d9faf 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -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)))