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> ")
MYPROMPT
* (setf *prompt* #'myprompt)
#<Interpreted Function MYPROMPT {4801D551}>
CMUCL>
..so far, so good..
CMUCL> (setf debug:*debug-prompt* #'myprompt)
#<Interpreted Function MYPROMPT {4801D551}>
CMUCL> (no-such-function)
.. now, at this point I would hope to enter the debugger and be given a
"CMUCL>" prompt, but this doesn't happen. In fact, what happens is quite
mysterious to me :)
Along with the expected warning about "no-such-function" not existing,
and some debugger kruft I get the following:
(KERNEL:%COERCE-TO-FUNCTION NO-SUCH-FUNCTION)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer
exists:
..and since I don't get a "CMUCL>" prompt, the mission has failed.
