[slime-cvs] CVS slime

[CVS User msimmons]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv30978

Modified Files:
	swank-lispworks.lisp ChangeLog 
Log Message:
swank-lispworks.lisp (dspec-file-position): Fall back to regexp
search if dspec-stream-position gets an error.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2012/01/06 09:02:43	1.147
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2012/02/07 15:48:14	1.148
@@ -659,7 +659,7 @@
     (with-open-file (stream file)
       (let ((pos 
              #-(or lispworks4.1 lispworks4.2)
-             (dspec-stream-position stream dspec)))
+             (ignore-errors (dspec-stream-position stream dspec))))
         (if pos
             (list :position (1+ pos))
             (dspec-function-name-position dspec `(:position 1)))))))
--- /project/slime/cvsroot/slime/ChangeLog	2012/01/06 09:02:43	1.2293
+++ /project/slime/cvsroot/slime/ChangeLog	2012/02/07 15:48:15	1.2294
@@ -1,3 +1,8 @@
+2012-02-07  Martin Simmons (martin at lispworks.com>
+
+	* swank-lispworks.lisp (dspec-file-position): Fall back to regexp
+	search if dspec-stream-position gets an error.
+
 2012-01-06  Helmut Eller  <heller at common-lisp.net>
 
 	Add a "sentinel thread" to protect access to global lists.