Changeset 9151


Ignore:
Timestamp:
Apr 14, 2008, 3:22:15 PM (12 years ago)
Author:
gz
Message:

In TEST-CCL: use svn-repository; tweak in warning muffling.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r9051 r9151  
    607607        (run-program "svn" '("update")))
    608608      (let* ((svn (probe-file "ccl:.svn;entries"))
    609              (repo (and svn
    610                         (with-open-file (s svn)
    611                           (loop as line =  (read-line s nil) while line
    612                              do (when (search "://" line)
    613                                   (setq line (read-line s))
    614                                   (return (and (search "://" line) line)))))))
     609             (repo (and svn (svn-repository)))
    615610             (s (make-string-output-stream)))
    616611        (when repo
     
    631626    ;; it without making the test suite non-portable across platforms...
    632627    (handler-bind ((warning (lambda (c)
    633                               (when (and (typep c 'compiler-warning)
    634                                          (eq (compiler-warning-warning-type c) :program-error)
    635                                          (typep (car (compiler-warning-args c)) 'simple-warning)
    636                                          (or
    637                                           (string-equal
    638                                            (simple-condition-format-control (car (compiler-warning-args c)))
    639                                            "Clause ~S ignored in ~S form - shadowed by ~S .")
    640                                           ;; Might as well ignore these as well, they're intentional.
    641                                           (string-equal
    642                                            (simple-condition-format-control (car (compiler-warning-args c)))
    643                                            "Duplicate keyform ~s in ~s statement.")))
     628                              (when (let ((w (or (and (typep c 'compiler-warning)
     629                                                      (eq (compiler-warning-warning-type c) :program-error)
     630                                                      (car (compiler-warning-args c)))
     631                                                 c)))
     632                                      (and (typep w 'simple-warning)
     633                                           (or
     634                                            (string-equal
     635                                             (simple-condition-format-control w)
     636                                             "Clause ~S ignored in ~S form - shadowed by ~S .")
     637                                            ;; Might as well ignore these as well, they're intentional.
     638                                            (string-equal
     639                                             (simple-condition-format-control w)
     640                                             "Duplicate keyform ~s in ~s statement."))))
    644641                                (muffle-warning c)))))
    645642      ;; This loads the infrastructure
Note: See TracChangeset for help on using the changeset viewer.