From 209f96a4d6d9ded79db787135cf680d117fb9d6a Mon Sep 17 00:00:00 2001 From: jgarcia Date: Wed, 21 May 2008 08:03:05 +0000 Subject: [PATCH] Export and extend *tpl-prompt-hook* so that it can be used to completely change the look of the prompt. --- src/lsp/top.lsp | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp index 1eb099cb8..943d210d6 100644 --- a/src/lsp/top.lsp +++ b/src/lsp/top.lsp @@ -21,7 +21,7 @@ (in-package "SYSTEM") (export '(*break-readtable* *break-on-warnings* *break-enable* - *tpl-evalhook*)) + *tpl-evalhook* *tpl-prompt-hook*)) (defvar *quit-tag* (cons nil nil)) (defvar *quit-tags* nil) @@ -405,13 +405,16 @@ under certain conditions; see file 'Copyright' for details.") (break-where))))) (defun tpl-prompt () - (fresh-line) - (when *tpl-prompt-hook* - (funcall *tpl-prompt-hook*)) - (format t "~A~V,,,'>A " - (if (eq *package* (find-package 'user)) "" (package-name *package*)) - (- *tpl-level* *step-level* -1) - "")) + (typecase *tpl-prompt-hook* + (string (format t *tpl-prompt-hook*)) + (function (funcall *tpl-prompt-hook*)) + (t (fresh-line) + (format t "~A~V,,,'>A " + (if (eq *package* (find-package 'user)) + "" + (package-name *package*)) + (- *tpl-level* *step-level* -1) + "")))) (defun tpl-read () (finish-output)