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