[slime-cvs] CVS update: slime/swank-clisp.lisp

[Helmut Eller]

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

Modified Files:
      Tag: package-split
	swank-clisp.lisp 
Log Message:
(find-fspec-location): Handle "No such file" errors.
Date: Tue Mar  9 07:11:05 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.24.2.1 slime/swank-clisp.lisp:1.24.2.2
--- slime/swank-clisp.lisp:1.24.2.1	Tue Mar  9 03:57:25 2004
+++ slime/swank-clisp.lisp	Tue Mar  9 07:11:05 2004
@@ -140,11 +140,11 @@
     (etypecase file
       (pathname
        (let ((start (find-definition-in-file fspec type file)))
-	 (make-location
-	  (list :file (namestring (truename file)))
-	  (if start 
-	      (list :position (1+ start))
-	      (list :function-name (string fspec))))))
+	 (multiple-value-bind (truename c) (ignore-errors (truename file))
+	   (cond (truename 
+		  (make-location (list :file (namestring truename))
+				 (list :function-name (string fspec))))
+		 (t (list :error (princ-to-string c)))))))
       ((member :top-level)
        (list :error (format nil "Defined at toplevel: ~A" fspec)))
       (null