[slime-cvs] CVS slime

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv31571

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
sbcl: use WITH-COMPILATION-UNIT :SOURCE-NAMESTRING

  Allows recording the right source-file for C-c C-c,
  which in turn allows SBCL's redefinition muffling
  to work right.

  This in turn makes it sensible to turn

    *trap-load-time-warnings*

  on by default.


--- /project/slime/cvsroot/slime/ChangeLog	2011/05/08 10:16:20	1.2188
+++ /project/slime/cvsroot/slime/ChangeLog	2011/05/09 10:48:10	1.2189
@@ -1,3 +1,13 @@
+2011-05-09  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	* swank-sbcl.lisp (swank-compile-string): Use :SOURCE-NAMESTRING
+	to provide the name of the actual source file, and
+	:ALLOW-OTHER-KEYS for compatibility with pre-1.0.48.1 versions.
+	This allows SBCL to get uninteresting redefinition muffling right.
+	(*trap-load-time-warnings*): Default to T to make the redefinition
+	notes more visible, especially now that redefinition muffling hides
+	the boring ones.
+
 2011-05-08  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* slime.el (slime-intern-indentation-spec): New function. Converts
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/10/19 11:59:25	1.279
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/05/09 10:48:10	1.280
@@ -562,7 +562,7 @@
     (funcall function)))
 
 
-(defvar *trap-load-time-warnings* nil)
+(defvar *trap-load-time-warnings* t)
 
 (defun compiler-policy (qualities)
   "Return compiler policy qualities present in the QUALITIES alist.
@@ -638,7 +638,9 @@
                    (:source-plist (list :emacs-buffer buffer
                                         :emacs-filename filename
                                         :emacs-string string
-                                        :emacs-position position))
+                                        :emacs-position position)
+                    :source-namestring filename
+                    :allow-other-keys t)
                  (multiple-value-bind (output-file warningsp failurep)
                      (compile-file temp-file-name)
                    (declare (ignore warningsp))