[slime-cvs] CVS slime/contrib
CVS User trittweiler
trittweiler at common-lisp.net
Thu Feb 26 22:44:36 UTC 2009
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'.
More information about the slime-cvs
mailing list