[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv17723

Modified Files:
	swank.lisp 
Log Message:
(accept-authenticated-connection): Minor fix. Ensure that the decoded
message is a string before calling string= on it.  Patch from
Aleksandar Bakic.

Date: Thu Sep 22 22:23:43 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.340 slime/swank.lisp:1.341
--- slime/swank.lisp:1.340	Wed Sep 21 22:43:17 2005
+++ slime/swank.lisp	Thu Sep 22 22:23:42 2005
@@ -393,9 +393,10 @@
   (let ((new (apply #'accept-connection args))
         (secret (slime-secret)))
     (when secret
-      (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."))))
     new))
 
 (defun slime-secret ()