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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
Report style-warnings separately from notes (patch from Christopher
Rhodes).

Use REQUIRE to load sb-introspect instead of loading the source file
(requires the sb-introspect library to be installed, which doesn't yet
happen in the sourceforge-lagged SBCL anoncvs, but does in the real
one).

Date: Fri Oct 17 15:45:59 2003
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.7 slime/swank-sbcl.lisp:1.8
--- slime/swank-sbcl.lisp:1.7	Fri Oct 17 15:09:14 2003
+++ slime/swank-sbcl.lisp	Fri Oct 17 15:45:59 2003
@@ -40,9 +40,7 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require 'sb-bsd-sockets)
   (use-package "SB-BSD-SOCKETS")
-  #+nil (require 'sb-introspect)
-  (load
-   "/home/dan/src/sourceforge/sbcl/contrib/sb-introspect/sb-introspect"))
+  (require 'sb-introspect))
 
 (declaim (optimize (debug 3)))
 (in-package :swank)
@@ -254,7 +252,8 @@
                :source-path (current-compiler-error-source-path context)
                :severity (etypecase condition
                            (sb-c:compiler-error :error)
-                           (style-warning :note)
+                           (sb-ext:compiler-note :note)
+                           (style-warning :style-warning)
                            (warning :warning))
                :message (brief-compiler-message-for-emacs condition context)
                :buffername (if (boundp '*buffername*) *buffername*)
@@ -290,6 +289,7 @@
 
 (defun call-trapping-compilation-notes (fn)
   (handler-bind ((sb-c:compiler-error #'handle-notification-condition)
+                 (sb-ext:compiler-note #'handle-notification-condition)
                  (style-warning #'handle-notification-condition)
                  (warning #'handle-notification-condition))
     (funcall fn)))