Permalink
Browse files

Some changes to the ECL backend so that it works with the new bytecod…

…es compiler.
  • Loading branch information...
1 parent d42e56f commit 9039150bb9bdedfe099252490eca66d6a9cff324 Juan Jose Garcia Ripoll committed Jun 5, 2011
Showing with 5 additions and 0 deletions.
  1. +5 −0 swank-ecl.lisp
View
@@ -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)))

0 comments on commit 9039150

Please sign in to comment.