OK, I sent this from the wrong address and it bounced. Begin forwarded message:

On tisdag, jun 22, 2004, at 09:25 Europe/Stockholm, Luke Gorrie wrote:

...

Anders Conradi <beque@telia.com> writes:

...

How do I abort the debugger and return to the repl?

Taking the ABORT restart should give you a new prompt. This is a bug. I don't have access to OpenMCL currently so I can't check it out, but hopefully someone else can.

I know we previously had a problem with restarts in SLDB on OpenMCL 0.14 but Gary and Alan fixed that one last month.

Meanwhile it could be interesting to see the contents of your *slime-events* buffer immediately after reproducing this bug.

OK. Here it is. This is after openmcl entered the kernel debugger:

(:emacs-rex (swank:connection-info) nil t (lambda (&rest --cl-rest--) (apply '(lambda (G99400 G99391) (let* ... ...)) '--cont-- --cl-rest--))) (:open-dedicated-output-stream 61225) (:indentation-update (("without-gcing" . 0) ("while" . 1) ("%ilogior" . 1) ("ignoring-without-interrupts" . 0) ("once-only" . 1) ("%with-recursive-lock-ptr" . 1) ("ensuring-node-target" . 1) ("restoring-interrupt-level" . 1) ("%with-recursive-lock-ptr-maybe" . 1) ("%ilogxor" . 1) ("in-development-mode" . 0) ("iterate" . 2) ("do-interface-dirs" . 1) ("do-db-links" . 1) ("qlfun" . 2) ("%ilogand" . 1) ("until" . 1) ("do-dll-nodes" . 1) ("collect" . 1) ("do-consing-areas" . 1) ...)) (:return (:ok (12195 "OpenMCL" "openmcl" (:asdf :primary-classes :ccl :ccl-2 :ccl-3 :ccl-4 :coral :common-lisp :mcl :openmcl :ansi-cl :processes :unix :openmcl-native-threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl-mop-2 :interfaces-2 :powerpc :ppc-target ...))) 1) (:emacs-rex (swank:listener-eval "(teddybear)") "CL-USER" :repl-thread (lambda (G99425) (let* ((tmp-99430 G99425) (op-99428 (car tmp-99430)) (rand-99429 (cdr tmp-99430))) (cond ((eql op-99428 ...) (let* ... ...)) ((eql op-99428 ...) (let* ... ... ...)) (t (error "destructure-case failed: %S" tmp-99430)))))) (:debug 3 1 ("Undefined function TEDDYBEAR called with arguments () ." " [Condition of type CCL::UNDEFINED-FUNCTION-CALL]" nil) (("CONTINUE" "Retry applying TEDDYBEAR to NIL.") ("USE-VALUE" "Apply specified function to NIL this time.") ("STORE-VALUE" "Specify a function to use as the definition of TEDDYBEAR.") ("ABORT" "Abort handling SLIME request.") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xA4BE06>") ("ABORT" "#<RESTART ABORT #xA4BE2E>")) ((0 "(CCL::CALL-CHECK-REGS 'TEDDYBEAR)") (1 "(SWANK::EVAL-REGION \"(teddybear)\" 'T)") (2 "(#<Anonymous Function #x63B7776>)") (3 "(#<STANDARD-METHOD NO-APPLICABLE-METHOD ((EQL #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS #x638668E>))> #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS #x638668E>)") (4 "(SWANK:LISTENER-EVAL \"(teddybear)\")") (5 "(CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL)") (6 "(SWANK::EVAL-FOR-EMACS '(SWANK:LISTENER-EVAL \"(teddybear)\") \"CL-USER\" 2)") (7 "(FUNCALL 'SWANK::EVAL-FOR-EMACS)") (8 "(#<Anonymous Function #x63B38FE>)") (9 "(SWANK::CALL-WITH-REDIRECTED-IO #<Anonymous Function #x63B38FE>)") (10 "(SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<TCP-STREAM (SOCKET/11) #x63D57FE> :DEDICATED-OUTPUT #<TCP-STREAM (SOCKET/12) #x63D5076> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM #x63D4C86> :USER-OUTPUT #<TCP-STREAM (SOCKET/12) #x63D5076> :USER-IO #<TWO-WAY-STREAM input #<SWANK-BACKEND::SLIME-INPUT-STREAM #x63D4C86>, output #<TCP-STREAM (SOCKET/12) #x63D5076> #x63D4C46> :READER-THREAD #<PROCESS reader-thread(4) [Active] #x63FFDEE> :CONTROL-THREAD #<PROCESS control-thread(3) [Active] #x63D440E> :REPL-THREAD #<PROCESS repl-thread(5) [Active] #x63FFB1E> :SERVE-REQUESTS #<Compiled-function SWANK::SPAWN-THREADS-FOR-CONNECTION #x63B083E> :READ #<Compiled-function SWANK::READ-FROM-CONTROL-THREAD #x63ABD7E> :SEND #<Compiled-function SWANK::SEND-TO-CONTROL-THREAD #x63AB30E> :CLEANUP NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ size 34/60 #x63D5226> :INDENTATION-CACHE-PACKAGES (#<Package \"SWANK-COMPLETION-TEST\"> #<Package \"SWANK-IO-PACKAGE\"> #<Package \"SWANK\"> #<Package \"NREGEX\"> #<Package \"SWANK-BACKEND\"> #<Package \"SWANK-LOADER\"> #<Package \"ASDF\"> #<Package \"PPC64\"> #<Package \"PPC\"> #<Package \"PPC32\"> #<Package \"ILISP\"> #<Package \"OPENMCL-MOP\"> #<Package \"GRAY\"> #<Package \"CLOS-BOOT\"> #<Package \"OPENMCL-SOCKET\"> #<Package \"INSPECTOR\"> #<Package \"OS\"> #<Package \"ARCH\"> #<Package \"ANSI-LOOP\"> #<Package \"COMMON-LISP-USER\"> #<Package \"SETF\"> #<Package \"CCL\"> #<Package \"COMMON-LISP\"> #<Package \"KEYWORD\">)))") (11 "(#<Anonymous Function #x63B01EE>)") (12 "(SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE #x641FE36>)") (13 "(SWANK::REPL-LOOP #S(SWANK::CONNECTION :SOCKET-IO #<TCP-STREAM (SOCKET/11) #x63D57FE> :DEDICATED-OUTPUT #<TCP-STREAM (SOCKET/12) #x63D5076> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM #x63D4C86> :USER-OUTPUT #<TCP-STREAM (SOCKET/12) #x63D5076> :USER-IO #<TWO-WAY-STREAM input #<SWANK-BACKEND::SLIME-INPUT-STREAM #x63D4C86>, output #<TCP-STREAM (SOCKET/12) #x63D5076> #x63D4C46> :READER-THREAD #<PROCESS reader-thread(4) [Active] #x63FFDEE> :CONTROL-THREAD #<PROCESS control-thread(3) [Active] #x63D440E> :REPL-THREAD #<PROCESS repl-thread(5) [Active] #x63FFB1E> :SERVE-REQUESTS #<Compiled-function SWANK::SPAWN-THREADS-FOR-CONNECTION #x63B083E> :READ #<Compiled-function SWANK::READ-FROM-CONTROL-THREAD #x63ABD7E> :SEND #<Compiled-function SWANK::SEND-TO-CONTROL-THREAD #x63AB30E> :CLEANUP NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ size 34/60 #x63D5226> :INDENTATION-CACHE-PACKAGES (#<Package \"SWANK-COMPLETION-TEST\"> #<Package \"SWANK-IO-PACKAGE\"> #<Package \"SWANK\"> #<Package \"NREGEX\"> #<Package \"SWANK-BACKEND\"> #<Package \"SWANK-LOADER\"> #<Package \"ASDF\"> #<Package \"PPC64\"> #<Package \"PPC\"> #<Package \"PPC32\"> #<Package \"ILISP\"> #<Package \"OPENMCL-MOP\"> #<Package \"GRAY\"> #<Package \"CLOS-BOOT\"> #<Package \"OPENMCL-SOCKET\"> #<Package \"INSPECTOR\"> #<Package \"OS\"> #<Package \"ARCH\"> #<Package \"ANSI-LOOP\"> #<Package \"COMMON-LISP-USER\"> #<Package \"SETF\"> #<Package \"CCL\"> #<Package \"COMMON-LISP\"> #<Package \"KEYWORD\">)))") (14 "(CCL::RUN-PROCESS-INITIAL-FORM '(#<COMPILED-LEXICAL-CLOSURE #x63FFA96>))") (15 "(#<Anonymous Function #x6101D3E> '(#<COMPILED-LEXICAL-CLOSURE #x63FFA96>))") (16 "(#<Anonymous Function #x60F491E>)"))) (:debug-activate 4 1) (:emacs-rex (swank:invoke-nth-restart-for-emacs 1 3) nil 3 (lambda (G99487) (let* ((tmp-99492 G99487) (op-99490 (car tmp-99492)) (rand-99491 (cdr tmp-99492))) (cond ((eql op-99490 ...) (let* ... ...)) ((eql op-99490 ...) (let* ... ...)) (t (error "destructure-case failed: %S" tmp-99492)))))) (:debug 6 2 ("Error reporting error" " [Condition of type SIMPLE-ERROR]" nil) (("ABORT" "Return to sldb level 1.") ("ABORT" "Abort handling SLIME request.") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xA4BE06>") ("ABORT" "#<RESTART ABORT #xA4BE2E>")) ((0 "(CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE #xA4B54E>)") (1 "(#<Anonymous Function #x6163E8E> -65535040)") (2 "(CCL::%XERR-DISP -65535626)") (3 "(CCL::CALL-CHECK-REGS 'SWANK:INVOKE-NTH-RESTART-FOR-EMACS)") (4 "(SWANK::EVAL-FOR-EMACS '(SWANK:INVOKE-NTH-RESTART-FOR-EMACS 1 3) 'NIL 3)") (5 "(FUNCALL 'SWANK::EVAL-FOR-EMACS)") (6 "(SWANK::SLDB-LOOP 1)") (7 "(#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)> #<Anonymous Function #x63BCA56>)") (8 "(SWANK::DEBUG-IN-EMACS #<CCL::UNDEFINED-FUNCTION-CALL #x641FA26>)") (9 "(CCL::BREAK-LOOP-HANDLE-ERROR -65534284)") (10 "(CCL::%%STANDARD-COMBINED-METHOD-DCODE)") (11 "(CCL::%ERROR 'NIL -65534284)") (12 "(CCL::DEFAULT-UNDEFINED-FUNCTION-CALL-RESTARTS -65534284)") (13 "(CCL::HANDLE-UDF-CALL -65534284)") (14 "(#<Anonymous Function #x6163E06>)") (15 "(CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE #xA4B9B6>)") (16 "(#<Anonymous Function #x6163E8E> -65534284)") (17 "(CCL::%XERR-DISP -65534870)") (18 "(CCL::CALL-CHECK-REGS 'TEDDYBEAR)") (19 "(SWANK::EVAL-REGION \"(teddybear)\" 'T)"))) (:debug-activate 7 2) (:emacs-rex (swank:invoke-nth-restart-for-emacs 2 1) nil 6 (lambda (G99533) (let* ((tmp-99538 G99533) (op-99536 (car tmp-99538)) (rand-99537 (cdr tmp-99538))) (cond ((eql op-99536 ...) (let* ... ...)) ((eql op-99536 ...) (let* ... ...)) (t (error "destructure-case failed: %S" tmp-99538))))))