allow sbcl's :flush argument to device-write