Sorry about that:
(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-p nil)) (block find-frame (map-backtrace #'(lambda(frame-number p tcr lfun pc) (declare (ignore frame-number tcr pc)) (when (eq (ccl::lfun-name lfun) 'swank::eval-region) (setq *swank-debugger-stack-frame* previous-p) (return-from find-frame)) (setq previous-p p)))) (invoke-debugger) (clear-input *terminal-io*)))))))
-Alan On Dec 15, 2003, at 9:27 AM, Luke Gorrie wrote:
Alan Ruttenberg alanralanr@comcast.net writes:
Then add this redefinition
(defun ccl::force-break-in-listener (p) (ccl::process-interrupt p
Is there something extra needed? I get this in "(Alpha: Darwin) 0.14-031018":
Error in process listener(1): The function CCL::FORCE-BREAK-IN-LISTENER is predefined in OpenMCL. While executing: CCL::REDEFINE-KERNEL-FUNCTION Type :GO to continue, :POP to abort. If continued: Replace the definition of CCL::FORCE-BREAK-IN-LISTENER.
Type :? for other options.
slime-devel site list slime-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/slime-devel