commit 84bb2155004ccfd601a402a464efd6fbcca44f17
Author: Russ Tyndall <russ@acceleration.net>
Date:   Mon Jan 11 12:04:16 2010 -0500

    Made swank-fancy-inspector NOT error when attempting to inspect network streams (due to their pathname being unbound)

diff --git a/contrib/swank-fancy-inspector.lisp b/contrib/swank-fancy-inspector.lisp
index f68c6b0..77d025a 100644
--- a/contrib/swank-fancy-inspector.lisp
+++ b/contrib/swank-fancy-inspector.lisp
@@ -802,35 +802,46 @@ SPECIAL-OPERATOR groups."
     (lambda ()
       (ed-in-emacs `(,pathname :charpos ,position)))))
 
+(defun %safe-stream-pathname (stream)
+  (handler-case (pathname stream)
+    (type-error (c)
+      (unless (search "not of type pathname"
+                      (string-downcase (princ-to-string c)))
+        (error c)))))
+
 (defmethod emacs-inspect ((stream file-stream))
   (multiple-value-bind (content)
       (call-next-method)
-            (append
-             `("Pathname: "
-               (:value ,(pathname stream))
-               (:newline) "  "
-               ,@(when (open-stream-p stream)
-                   `((:action "[visit file and show current position]"
-                              ,(make-visit-file-thunk stream)
-                              :refreshp nil)
-                     (:newline))))
-             content)))
+    (let ((pathname (%safe-stream-pathname stream)))
+      (if pathname
+          (append
+           `("Pathname: "
+             (:value ,pathname)
+             (:newline) "  "
+             ,@(when (open-stream-p stream)
+                 `((:action "[visit file and show current position]"
+                     ,(make-visit-file-thunk stream)
+                     :refreshp nil)
+                   (:newline))))
+           content)
+          content))))
 
 (defmethod emacs-inspect ((condition stream-error))
   (multiple-value-bind (content)
       (call-next-method)
-    (let ((stream (stream-error-stream condition)))
-      (if (typep stream 'file-stream)
-                  (append
-                   `("Pathname: "
-                     (:value ,(pathname stream))
-                     (:newline) "  "
-                     ,@(when (open-stream-p stream)
-                         `((:action "[visit file and show current position]"
-                                    ,(make-visit-file-thunk stream)
-                                    :refreshp nil)
-                           (:newline))))
-                   content)
+    (let* ((stream (stream-error-stream condition))
+           (pathname (%safe-stream-pathname stream)))
+      (if (and (typep stream 'file-stream) pathname)
+          (append
+           `("Pathname: "
+             (:value ,pathname)
+             (:newline) "  "
+             ,@(when (open-stream-p stream)
+                 `((:action "[visit file and show current position]"
+                     ,(make-visit-file-thunk stream)
+                     :refreshp nil)
+                   (:newline))))
+           content)
           content))))
 
 (defun common-seperated-spec (list &optional (callback (lambda (v) 
