Michael Graffam wrote:
> 
> 
> On Sat, 29 Nov 2003, Raymond Toy wrote:
> 
> 
>>Look at *prompt* and debug:*debug-prompt*.  They both take a function.
>>Will this do what you want?
> 
> 
> Well, I knew about *prompt* which works as expected:
> 
> * (defun myprompt () "CMUCL> ")
> 

Looking at the default debug-prompt function, your prompt function 
should do the printing, not just return a string.  Also be sure to do 
(force-output) to be able to see the prompt.

This works for me:

(defun my-prompt ()
   (print "MY-DEBUG-PROMPT]")
   (force-output))


Ray



Reply via email to