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

[Alan Ruttenberg]

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