unless

[macro] when test body ...

[macro] unless test body ...

(mac when (test . body)
  `(if ,test (do ,@body)))

(mac unless (test . body)
  `(if (no ,test) (do ,@body)))

scheme:when, scheme:unless.