[slime-devel] Re: slime-interrupt in openmcl

[Alan Ruttenberg]

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 at 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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/slime-devel