Use force-output instead of finish-output to appease SBCL, thanks to