"noreturn" declaration?

[Martin Cracauer]

Hi,

is there any equivalent to a "noreturn" declartion in CMUCL?

In a context like this

(+ (if p
        p
        (invoke-error "p is foobar'))
    2)

I get a warnng that the return value of invoke-error is not a number.
I want to teach the compiler that invoke-error never returns.

Martin