[cl-plus-ssl-cvs] CVS cl+ssl

[avodonosov]

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory cl-net:/tmp/cvs-serv3151

Modified Files:
	example.lisp 
Log Message:
Make test-https-server working on CCL. Thanks to John McAleely and Gary Byers

--- /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp	2008/03/07 21:27:31	1.1
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp	2009/01/18 21:18:41	1.2
@@ -68,8 +68,8 @@
 	  (loop :for line = (read-line-crlf https nil)
 			    :while line :do
 			    (format t "HTTPS> ~a~%" line)))
-      (close socket)
-      (close https))))
+      (close https)
+	  (close socket))))
 
 ;; start a simple HTTPS server. See the mod_ssl documentation at
 ;; <URL:http://www.modssl.org/> for information on generating the
@@ -108,5 +108,5 @@
 	      (format client "CL+SSL running in ~A ~A~%"
 		      (lisp-implementation-type)
 		      (lisp-implementation-version)))
-	  (close socket)
-	  (close client))))))
+	  (close client)
+	  (close socket))))))