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

[Alan Ruttenberg]

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

Modified Files:
	swank-openmcl.lisp ChangeLog 
Log Message:

Date: Fri Sep  9 04:01:14 2005
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.98 slime/swank-openmcl.lisp:1.99
--- slime/swank-openmcl.lisp:1.98	Sun Aug 28 16:48:47 2005
+++ slime/swank-openmcl.lisp	Fri Sep  9 04:01:10 2005
@@ -253,16 +253,17 @@
                  (make-location
                   (list :buffer *buffer-name*)
                   (list :position position t))
-                 (make-location
-                  (list :file (ccl::compiler-warning-file-name condition))
-                  (list :position position t)))))))
+                 (if (ccl::compiler-warning-file-name condition)
+                     (make-location
+                      (list :file (namestring (truename (ccl::compiler-warning-file-name condition))))
+                      (list :position position t))))))))
 
 (defun temp-file-name ()
   "Return a temporary file name to compile strings into."
   (ccl:%get-cstring (#_tmpnam (ccl:%null-ptr))))
 
 (defimplementation call-with-compilation-hooks (function)
-  (handler-bind ((ccl::compiler-warning #'handle-compiler-warning))
+  (handler-bind ((ccl::compiler-warning 'handle-compiler-warning))
     (funcall function)))
 
 (defimplementation swank-compile-file (filename load-p 


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.771 slime/ChangeLog:1.772
--- slime/ChangeLog:1.771	Fri Sep  9 02:10:59 2005
+++ slime/ChangeLog	Fri Sep  9 04:01:13 2005
@@ -13,6 +13,11 @@
 	(swank::presenting-object 'foo t 
 	  (dotimes (i 2040) (write-char	#\:)))
 
+	* swank-openmcl.lisp (handle-compiler-warning). Don't create a
+	location if the condition doesn't have a filename. If it does,
+	make sure you pass a string rather than a pathname object
+	otherwise you get a net-read error
+	
 2005-09-07  Matthias Koeppe  <mkoeppe at mail.math.uni-magdeburg.de>
 
 	* present.lisp (menu-choices-for-presentation): The