common lisp flush stdout