Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.338 diff -r1.338 swank.lisp 397,399c397,400 < (unless (string= (decode-message new) secret) < (close new) < (error "Incoming connection doesn't know the password."))) ---

(let ((first-val (decode-message new))) (unless (and (stringp first-val) (string= first-val secret)) (close new) (error "Incoming connection doesn't know the password."))))

Alex __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com