Instead we define this:
(mac breakable (exp) `(point break ,exp))
(breakable:while (condition) (aif (something) (break it)))