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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
Modification for the new source-location stuff. I'm sure OpenMCL is
now pretty broken.
Date: Wed Nov 12 19:36:47 2003
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.19 slime/swank-openmcl.lisp:1.20
--- slime/swank-openmcl.lisp:1.19	Tue Nov  4 03:03:10 2003
+++ slime/swank-openmcl.lisp	Wed Nov 12 19:36:44 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.19 2003/11/04 08:03:10 heller Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.20 2003/11/13 00:36:44 heller Exp $
 ;;;
 
 ;;;
@@ -196,14 +196,12 @@
 (defun handle-compiler-warning (condition)
   "Construct a compiler note for Emacs from a compiler warning
 condition."
-  (push (list :position nil
-              :source-path nil
-              :filename (ccl::compiler-warning-file-name condition)
+  (push (list :message (format nil "~A" condition)
               :severity :warning
-              :message (format nil "~A" condition)
-              :context nil
-              :buffername 'anything
-              :buffer-offset (condition-source-position condition))
+              :location
+              (list :file 
+                    (ccl::compiler-warning-file-name condition)
+                    (condition-source-position condition)))
         *compiler-notes*)
   (muffle-warning condition))
 
@@ -393,8 +391,7 @@
     ;; return a list under some circumstances...
     (when (and source-info (atom source-info))
       (let ((filename (namestring (truename source-info))))
-        (list :from :file :filename filename :source-path '(0) :position 0
-              :function-name (symbol-name symbol))))))
+        (list :openmcl filename (symbol-name symbol))))))
 
 (defslimefun frame-source-location-for-emacs (index)
   "Return to Emacs the location of the source code for the