Edi Weitz <edi at agharta.de> writes:
> (global-set-key
> [(f6)]
> '(lambda ()
> (interactive)
> (shell-command "c:/PROGRA~1/acl70/alisp.exe +B +cm -L ~/.slime.lisp&")
(while (not (ignore-erorrs (progn (slime-connect "localhost" 4005) t)))
(sit-for 0.2))
.. might do the trick. (sorry, not tested.)