The variable
*prompt*
defines the LispWorks listener prompt. Its value can be a:
A function of zero arguments which should return the prompt as a string.
A format string with processing three arguments: the current package name, the next history number, and the debug level.
The form is passed to
eval
and should return a format string, which is used as for the string case above.
CL-USER 1 > (defvar *default-prompt* *prompt*)
*DEFAULT-PROMPT*
CL-USER 2 > (progn
(setf *prompt*
'(string-append "~&"
(sys:get-user-name)
#\Space
(subseq *default-prompt* 2)))
nil)
NIL
dubya CL-USER 3 >