In current CVS HEAD using Carbon Emacs from CVS (2004-10-29) and OpenMCL I'm thrown immediately into the debugger when I do M-x slime. a does not get me out:
In the *sldb* buffer:
No applicable method for args: (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>) to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146> [Condition of type SIMPLE-ERROR]
Restarts: 0: [ABORT] #<RESTART ABORT #xC8F76> 1: [ABORT-BREAK] #<RESTART ABORT-BREAK #xC8F9E>
Backtrace: 0: (#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>) 1: (CCL::EVENT-POLL) 2: (CCL::HOUSEKEEPING) 3: (#<Anonymous Function #x60F911E>)
In the *slime-events* buffer:
(:emacs-rex (swank:connection-info) nil t 1) (:open-dedicated-output-stream 52683) (:indentation-update (("with-lock-grabbed-maybe" . 1) ("with-ioblock-input-locked" . 1) ("with-package-write-lock" . 1) ("with-slot-values" . 2) ("with-eagain" . 2) ("without-gcing" . 0) ("with-restart" . 1) ("with-auxiliary-foreign-types" . 0) ("with-ppc-local-vinsn-macros" . 1) ("with-package-read-lock" . 1) ("while" . 1) ("%ilogior" . 1) ("with-call-method-context" . 1) ("with-dll-node-freelist" . 1) ("with-open-dir" . 1) ("ignoring-without-interrupts" . 0) ("with-area-macptr" . 1) ("with-standard-abort-handling" . 1) ("once-only" . 1) ("def-kernel-restart" . 3) ...)) (:return (:ok (25784 "OpenMCL" "openmcl" (:cltl2 :mcl2.0 :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 ...) :spawn)) 1) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 2) (:return (:abort) 2) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 3) (:return (:abort) 3) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 4) (:return (:abort) 4) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 5) (:return (:abort) 5) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 6) (:return (:abort) 6) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:backtrace 4 43) nil 0 7) (:return (:ok nil) 7) (:debug-activate 0 1)