Browse files

* swank-ecl.lisp (source-location): Don't do

(setq file (tmpfile-to-buffer file)) in a COND condition,
otherwise next cond clause will get null file.
Apply translate-logical-pathname to pathnames.
  • Loading branch information...
1 parent 14f9799 commit a1c303936345ab12d4a559cda2d0f5f1891abc45 @stassats stassats committed Mar 7, 2010
Showing with 10 additions and 3 deletions.
  1. +7 −0 ChangeLog
  2. +3 −3 swank-ecl.lisp
View
7 ChangeLog
@@ -1,3 +1,10 @@
+2010-03-07 Stas Boukarev <stassats@gmail.com>
+
+ * swank-ecl.lisp (source-location): Don't do
+ (setq file (tmpfile-to-buffer file)) in a COND condition,
+ otherwise next cond clause will get null file.
+ Apply translate-logical-pathname to pathnames.
+
2010-03-05 Helmut Eller <heller@common-lisp.net>
Remove some unused stuff.
View
6 swank-ecl.lisp
@@ -597,12 +597,12 @@
(multiple-value-bind (file pos) (ext:compiled-function-file object)
(cond ((not file)
(return-from source-location nil))
- ((setq file (tmpfile-to-buffer file))
- (make-buffer-location file pos))
+ ((tmpfile-to-buffer file)
+ (make-buffer-location (tmpfile-to-buffer file) pos))
(t
(assert (probe-file file))
(assert (not (minusp pos)))
- (make-file-location file pos)))))
+ (make-file-location (translate-logical-pathname file) pos)))))
(method
;; FIXME: This will always return NIL at the moment; ECL does not
;; store debug information for methods yet.

0 comments on commit a1c3039

Please sign in to comment.