(defun e-l-a-s ()
   (login :auth-service
          "xxxxxxxxxxxxxxx"
          (swank:eval-in-emacs
           '(get-passwd :cj "cj password? "))))