Changeset 9865 for trunk/tests


Ignore:
Timestamp:
Jul 1, 2008, 6:49:56 PM (11 years ago)
Author:
gz
Message:

Test for bug #315

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r9864 r9865  
    330330  (:program-error t))
    331331
     332(deftest ccl.bug#315
     333    (let* ((file (test-source-file
     334                  "(defmethod ccl.bug#315-fn ((a sequence))
     335                       (reduce #'or a :key #'identity))"))
     336           (warning nil))
     337      (handler-bind ((warning
     338                      (lambda (c)
     339                        (let ((s (princ-to-string c)))
     340                          (setq warning
     341                                (if (and (search "FUNCTION" s) (search "macro OR" s))
     342                                  (or warning :macro-or)
     343                                  c))))))
     344        (test-compile file :hide-warnings t :break-on-program-errors nil :load t))
     345      warning)
     346  :macro-or)
    332347
    333348(deftest ccl.43101a
Note: See TracChangeset for help on using the changeset viewer.