[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(dspec-file-position): Bind *compile-file-pathname*,
*compile-file-truename*, *load-pathname* and *load-truename* in
dspec-file-position.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/12/15 12:40:47	1.89
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2007/02/04 22:28:51	1.90
@@ -485,13 +485,17 @@
               (check-dspec form))))))
 
 (defun dspec-file-position (file dspec)
-  (with-open-file (stream file)
-    (let ((pos 
-           #-(or lispworks4.1 lispworks4.2)
-           (dspec-stream-position stream dspec)))
-      (if pos
-          (list :position (1+ pos) t)
-          (dspec-buffer-position dspec 1)))))
+  (let* ((*compile-file-pathname* (pathname file))
+         (*compile-file-truename* (truename *compile-file-pathname*))
+         (*load-pathname* *compile-file-pathname*)
+         (*load-truename* *compile-file-truename*))
+    (with-open-file (stream file)
+      (let ((pos 
+             #-(or lispworks4.1 lispworks4.2)
+             (dspec-stream-position stream dspec)))
+        (if pos
+            (list :position (1+ pos) t)
+            (dspec-buffer-position dspec 1))))))
 
 (defun emacs-buffer-location-p (location)
   (and (consp location)