(unless (and (constant-continuation-p inside-amount)
(not (minusp (continuation-value inside-amount))))
(give-up-ir1-transform)))))
(unless (and (constant-continuation-p inside-amount)
(not (minusp (continuation-value inside-amount))))
(give-up-ir1-transform)))))