/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.696 by trittweiler, Mon Mar 8 09:47:12 2010 UTC revision 1.697 by trittweiler, Mon Mar 8 09:59:33 2010 UTC
# Line 302  Backend code should treat the connection Line 302  Backend code should treat the connection
302    (print-unreadable-object (conn stream :type t :identity t)))    (print-unreadable-object (conn stream :type t :identity t)))
303    
304  (defun connection.external-format (connection)  (defun connection.external-format (connection)
305    (stream-external-format (connection.socket-io connection)))    (ignore-errors
306        (stream-external-format (connection.socket-io connection))))
307    
308  (defvar *connections* '()  (defvar *connections* '()
309    "List of all active connections, with the most recent at the front.")    "List of all active connections, with the most recent at the front.")
# Line 946  The processing is done in the extent of Line 947  The processing is done in the extent of
947                          ;; Connection to Emacs lost. [~%~                          ;; Connection to Emacs lost. [~%~
948                          ;;  condition: ~A~%~                          ;;  condition: ~A~%~
949                          ;;  type: ~S~%~                          ;;  type: ~S~%~
950                          ;;  encoding: ~A style: ~S dedicated: ~S]~%"                          ;;  encoding: ~A vs. ~A~%~
951                            ;;  style: ~S dedicated: ~S]~%"
952              backtrace              backtrace
953              (escape-non-ascii (safe-condition-message condition) )              (escape-non-ascii (safe-condition-message condition) )
954              (type-of condition)              (type-of condition)
955              (ignore-errors (stream-external-format (connection.socket-io c)))              (connection.coding-system c)
956                (connection.external-format c)
957              (connection.communication-style c)              (connection.communication-style c)
958              *use-dedicated-output-stream*)              *use-dedicated-output-stream*)
959      (finish-output *log-output*))      (finish-output *log-output*))

Legend:
Removed from v.1.696  
changed lines
  Added in v.1.697

  ViewVC Help
Powered by ViewVC 1.1.5