[slime-devel] SLIME broken for OpenMCL

[David Steuber]

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)