- :reason ,(if (null reason-args)
- (list-match-case test
- ((not (?predicate ?expected ?actual))
- `(format nil "~S was ~S to ~S" ,?actual ',?predicate ,?expected))
- ((not (?satisfies ?value))
- `(format nil "~S satisfied ~S" ,?value ',?satisfies))
- ((?predicate ?expected ?actual)
- `(format nil "~S was not ~S to ~S" ,?actual ',?predicate ,?expected))
- ((?satisfies ?value)
- `(format nil "~S did not satisfy ~S" ,?value ',?satisfies))
- (t
- `(is-true ,test ,@reason-args)))
- `(format nil ,@reason-args)))))
+ :reason ,(if (null reason-args)
+ (list-match-case test
+ ((not (?predicate ?expected ?actual))
+ `(format nil "~S was ~S to ~S" ,?actual ',?predicate ,?expected))
+ ((not (?satisfies ?value))
+ `(format nil "~S satisfied ~S" ,?value ',?satisfies))
+ ((?predicate ?expected ?actual)
+ `(format nil "~S was not ~S to ~S" ,?actual ',?predicate ,?expected))
+ ((?satisfies ?value)
+ `(format nil "~S did not satisfy ~S" ,?value ',?satisfies))
+ (t
+ `(is-true ,test ,@reason-args)))
+ `(format nil ,@reason-args))
+ :test-expr ',test)))