[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv10188/contrib

Modified Files:
	swank-fancy-inspector.lisp 
Log Message:
	* swank-fancy-inspector.lisp (emacs-inspect (stream-error)): Do
	not run FILE-POSITION on a closed stream.


--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2009/02/26 22:44:36	1.17
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2009/02/26 22:48:15	1.18
@@ -683,12 +683,12 @@
                      (:value ,(pathname stream))
                      (:newline) "  "
                      ,@(when (open-stream-p stream)
-                         `(:action "[visit file and show current position]"
-                                   ,(let ((pathname (pathname stream))
-                                          (position (file-position stream)))
-                                         (lambda ()
-                                           (ed-in-emacs `(,pathname :charpos ,position))))
-                                   :refreshp nil))
+                         `((:action "[visit file and show current position]"
+                                    ,(let ((pathname (pathname stream))
+                                           (position (file-position stream)))
+                                          (lambda ()
+                                            (ed-in-emacs `(,pathname :charpos ,position))))
+                                    :refreshp nil)))
                      (:newline))
                    content)
           content))))