Changeset 9050 for trunk/tests


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

Muffle a couple more cases of random output

Location:
trunk/tests/ansi-tests
Files:
2 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
  • trunk/tests/ansi-tests/macro-function.lsp

    r8991 r9050  
    7171  (let ((sym (gensym)))
    7272    (eval `(defun ,sym (x) :bad))
    73     (setf (macro-function sym) (macro-function 'pop))
     73    (handler-bind ((warning #'muffle-warning))
     74      (setf (macro-function sym) (macro-function 'pop)))
    7475    (eval `(let ((x '(a b c)))
    7576             (values
Note: See TracChangeset for help on using the changeset viewer.