Rework test infrastructure to keep track of tests which are disabled
[sbcl.git] / tests / eval.impure.lisp
index fc8ec40..6afd64c 100644 (file)
               (simple-type-error () 'error)))
       t)))
 
-#+sb-eval
-(with-test (:name :bug-524707)
+(with-test (:name :bug-524707 :skipped-on '(not :sb-eval))
   (let ((*evaluator-mode* :interpret)
         (lambda-form '(lambda (x) (declare (fixnum x)) (1+ x))))
     (let ((fun (eval lambda-form)))