[slime-cvs] CVS slime

[CVS User jgarcia]

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

Modified Files:
	swank-ecl.lisp 
Log Message:
Some changes to the ECL backend so that it works with the new bytecodes compiler.

--- /project/slime/cvsroot/slime/swank-ecl.lisp	2011/01/20 23:34:22	1.68
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2011/06/05 13:29:19	1.69
@@ -205,6 +205,7 @@
 (defun signal-compiler-condition (&rest args)
   (signal (apply #'make-condition 'compiler-condition args)))
 
+#-ecl-bytecmp
 (defun handle-compiler-message (condition)
   ;; ECL emits lots of noise in compiler-notes, like "Invoking
   ;; external command".
@@ -220,6 +221,7 @@
                  (warning                :warning))
      :location (condition-location condition))))
 
+#-ecl-bytecmp
 (defun condition-location (condition)
   (let ((file     (c:compiler-message-file condition))
         (position (c:compiler-message-file-position condition)))
@@ -232,6 +234,9 @@
         (make-error-location "No location found."))))
 
 (defimplementation call-with-compilation-hooks (function)
+  #-ecl-bytecmp
+  (funcall function)
+  #-ecl-bytecmp
   (handler-bind ((c:compiler-message #'handle-compiler-message))
     (funcall function)))