Changeset 12202


Ignore:
Timestamp:
10/17/09 19:35:16 (12 years ago)
Author:
ehuelsmann
Message:

Fix ABCL as a build-host for SBCL:

Don't return "FAILURE-P" == T in case of a style warning.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12180 r12202  
    476476                    (%stream-terpri out))
    477477                  (handler-bind ((style-warning #'(lambda (c)
    478                                                     (declare (ignore c))
    479478                                                    (setf warnings-p t)
    480                                                     nil))
     479                                                    ;; let outer handlers
     480                                                    ;; do their thing
     481                                                    (signal c)
     482                                                    ;; prevent the next
     483                                                    ;; handler from running:
     484                                                    ;; we're a WARNING subclass
     485                                                    (continue)))
    481486                                 ((or warning
    482487                                      compiler-error) #'(lambda (c)
    483488                                                          (declare (ignore c))
    484489                                                          (setf warnings-p t
    485                                                                 failure-p t)
    486                                                           nil)))
     490                                                                failure-p t))))
    487491                    (loop
    488492                       (let* ((*source-position* (file-position in))
Note: See TracChangeset for help on using the changeset viewer.