[slime-devel] Interactive compile loses DSPEC info

[bryan o'connor]

> make-single-line
>   (:error The file #P"/tmp/filecLlfIH.lisp" does not exist.)
>   (:location (:file 
> /home/kooks/XOS/Bullseye/src/Common/generic-utilities.lisp) 
> (:function-name MAKE-SINGLE-LINE))

if swank-openmcl knows that the file doesn't exist, is there any
reason to add it to the list of locations?

it there is one, M-. should probably pick the obvious choice if
there is only one non-error location.

the patch below implements the first.

                               ...bryan


Index: swank-openmcl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v
retrieving revision 1.64
diff -u -r1.64 swank-openmcl.lisp
--- swank-openmcl.lisp	24 Feb 2004 23:31:34 -0000	1.64
+++ swank-openmcl.lisp	26 Feb 2004 18:02:15 -0000
@@ -390,8 +390,7 @@
      (labels ((frob (pathname position)
                 (multiple-value-bind (truename c)
                     (ignore-errors (truename pathname))
-                 (cond (c
-                        (push (list :error (princ-to-string c)) 
locations))
+                 (cond (c nil)
                         (t
                          (push (make-location (list :file (namestring 
truename))
                                               position)