(defmacro with-x (login pass &rest body)
 `(let ((the-connection (connect ,login ,pass)
    ,@body))

(defun test ()
 (with-x "name" "pass"
   (do-something the-connection)))