[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv10763

Modified Files:
	swank.lisp 
Log Message:
(inspect-for-emacs stream-error t): Don't call pathname on non-file streams.


--- /project/slime/cvsroot/slime/swank.lisp	2006/03/22 02:46:45	1.366
+++ /project/slime/cvsroot/slime/swank.lisp	2006/03/22 06:06:18	1.367
@@ -4156,20 +4156,21 @@
   (declare (ignore inspector))
   (multiple-value-bind (title content)
       (call-next-method)
-    (declare (ignore title))
     (let ((stream (stream-error-stream condition)))
-      (values "A stream error."
-              (append
-               `("Pathname: "
-                 (:value ,(pathname stream))
-                 (:newline) "  "
-                 (:action "[visit file and show current position]"
-                          ,(let ((pathname (pathname stream))
-                                 (position (file-position stream)))
-                                (lambda ()
-                                  (ed-in-emacs `(,pathname :charpos ,position)))))
-                 (:newline))
-               content)))))
+      (if (typep stream 'file-stream)
+          (values "A stream error."
+                  (append
+                   `("Pathname: "
+                     (:value ,(pathname stream))
+                     (:newline) "  "
+                     (:action "[visit file and show current position]"
+                              ,(let ((pathname (pathname stream))
+                                     (position (file-position stream)))
+                                    (lambda ()
+                                      (ed-in-emacs `(,pathname :charpos ,position)))))
+                     (:newline))
+                   content))
+          (values title content)))))
 
 (defvar *inspectee*)
 (defvar *inspectee-parts*)