Ignore:
Timestamp:
Apr 8, 2008, 3:57:40 AM (11 years ago)
Author:
gz
Message:

Muffle a couple more cases of random output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/compile-file.lsp

    r9045 r9050  
    3333                         (unless (typep c 'style-warning)
    3434                           (setf actual-warnings-p t))
     35                         (when (and (typep c 'warning) (not *test-verbose*))
     36                           (muffle-warning c))
    3537                         nil)))
    3638                   (with-output-to-string
Note: See TracChangeset for help on using the changeset viewer.