This is better
(let ((ccl::*warn-if-redefine-kernel* nil)) (defun ccl::force-break-in-listener (p) (ccl::process-interrupt p #'(lambda () (ccl::ignoring-without-interrupts (let ((*swank-debugger-stack-frame* nil) (previous-f nil)) (block find-frame (map-backtrace #'(lambda(frame-number p tcr lfun pc) (declare (ignore frame-number tcr pc)) (when (eq previous-f 'ccl::%pascal-functions%) (setq *swank-debugger-stack-frame* p) (return-from find-frame)) (setq previous-f (ccl::lfun-name lfun))))) (invoke-debugger) (clear-input *terminal-io*)))))))
On Dec 15, 2003, at 11:09 AM, Luke Gorrie wrote:
Alan Ruttenberg alanralanr@comcast.net writes:
Sorry about that:
Committed- thanks!
Sven, if you update from CVS you'll now get the C-cC-c interrupt behaviour you want due to this fix.
slime-devel site list slime-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel