(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.4776" :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 . 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" ; 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 (#) in DEFMETHOD ; 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. ; loading #P"F:\\Dokumente und Einstellungen\\Joreji\\Anwendungsdaten\\.slime\\fasl\\2008-12-02\\sbcl-1.0.19-win32-x86\\swank.fasl" 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: 3793. wait-for-event: (:EMACS-REX . SWANK::_) NIL wait-for-event/event-loop: (:EMACS-REX . SWANK::_) NIL pre wait-for-input after wait-for-input 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) -wait-for-event/event-loop: (: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-retry-restart" . 1) ("with-describe-settings" . 1) ("with-buffer-syntax" . 1) ("with-temp-package" . 1) ("without-interrupts" . 0) ("with-thread-description" . 1) ("without-slime-interrupts" . 0) ("with-io-redirection" . 1) ("with-panic-handler" . 1) ("with-slime-interrupts" . 0) ("defslimefun" . 2) ("with-top-level-restart" . 1) ("with-bindings" . 1) ("with-connection" . 1) ("do-symbols*" . 1) ("with-struct*" . 1) ("with-swank-error-handler" . 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-retry-restart" . 1) ("with-describe-settings" . 1) ("with-buffer-syntax" . 1) ("with-temp-package" . 1) ("without-interrupts" . 0) ("with-thread-description" . 1) ("without-slime-interrupts" . 0) ("with-io-redirection" . 1) ("with-panic-handler" . 1) ("with-slime-interrupts" . 0) ("defslimefun" . 2) ("with-top-level-restart" . 1) ("with-bindings" . 1) ("with-connection" . 1) ("do-symbols*" . 1) ("with-struct*" . 1) ("with-swank-error-handler" . 1))) dispatch-event: (:RETURN 0 (:OK (:PID 9792 :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 9792 :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 wait-for-event/event-loop: (:EMACS-REX . SWANK::_) NIL pre wait-for-input after wait-for-input READ: "(:emacs-rex (swank:listener-eval \"(error 'foo) \") \"COMMON-LISP-USER\" :repl-thread 2) " dispatch-event: (:EMACS-REX (SWANK:LISTENER-EVAL "(error 'foo) ") "COMMON-LISP-USER" :REPL-THREAD 2) send-event: 0 (:EMACS-REX (SWANK:LISTENER-EVAL "(error 'foo) ") "COMMON-LISP-USER" 2) -wait-for-event/event-loop: (:EMACS-REX (SWANK:LISTENER-EVAL "(error 'foo) ") "COMMON-LISP-USER" 2) 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) #)") (3 "(SWANK::EVAL-REGION \"(error 'foo)\\n\")") (4 "((LAMBDA ()))") (5 "(SWANK::TRACK-PACKAGE #)") (6 "(SWANK::CALL-WITH-RETRY-RESTART \"Retry SLIME REPL evaluation request.\" #)") (7 "(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #)") (8 "(SWANK::REPL-EVAL \"(error 'foo)\\n\")") (9 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL \"(error 'foo)\\n\") #)") (10 "(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(error 'foo)\\n\") \"COMMON-LISP-USER\" 2)") (11 "(SWANK::PROCESS-REQUESTS NIL)") (12 "((LAMBDA ()))") (13 "((FLET #:FORM-FUN1339))") (14 "((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) # #)") (15 "(SWANK::CALL-WITH-REDIRECTED-IO # #)") (16 "(SWANK::CALL-WITH-CONNECTION # #)") (17 "(SWANK::HANDLE-REQUESTS # NIL)") (18 "((LAMBDA ()))") (19 "((LAMBDA (SWANK-BACKEND::HANDLER FUNCTION)) # #)")) (2)) 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) #)") (3 "(SWANK::EVAL-REGION \"(error 'foo)\\n\")") (4 "((LAMBDA ()))") (5 "(SWANK::TRACK-PACKAGE #)") (6 "(SWANK::CALL-WITH-RETRY-RESTART \"Retry SLIME REPL evaluation request.\" #)") (7 "(SWANK::CALL-WITH-BUFFER-SYNTAX NIL #)") (8 "(SWANK::REPL-EVAL \"(error 'foo)\\n\")") (9 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL \"(error 'foo)\\n\") #)") (10 "(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(error 'foo)\\n\") \"COMMON-LISP-USER\" 2)") (11 "(SWANK::PROCESS-REQUESTS NIL)") (12 "((LAMBDA ()))") (13 "((FLET #:FORM-FUN1339))") (14 "((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) # #)") (15 "(SWANK::CALL-WITH-REDIRECTED-IO # #)") (16 "(SWANK::CALL-WITH-CONNECTION # #)") (17 "(SWANK::HANDLE-REQUESTS # NIL)") (18 "((LAMBDA ()))") (19 "((LAMBDA (SWANK-BACKEND::HANDLER FUNCTION)) # #)")) (2)) 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 wait-for-event/event-loop: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:SLDB-RETURN 2)) NIL pre wait-for-input after wait-for-input READ: "(:emacs-rex (swank:throw-to-toplevel) nil 0 3) " dispatch-event: (:EMACS-REX (SWANK:THROW-TO-TOPLEVEL) NIL 0 3) send-event: 0 (:EMACS-REX (SWANK:THROW-TO-TOPLEVEL) NIL 3) -wait-for-event/event-loop: (:EMACS-REX (SWANK:THROW-TO-TOPLEVEL) NIL 3) dispatch-event: (:RETURN 0 (:ABORT) 3) WRITE: (:return (:abort) 3) dispatch-event: (:DEBUG-RETURN 0 1 NIL) WRITE: (:debug-return 0 1 nil) wait-for-event: (:SLDB-RETURN 2) T wait-for-event/event-loop: (:SLDB-RETURN 2) T pre wait-for-input