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)