S.I/Lisp/

ASSERT

=ASSERT(EQUAL(0, DECREMENT(1)))
-> TRUE

=ASSERT(EQUAL(0, DECREMENT(2)))
-> "Assertion failed"
        

DEFINE(
    ASSERT,
    LAMBDA(
        condition,
        [message],
        IF(
            condition,
            TRUE,
            DEFAULT(
                message,
                "Assertion failed"))))
        

Help us optimize this function