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/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.