[slime-devel] minor bug fix in accept-authenticated-connection

[Aleksandar Bakic]

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