[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	swank-fancy-inspector.lisp ChangeLog 
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/01/10 10:09:47	1.16
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2009/02/26 22:44:36	1.17
@@ -682,12 +682,13 @@
                    `("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))))
-                              :refreshp nil)
+                     ,@(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))
                      (:newline))
                    content)
           content))))
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/26 18:35:43	1.177
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/26 22:44:36	1.178
@@ -1,5 +1,10 @@
 2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank-fancy-inspector.lisp (emacs-inspect (stream-error)): Do
+	not run FILE-POSITION on a closed stream.
+
+2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime-parse.el (slime-parse-symbol-name-at-point):
 	Removed. Superfluous due to recent changes on
 	`slime-symbol-name-at-point'.