(defmacro-export slow-body (&body body)
  "Muffles all optimization warnings in the body, acknowledging that it does some slow stuff"
  `(locally (declare #+sbcl (sb-ext:muffle-conditions optimization-note))
     ,@body))