Complete async-initiate-connection

* cl-postgres-async/async.lisp (async-do-while):