-(with-test (:name :callback)
- (assert (= *good-offset* (trampoline (alien-lambda int ()
- (stack-alignment-offset *required-alignment*))))))
+#+alien-callbacks
+(with-test (:name :callback :fails-on :win32)
+ (assert (= *good-offset*
+ (trampoline (alien-lambda int ()
+ (stack-alignment-offset *required-alignment*))))))