[armedbear-cvs] r12202 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Oct 17 15:35:16 2009
New Revision: 12202

Log:
Fix ABCL as a build-host for SBCL:
   Don't return "FAILURE-P" == T in case of a style warning.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Sat Oct 17 15:35:16 2009
@@ -475,15 +475,19 @@
                            :stream out)
                     (%stream-terpri out))
                   (handler-bind ((style-warning #'(lambda (c)
-                                                    (declare (ignore c))
                                                     (setf warnings-p t)
-                                                    nil))
+                                                    ;; let outer handlers
+                                                    ;; do their thing
+                                                    (signal c)
+                                                    ;; prevent the next
+                                                    ;; handler from running:
+                                                    ;; we're a WARNING subclass
+                                                    (continue)))
                                  ((or warning
                                       compiler-error) #'(lambda (c)
                                                           (declare (ignore c))
                                                           (setf warnings-p t
-                                                                failure-p t)
-                                                          nil)))
+                                                                failure-p t))))
                     (loop
                        (let* ((*source-position* (file-position in))
                               (jvm::*source-line-number* (stream-line-number in))