Helmut Eller schrieb:
- Matthew D. Swank [2008-11-12 03:16+0100] writes:
On Fri, 7 Nov 2008 10:55:47 -0600 "Matthew D. Swank" akopa@charter.net wrote:
Starting in late September, whenever I try to exit out of the debugger the repl prompt doesn't come back.
Is there anything I can do to make this easier to diagnose/fix?
It may help to add #-win32 before wait-for-input in swank-sbcl.lisp. If that doesn't help, enable swank:*log-events*.
I am actually experiencing the same problem. Adding #-win32 before "(defimplementation wait-for-input (streams &optional timeout)" does not seem to have any impact (then again, I'm not really sure as to what I should be expecting anyway). I've attached the output from the *log-events* and *inferior-lisp* with swank:*log-events* set to t. All I did in the REPL was the following: (error 'foo) upon successfull initiation of the debugger, I hit "q" which runs sldb-quit and the REPL does not respond at all.
Interesting is how I get three more lines at the end inside the *inferior-lisp* buffer using CLISP: dispatch-event: (:RETURN 0 (:ABORT) 3) WRITE: (:return (:abort) 3) wait-for-event: (:EMACS-REX . SWANK::_) NIL
It looks like the abort event is for some reason not being sent when using sbcl. I get the same result with #-win32 before wait-for-input and without.
I tried with sbcl 1.0.19, sbcl 1.0.23 - as well as with GNU EmacsW32 and GNU Emacs 22.2 (non W32 ver) on Windows XP. This is using cvs slime.
Would love to help solve this problem.
Kind regards, Thomas K.
(progn (load "f:/Programme/emacs-22.2/site-lisp/slime/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "f:/DOKUME~1/Joreji/LOKALE~1/Temp/slime.4284" :coding-system "iso-latin-1-unix"))
This is SBCL 1.0.19, an implementation of ANSI Common Lisp. More information about SBCL is available at http://www.sbcl.org/.
SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information.
This is experimental prerelease support for the Windows platform: use at your own risk. "Your Kitten of Death awaits!" * ; loading #P"f:\Programme\emacs-22.2\site-lisp\slime\swank-loader.lisp" ; loading #P"F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten\.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-backend.fasl" ; loading #P"F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten\.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-source-path-parser.fasl" ; loading #P"F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten\.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-source-file-cache.fasl"
; compiling file "f:\Programme\emacs-22.2\site-lisp\slime\swank-sbcl.lisp" (written 04 DEC 2008 10:34:37 PM):
; file: f:\Programme\emacs-22.2\site-lisp\slime\swank-sbcl.lisp ; in: DEFIMPLEMENTATION FILENAME-TO-PATHNAME ; (PARSE-NATIVE-NAMESTRING SWANK-BACKEND::FILENAME ; SWANK-BACKEND::*PHYSICAL-PATHNAME-HOST*) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: ((OR (VECTOR CHARACTER) ; (VECTOR NIL) BASE-STRING ; PATHNAME FILE-STREAM) ; &OPTIONAL ; (OR CONS SB-KERNEL:HOST ; (VECTOR CHARACTER) ; (VECTOR NIL) BASE-STRING ; (MEMBER :UNSPECIFIC ; NIL)) ; (OR (VECTOR CHARACTER) ; (VECTOR NIL) BASE-STRING ; PATHNAME FILE-STREAM) ; &KEY ; (:START (MOD 536870911)) ; (:END ; (OR (MOD 536870911) NULL)) ; (:JUNK-ALLOWED T) ; (:AS-DIRECTORY T))
; in: DEFUN SET-SIGIO-HANDLER ; (SB-SYS:ENABLE-INTERRUPT SB-UNIX:SIGIO ; (LAMBDA (SIGNAL SWANK-BACKEND::CODE SWANK-BACKEND::SCP) ; (SWANK-BACKEND::SIGIO-HANDLER SIGNAL SWANK-BACKEND::CODE ; SWANK-BACKEND::SCP))) ; ; caught STYLE-WARNING: ; undefined function: SB-SYS:ENABLE-INTERRUPT
; in: DEFUN ENABLE-SIGIO-ON-FD ; (SB-POSIX::FCNTL SWANK-BACKEND::FD SB-POSIX:F-SETFL SB-POSIX:O-ASYNC) ; ; caught WARNING: ; undefined variable: SB-POSIX:F-SETFL
; (SB-POSIX::FCNTL SWANK-BACKEND::FD SB-POSIX:F-SETOWN (SWANK-BACKEND:GETPID)) ; ; caught WARNING: ; undefined variable: SB-POSIX:F-SETOWN
; (SB-POSIX::FCNTL SWANK-BACKEND::FD SB-POSIX:F-SETFL SB-POSIX:O-ASYNC) ; ; caught STYLE-WARNING: ; undefined function: SB-POSIX::FCNTL ; ; caught WARNING: ; undefined variable: SB-POSIX:O-ASYNC
; in: DEFUN SET-SIGIO-HANDLER ; (SB-SYS:ENABLE-INTERRUPT SB-UNIX:SIGIO ; (LAMBDA (SIGNAL SWANK-BACKEND::CODE SWANK-BACKEND::SCP) ; (SWANK-BACKEND::SIGIO-HANDLER SIGNAL SWANK-BACKEND::CODE ; SWANK-BACKEND::SCP))) ; ; caught WARNING: ; undefined variable: SB-UNIX:SIGIO
; ; caught WARNING: ; These variables are undefined: ; SB-POSIX:F-SETFL SB-POSIX:F-SETOWN SB-POSIX:O-ASYNC SB-UNIX:SIGIO
; ; caught STYLE-WARNING: ; These functions are undefined: ; SB-SYS:ENABLE-INTERRUPT SB-POSIX::FCNTL ; ; compilation unit finished ; caught 5 WARNING conditions ; caught 4 STYLE-WARNING conditions
; F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-sbcl.fasl written ; compilation finished in 0:00:01 ; loading #P"F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten\.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-sbcl.fasl" STYLE-WARNING: redefining EMACS-INSPECT (#<BUILT-IN-CLASS T>) in DEFMETHOD ; compiling file "f:\Programme\emacs-22.2\site-lisp\slime\swank-gray.lisp" (written 04 DEC 2008 08:36:16 PM):
; F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-gray.fasl written ; compilation finished in 0:00:01 ; loading #P"F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten\.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank-gray.fasl" STYLE-WARNING: Implicitly creating new generic function STREAM-READ-CHAR-WILL-HANG-P. ; compiling file "f:\Programme\emacs-22.2\site-lisp\slime\swank.lisp" (written 04 DEC 2008 08:36:19 PM):
; F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank.fasl written ; compilation finished in 0:00:01 ; loading #P"F:\Dokumente und Einstellungen\Joreji\Anwendungsdaten\.slime\fasl\2008-12-02\sbcl-1.0.19-win32-x86\swank.fasl" WARNING: SWANK also exports the following symbols: (SWANK:SIMPLE-COMPLETIONS SWANK:PPRINT-EVAL SWANK:INSPECTOR-RANGE SWANK:LISTENER-EVAL SWANK:SLDB-ABORT SWANK:STATE-STACK SWANK:START-SWANK-SERVER-IN-THREAD SWANK:DESCRIBE-SYMBOL SWANK:INTERACTIVE-EVAL SWANK:SLDB-BREAK-WITH-DEFAULT-DEBUGGER SWANK:KILL-NTH-THREAD SWANK:PPRINT-INSPECTOR-PART SWANK:SWANK-REQUIRE SWANK:SET-PACKAGE SWANK:SWANK-MACROEXPAND SWANK:INVOKE-NTH-RESTART-FOR-EMACS SWANK:COMPILE-FILE-IF-NEEDED SWANK:INSPECTOR-POP SWANK:LOAD-FILE SWANK:RE-EVALUATE-DEFVAR SWANK:VALUE-FOR-EDITING SWANK:SLDB-RETURN-FROM-FRAME SWANK:INSPECT-FRAME-VAR SWANK:UNTRACE-ALL SWANK:SLDB-DISASSEMBLE SWANK:SWANK-MACROEXPAND-ALL SWANK:PPRINT-EVAL-STRING-IN-FRAME SWANK:FIND-DEFINITION-FOR-THING SWANK:QUIT-INSPECTOR SWANK:SLDB-OUT SWANK:APROPOS-LIST-FOR-EMACS SWANK:INIT-INSPECTOR SWANK:FRAME-LOCALS-AND-CATCH-TAGS SWANK:TOGGLE-PROFILE-FDEFINITION SWANK:OPERATOR-ARGLIST SWANK:UNDEFINE-FUNCTION SWANK:SWANK-COMPILER-MACROEXPAND-1 SWANK:INSPECTOR-TOGGLE-VERBOSE SWANK:DESCRIBE-FUNCTION SWANK:IO-SPEED-TEST SWANK:SIMPLE-BREAK SWANK:INSPECTOR-CALL-NTH-ACTION SWANK:BACKTRACE SWANK:EVAL-AND-GRAB-OUTPUT SWANK:LIST-THREADS SWANK:UPDATE-INDENTATION-INFORMATION SWANK:COMPILE-MULTIPLE-STRINGS-FOR-EMACS SWANK:INSPECT-IN-FRAME SWANK:REDIRECT-TRACE-OUTPUT SWANK:SWANK-COMPILER-MACROEXPAND SWANK:QUIT-THREAD-BROWSER SWANK:INTERACTIVE-EVAL-REGION SWANK:INSPECT-NTH-PART SWANK:LIST-ALL-PACKAGE-NAMES SWANK:DISASSEMBLE-SYMBOL SWANK:EVAL-STRING-IN-FRAME SWANK:COMPILE-STRING-FOR-EMACS SWANK:PING SWANK:INSPECTOR-NEXT SWANK:SWANK-TOGGLE-TRACE SWANK:DESCRIBE-DEFINITION-FOR-EMACS SWANK:COMMIT-EDITED-VALUE SWANK:DEBUG-NTH-THREAD SWANK:DOCUMENTATION-SYMBOL SWANK:DEBUGGER-INFO-FOR-EMACS SWANK:DESCRIBE-INSPECTEE SWANK:XREF SWANK:SLDB-NEXT SWANK:FIND-SOURCE-LOCATION-FOR-EMACS SWANK:INSPECT-CURRENT-CONDITION SWANK:SLDB-CONTINUE SWANK:CONNECTION-INFO SWANK:FIND-DEFINITIONS-FOR-EMACS SWANK:MOP SWANK:THROW-TO-TOPLEVEL SWANK:INSPECTOR-NTH-PART SWANK:SWANK-MACROEXPAND-1 SWANK:INVOKE-NTH-RESTART SWANK:INSPECTOR-REINSPECT SWANK:COMPILE-FILE-FOR-EMACS) See also: The ANSI Standard, Macro DEFPACKAGE WARNING: These Swank interfaces are unimplemented: (ALL-THREADS CALLS-WHO DISASSEMBLE-FRAME INTERRUPT-THREAD RECEIVE-IF SAVE-IMAGE SEND SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN SPAWN WHO-SPECIALIZES) ;; Swank started at port: 1582. wait-for-event: (:EMACS-REX . SWANK::_) NIL READ: "(:emacs-rex (swank:connection-info) nil t 1) " dispatch-event: (:EMACS-REX (SWANK:CONNECTION-INFO) NIL T 1) send-event: 0 (:EMACS-REX (SWANK:CONNECTION-INFO) NIL 1) dispatch-event: (:INDENTATION-UPDATE (("without-package-locks" . 0) ("with-timeout" . 1) ("define-source-context" . 2) ("with-unlocked-packages" . 1) ("with-locked-hash-table" . 1) ("with-unique-names" . 1) ("defun-cached" . 2) ("with-sane-io-syntax" . 0) ("once-only" . 1) ("with-rebound-io-syntax" . 0) ("defmacro-mundanely" . 2) ("awhen" . 1) ("define-function-name-syntax" . 2) ("dohash" . 1) ("named-lambda" . 2) ("dovector" . 1) ("binding*" . 1) ("with-float-traps-masked" . 1) ("named-let" . 2) ("do-info" . 1) ("prepare-for-fast-read-byte" . 1) ("dx-flet" . 1) ("prepare-for-fast-read-char" . 1) ("dx-let" . 1) ("collect" . 1) ("maybe-pseudo-atomic" . 1) ("with-cycle-counter" . 0) ("with-empty-tn@fp-top" . 1) ("with-tn@fp-top" . 1) ("with-fixed-allocation" . 1) ("descend-into" . 1) ("with-single-package-locked-error" . 1) ("with-circularity-detection" . 1) ("number-dispatch" . 1) ("with-local-interrupts" . 0) ("allow-with-interrupts" . 0) ("without-gcing" . 0) ("with-deadline" . 1) ("without-interrupts" . 0) ("with-interrupts" . 0) ("with-pinned-objects" . 1) ("with-active-processes-lock" . 1) ("def-output-routines" . 1) ("with-default-decoding-replacement" . 1) ("with-c-strvec" . 1) ("with-stepping-enabled" . 0) ("define-sequence-traverser" . 2) ("output-wrapper" . 1) ("string-dispatch" . 2) ("with-finalizer-store-lock" . 0) ("with-pathname" . 1) ("with-available-buffers-lock" . 1) ("with-stepping-disabled" . 0) ("with-host" . 1) ("with-symbol" . 1) ("with-push-char" . 1) ("lambda-with-lexenv" . 3) ("with-hash-table-locks" . 1) ("def-output-routines/variable-width" . 1) ("with-reader" . 1) ("input-wrapper" . 1) ("with-packages" . 1) ("with-standard-replacement-character" . 0) ("with-native-pathname" . 1) ("with-descriptor-handlers" . 0) ("input-wrapper/variable-width" . 1) ("output-wrapper/variable-width" . 1) ("with-concurrent-access-check" . 2) ("with-scheduler-lock" . 1) ("handling-end-of-the-world" . 0) ("do-debug-block-locations" . 1) ("do-debug-fun-vars" . 1) ("do-debug-fun-blocks" . 1) ("maybe-with-pinned-objects" . 2) ("define-alien-type-translator" . 2) ("bind-fast-lexical-method-functions" . 1) ("pv-binding" . 1) ("dolist-carefully" . 1) ("bind-args" . 1) ("with-dfun-wrappers" . 3) ("simple-lexical-method-functions" . 1) ("with-pcl-lock" . 0) ("doplist" . 2) ("with-type-checked" . 1) ("pv-binding1" . 1) ("dotimes-fixnum" . 1) ("dfun-miss" . 1) ("fast-lexical-method-functions" . 1) ("bind-simple-lexical-method-functions" . 1) ("with-alien" . 1) ("define-alien-callback" . 3) ("alien-lambda" . 2) ("with-auxiliary-alien-types" . 1) ("define-instruction-macro" . 2) ("without-scheduling" . 1) ("assemble" . 1) ("do-sset-elements" . 1) ("note-dependencies" . 1) ("with-modified-segment-index-and-posn" . 1) ("sc-case" . 1) ("deftransform" . 2) ("define-vop" . 1) ("with-source-location" . 1) ("define-source-transform" . 2) ("defoptimizer" . 2) ("defknown" . 4) ("source-transform-lambda" . 1) ("define-move-fun" . 3) ("define-assembly-routine" . 2) ("def-ir1-translator" . 2) ("with-component-last-block" . 1) ("define-internal-pcl-function-name-syntax" . 1) ("do-nodes-carefully" . 1) ("do-ir2-blocks" . 1) ("with-fun-name-leaf" . 1) ("do-blocks" . 1) ("with-ir1-namespace" . 0) ("with-compilation-values" . 0) ("do-forms-from-info" . 1) ("with-compiler-io-syntax" . 0) ("do-packed-tns" . 1) ("do-live-tns" . 1) ("define-modular-fun-optimizer" . 2) ("do-eql-vars" . 1) ("do-nodes" . 1) ("do-sc-pairs" . 1) ("do-physenv-ir2-blocks" . 1) ("do-blocks-backwards" . 1) ("do-nodes-backwards" . 1) ("processing-decls" . 1) ("do-uses" . 1) ("with-fop-stack" . 1) ("expand-bind-defaults" . 2) ("def-format-directive" . 2) ("def-complex-format-directive" . 2) ("with-new-session" . 1) ("with-mutex" . 1) ("with-recursive-lock" . 1) ("with-spinlock" . 1) ("with-session-lock" . 1) ("with-system-mutex" . 1) ("with-all-threads-lock" . 0) ("with-recursive-spinlock" . 1) ("with-interruptions-lock" . 1) ("with-recursive-system-spinlock" . 1) ("with-system-spinlock" . 1) ("with-pretty-stream" . 1) ("with-sequence-iterator" . 2) ("dosequence" . 1) ("with-sequence-iterator-functions" . 2) ("with-new-definition-in-environment" . 1) ("with-augmented-environment" . 1) ("walker-environment-bind" . 1) ("program-destructuring-bind" . 2) ("with-process-times" . 1) ("with-sysfun" . 1) ("with-funcname" . 1) ("with-loop-list-collection-head" . 1) ("with-minimax-value" . 1) ("with-compilation-hooks" . 1) ("with-struct" . 2) ("with-debootstrapping" . 0) ("with-slime-output-stream" . 1) ("defimplementation" . 2) ("defsystem" . 1) ("with-hostent" . 2) ("with-wsa-data" . 2) ("with-sockaddr-in" . 2) ("with-array-data" . 1) ("with-protoent" . 2) ("with-in-addr" . 2) ("with-vector-sap" . 1) ("with-sockaddr-for" . 1) ("with-alien-stat" . 2) ("with-dirent" . 2) ("define-entry-point" . 2) ("with-growing-c-string" . 1) ("define-designator" . 2) ("with-slime-interrupts" . 0) ("with-buffer-syntax" . 1) ("with-connection" . 1) ("with-top-level-restart" . 1) ("without-slime-interrupts" . 0) ("with-describe-settings" . 1) ("defslimefun" . 2) ("do-symbols*" . 1) ("with-bindings" . 1) ("with-retry-restart" . 1) ("without-interrupts" . 0) ("with-thread-description" . 1) ("with-temp-package" . 1) ("with-swank-error-handler" . 1) ("with-struct*" . 1) ("with-panic-handler" . 1) ("with-io-redirection" . 1))) WRITE: (:indentation-update (("without-package-locks" . 0) ("with-timeout" . 1) ("define-source-context" . 2) ("with-unlocked-packages" . 1) ("with-locked-hash-table" . 1) ("with-unique-names" . 1) ("defun-cached" . 2) ("with-sane-io-syntax" . 0) ("once-only" . 1) ("with-rebound-io-syntax" . 0) ("defmacro-mundanely" . 2) ("awhen" . 1) ("define-function-name-syntax" . 2) ("dohash" . 1) ("named-lambda" . 2) ("dovector" . 1) ("binding*" . 1) ("with-float-traps-masked" . 1) ("named-let" . 2) ("do-info" . 1) ("prepare-for-fast-read-byte" . 1) ("dx-flet" . 1) ("prepare-for-fast-read-char" . 1) ("dx-let" . 1) ("collect" . 1) ("maybe-pseudo-atomic" . 1) ("with-cycle-counter" . 0) ("with-empty-tn@fp-top" . 1) ("with-tn@fp-top" . 1) ("with-fixed-allocation" . 1) ("descend-into" . 1) ("with-single-package-locked-error" . 1) ("with-circularity-detection" . 1) ("number-dispatch" . 1) ("with-local-interrupts" . 0) ("allow-with-interrupts" . 0) ("without-gcing" . 0) ("with-deadline" . 1) ("without-interrupts" . 0) ("with-interrupts" . 0) ("with-pinned-objects" . 1) ("with-active-processes-lock" . 1) ("def-output-routines" . 1) ("with-default-decoding-replacement" . 1) ("with-c-strvec" . 1) ("with-stepping-enabled" . 0) ("define-sequence-traverser" . 2) ("output-wrapper" . 1) ("string-dispatch" . 2) ("with-finalizer-store-lock" . 0) ("with-pathname" . 1) ("with-available-buffers-lock" . 1) ("with-stepping-disabled" . 0) ("with-host" . 1) ("with-symbol" . 1) ("with-push-char" . 1) ("lambda-with-lexenv" . 3) ("with-hash-table-locks" . 1) ("def-output-routines/variable-width" . 1) ("with-reader" . 1) ("input-wrapper" . 1) ("with-packages" . 1) ("with-standard-replacement-character" . 0) ("with-native-pathname" . 1) ("with-descriptor-handlers" . 0) ("input-wrapper/variable-width" . 1) ("output-wrapper/variable-width" . 1) ("with-concurrent-access-check" . 2) ("with-scheduler-lock" . 1) ("handling-end-of-the-world" . 0) ("do-debug-block-locations" . 1) ("do-debug-fun-vars" . 1) ("do-debug-fun-blocks" . 1) ("maybe-with-pinned-objects" . 2) ("define-alien-type-translator" . 2) ("bind-fast-lexical-method-functions" . 1) ("pv-binding" . 1) ("dolist-carefully" . 1) ("bind-args" . 1) ("with-dfun-wrappers" . 3) ("simple-lexical-method-functions" . 1) ("with-pcl-lock" . 0) ("doplist" . 2) ("with-type-checked" . 1) ("pv-binding1" . 1) ("dotimes-fixnum" . 1) ("dfun-miss" . 1) ("fast-lexical-method-functions" . 1) ("bind-simple-lexical-method-functions" . 1) ("with-alien" . 1) ("define-alien-callback" . 3) ("alien-lambda" . 2) ("with-auxiliary-alien-types" . 1) ("define-instruction-macro" . 2) ("without-scheduling" . 1) ("assemble" . 1) ("do-sset-elements" . 1) ("note-dependencies" . 1) ("with-modified-segment-index-and-posn" . 1) ("sc-case" . 1) ("deftransform" . 2) ("define-vop" . 1) ("with-source-location" . 1) ("define-source-transform" . 2) ("defoptimizer" . 2) ("defknown" . 4) ("source-transform-lambda" . 1) ("define-move-fun" . 3) ("define-assembly-routine" . 2) ("def-ir1-translator" . 2) ("with-component-last-block" . 1) ("define-internal-pcl-function-name-syntax" . 1) ("do-nodes-carefully" . 1) ("do-ir2-blocks" . 1) ("with-fun-name-leaf" . 1) ("do-blocks" . 1) ("with-ir1-namespace" . 0) ("with-compilation-values" . 0) ("do-forms-from-info" . 1) ("with-compiler-io-syntax" . 0) ("do-packed-tns" . 1) ("do-live-tns" . 1) ("define-modular-fun-optimizer" . 2) ("do-eql-vars" . 1) ("do-nodes" . 1) ("do-sc-pairs" . 1) ("do-physenv-ir2-blocks" . 1) ("do-blocks-backwards" . 1) ("do-nodes-backwards" . 1) ("processing-decls" . 1) ("do-uses" . 1) ("with-fop-stack" . 1) ("expand-bind-defaults" . 2) ("def-format-directive" . 2) ("def-complex-format-directive" . 2) ("with-new-session" . 1) ("with-mutex" . 1) ("with-recursive-lock" . 1) ("with-spinlock" . 1) ("with-session-lock" . 1) ("with-system-mutex" . 1) ("with-all-threads-lock" . 0) ("with-recursive-spinlock" . 1) ("with-interruptions-lock" . 1) ("with-recursive-system-spinlock" . 1) ("with-system-spinlock" . 1) ("with-pretty-stream" . 1) ("with-sequence-iterator" . 2) ("dosequence" . 1) ("with-sequence-iterator-functions" . 2) ("with-new-definition-in-environment" . 1) ("with-augmented-environment" . 1) ("walker-environment-bind" . 1) ("program-destructuring-bind" . 2) ("with-process-times" . 1) ("with-sysfun" . 1) ("with-funcname" . 1) ("with-loop-list-collection-head" . 1) ("with-minimax-value" . 1) ("with-compilation-hooks" . 1) ("with-struct" . 2) ("with-debootstrapping" . 0) ("with-slime-output-stream" . 1) ("defimplementation" . 2) ("defsystem" . 1) ("with-hostent" . 2) ("with-wsa-data" . 2) ("with-sockaddr-in" . 2) ("with-array-data" . 1) ("with-protoent" . 2) ("with-in-addr" . 2) ("with-vector-sap" . 1) ("with-sockaddr-for" . 1) ("with-alien-stat" . 2) ("with-dirent" . 2) ("define-entry-point" . 2) ("with-growing-c-string" . 1) ("define-designator" . 2) ("with-slime-interrupts" . 0) ("with-buffer-syntax" . 1) ("with-connection" . 1) ("with-top-level-restart" . 1) ("without-slime-interrupts" . 0) ("with-describe-settings" . 1) ("defslimefun" . 2) ("do-symbols*" . 1) ("with-bindings" . 1) ("with-retry-restart" . 1) ("without-interrupts" . 0) ("with-thread-description" . 1) ("with-temp-package" . 1) ("with-swank-error-handler" . 1) ("with-struct*" . 1) ("with-panic-handler" . 1) ("with-io-redirection" . 1))) dispatch-event: (:RETURN 0 (:OK (:PID 9544 :STYLE NIL :LISP-IMPLEMENTATION (:TYPE "SBCL" :NAME "sbcl" :VERSION "1.0.19") :MACHINE (:INSTANCE "HELLSHEAVEN" :TYPE "X86" :VERSION NIL) :FEATURES (:ASDF :ANSI-CL :COMMON-LISP :SBCL :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :IEEE-FLOATING-POINT :X86 :WIN32 :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD :C-STACK-IS-CONTROL-STACK :COMPARE-AND-SWAP-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :RAW-INSTANCE-INIT-VOPS :STACK-ALLOCATABLE-CLOSURES :ALIEN-CALLBACKS :CYCLE-COUNTER :LINKAGE-TABLE :OS-PROVIDES-DLOPEN :OS-PROVIDES-PUTWC) :MODULES ("SB-CLTL2" "SB-POSIX" "SB-INTROSPECT" "SB-BSD-SOCKETS" "SB-GROVEL" "ASDF") :PACKAGE (:NAME "COMMON-LISP-USER" :PROMPT "CL-USER") :VERSION "2008-12-02")) 1) WRITE: (:return (:ok (:pid 9544 :style nil :lisp-implementation (:type "SBCL" :name "sbcl" :version "1.0.19") :machine (:instance "HELLSHEAVEN" :type "X86" :version nil) :features (:asdf :ansi-cl :common-lisp :sbcl :sb-doc :sb-test :sb-ldb :sb-package-locks :sb-unicode :sb-eval :sb-source-locations :ieee-floating-point :x86 :win32 :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :compare-and-swap-vops :unwind-to-frame-and-call-vop :raw-instance-init-vops :stack-allocatable-closures :alien-callbacks :cycle-counter :linkage-table :os-provides-dlopen :os-provides-putwc) :modules ("SB-CLTL2" "SB-POSIX" "SB-INTROSPECT" "SB-BSD-SOCKETS" "SB-GROVEL" "ASDF") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-12-02")) 1) wait-for-event: (:EMACS-REX . SWANK::_) NIL READ: "(:emacs-rex (swank:operator-arglist "error" "COMMON-LISP-USER") "COMMON-LISP-USER" :repl-thread 2) " dispatch-event: (:EMACS-REX (SWANK:OPERATOR-ARGLIST "error" "COMMON-LISP-USER") "COMMON-LISP-USER" :REPL-THREAD 2) send-event: 0 (:EMACS-REX (SWANK:OPERATOR-ARGLIST "error" "COMMON-LISP-USER") "COMMON-LISP-USER" 2) dispatch-event: (:RETURN 0 (:OK "(error DATUM &REST ARGUMENTS)") 2) WRITE: (:return (:ok "(error DATUM &REST ARGUMENTS)") 2) wait-for-event: (:EMACS-REX . SWANK::_) NIL READ: "(:emacs-rex (swank:listener-eval "(error 'foo)
") "COMMON-LISP-USER" :repl-thread 3) " dispatch-event: (:EMACS-REX (SWANK:LISTENER-EVAL "(error 'foo)
") "COMMON-LISP-USER" :REPL-THREAD 3) send-event: 0 (:EMACS-REX (SWANK:LISTENER-EVAL "(error 'foo)
") "COMMON-LISP-USER" 3) dispatch-event: (:DEBUG 0 1 ("Bad type argument: FOO" " [Condition of type SIMPLE-TYPE-ERROR]" NIL) (("RETRY" "Retry SLIME REPL evaluation request.") ("ABORT" "Return to SLIME's top level.") ("CLOSE-CONNECTION" "Close SLIME connection") ("ABORT" "Exit debugger, returning to top level.")) ((0 "(MAKE-CONDITION FOO)[:EXTERNAL]") (1 "(ERROR FOO)[:EXTERNAL]") (2 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR 'FOO) #<NULL-LEXENV>)") (3 "(SWANK::EVAL-REGION "(error 'foo)\n\n")") (4 "((LAMBDA ()))") (5 "(SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {249FFCC5}>)") (6 "(SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA #) {249FFC55}>)") (7 "(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {249FFC3D}>)") (8 "(SWANK::REPL-EVAL "(error 'foo)\n\n")") (9 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(error 'foo)\n\n") #<NULL-LEXENV>)") (10 "(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(error 'foo)\n\n") "COMMON-LISP-USER" 3)") (11 "(SWANK::PROCESS-REQUESTS NIL)") (12 "((LAMBDA ()))") (13 "((FLET #:FORM-FUN1276))") (14 "((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {249814F5}>)") (15 "(SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {248970F9}> #<CLOSURE (LAMBDA #) {24981505}>)") (16 "(SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {248970F9}> #<CLOSURE (LAMBDA #) {249814F5}>)") (17 "(SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {248970F9}> NIL)") (18 "((LAMBDA ()))") (19 "((LAMBDA (SWANK-BACKEND::HANDLER FUNCTION)) #<FUNCTION (LAMBDA #) {246800AD}> #<CLOSURE (LAMBDA #) {2498148D}>)")) (3)) WRITE: (:debug 0 1 ("Bad type argument: FOO" " [Condition of type SIMPLE-TYPE-ERROR]" nil) (("RETRY" "Retry SLIME REPL evaluation request.") ("ABORT" "Return to SLIME's top level.") ("CLOSE-CONNECTION" "Close SLIME connection") ("ABORT" "Exit debugger, returning to top level.")) ((0 "(MAKE-CONDITION FOO)[:EXTERNAL]") (1 "(ERROR FOO)[:EXTERNAL]") (2 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR 'FOO) #<NULL-LEXENV>)") (3 "(SWANK::EVAL-REGION "(error 'foo)\n\n")") (4 "((LAMBDA ()))") (5 "(SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {249FFCC5}>)") (6 "(SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA #) {249FFC55}>)") (7 "(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {249FFC3D}>)") (8 "(SWANK::REPL-EVAL "(error 'foo)\n\n")") (9 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(error 'foo)\n\n") #<NULL-LEXENV>)") (10 "(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(error 'foo)\n\n") "COMMON-LISP-USER" 3)") (11 "(SWANK::PROCESS-REQUESTS NIL)") (12 "((LAMBDA ()))") (13 "((FLET #:FORM-FUN1276))") (14 "((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {249814F5}>)") (15 "(SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {248970F9}> #<CLOSURE (LAMBDA #) {24981505}>)") (16 "(SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {248970F9}> #<CLOSURE (LAMBDA #) {249814F5}>)") (17 "(SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {248970F9}> NIL)") (18 "((LAMBDA ()))") (19 "((LAMBDA (SWANK-BACKEND::HANDLER FUNCTION)) #<FUNCTION (LAMBDA #) {246800AD}> #<CLOSURE (LAMBDA #) {2498148D}>)")) (3)) dispatch-event: (:DEBUG-ACTIVATE 0 1 NIL) WRITE: (:debug-activate 0 1 nil) wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:SLDB-RETURN 2)) NIL READ: "(:emacs-rex (swank:throw-to-toplevel) nil 0 4) " dispatch-event: (:EMACS-REX (SWANK:THROW-TO-TOPLEVEL) NIL 0 4) send-event: 0 (:EMACS-REX (SWANK:THROW-TO-TOPLEVEL) NIL 4) dispatch-event: (:RETURN 0 (:ABORT) 4) WRITE: (:return (:abort) 4) dispatch-event: (:DEBUG-RETURN 0 1 NIL) WRITE: (:debug-return 0 1 nil) wait-for-event: (:SLDB-RETURN 2) T
(:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("without-package-locks" . 0) ("with-timeout" . 1) ("define-source-context" . 2) ("with-unlocked-packages" . 1) ("with-locked-hash-table" . 1) ("with-unique-names" . 1) ("defun-cached" . 2) ("with-sane-io-syntax" . 0) ("once-only" . 1) ("with-rebound-io-syntax" . 0) ("defmacro-mundanely" . 2) ("awhen" . 1) ("define-function-name-syntax" . 2) ("dohash" . 1) ("named-lambda" . 2) ("dovector" . 1) ("binding*" . 1) ("with-float-traps-masked" . 1) ("named-let" . 2) ("do-info" . 1) ...)) (:return (:ok (:pid 9544 :style nil :lisp-implementation (:type "SBCL" :name "sbcl" :version "1.0.19") :machine (:instance "HELLSHEAVEN" :type "X86" :version nil) :features (:asdf :ansi-cl :common-lisp :sbcl :sb-doc :sb-test :sb-ldb :sb-package-locks :sb-unicode :sb-eval :sb-source-locations :ieee-floating-point :x86 :win32 :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :compare-and-swap-vops :unwind-to-frame-and-call-vop :raw-instance-init-vops ...) :modules ("SB-CLTL2" "SB-POSIX" "SB-INTROSPECT" "SB-BSD-SOCKETS" "SB-GROVEL" "ASDF") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2008-12-02")) 1) (:emacs-rex (swank:operator-arglist "error" "COMMON-LISP-USER") "COMMON-LISP-USER" :repl-thread 2) (:return (:ok "(error DATUM &REST ARGUMENTS)") 2) (:emacs-rex (swank:listener-eval "(error 'foo)\n\n") "COMMON-LISP-USER" :repl-thread 3) (:debug 0 1 ("Bad type argument:\n FOO" " [Condition of type SIMPLE-TYPE-ERROR]" nil) (("RETRY" "Retry SLIME REPL evaluation request.") ("ABORT" "Return to SLIME's top level.") ("CLOSE-CONNECTION" "Close SLIME connection") ("ABORT" "Exit debugger, returning to top level.")) ((0 "(MAKE-CONDITION FOO)[:EXTERNAL]") (1 "(ERROR FOO)[:EXTERNAL]") (2 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR 'FOO) #<NULL-LEXENV>)") (3 "(SWANK::EVAL-REGION "(error 'foo)\n\n")") (4 "((LAMBDA ()))") (5 "(SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {249FFCC5}>)") (6 "(SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA #) {249FFC55}>)") (7 "(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {249FFC3D}>)") (8 "(SWANK::REPL-EVAL "(error 'foo)\n\n")") (9 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(error 'foo)\n\n") #<NULL-LEXENV>)") (10 "(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(error 'foo)\n\n") "COMMON-LISP-USER" 3)") (11 "(SWANK::PROCESS-REQUESTS NIL)") (12 "((LAMBDA ()))") (13 "((FLET #:FORM-FUN1276))") (14 "((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {249814F5}>)") (15 "(SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {248970F9}> #<CLOSURE (LAMBDA #) {24981505}>)") (16 "(SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {248970F9}> #<CLOSURE (LAMBDA #) {249814F5}>)") (17 "(SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {248970F9}> NIL)") (18 "((LAMBDA ()))") (19 "((LAMBDA (SWANK-BACKEND::HANDLER FUNCTION)) #<FUNCTION (LAMBDA #) {246800AD}> #<CLOSURE (LAMBDA #) {2498148D}>)")) (3)) (:debug-activate 0 1 nil) (:emacs-rex (swank:throw-to-toplevel) nil 0 4) (:return (:abort) 4) (:debug-return 0 1 nil)