(defmacro with-flag-system (flag-system &body body) `(let ((*current-flag-system* ,flag-system)) (declare (special *current-flag-system*)) ,@body))