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

[avodonosov]

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

Modified Files:
	example.lisp 
Log Message:
Explicitly specify newline conversions for SSL streams to make read-line-crlf working on Windows

--- /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp	2009/01/18 21:18:41	1.2
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp	2009/01/18 21:23:15	1.3
@@ -33,7 +33,7 @@
 (defun test-nntps-client (&optional (host "snews.gmane.org") (port 563))
   (let* ((fd (trivial-sockets:open-stream host port
 					  :element-type '(unsigned-byte 8)))
-         (nntps (cl+ssl:make-ssl-client-stream fd :external-format :iso-8859-1)))
+         (nntps (cl+ssl:make-ssl-client-stream fd :external-format '(:iso-8859-1 :eol-style :lf))))
     (format t "NNTPS> ~A~%" (read-line-crlf nntps))
     (write-line "HELP" nntps)
     (force-output nntps)
@@ -60,7 +60,7 @@
 	    (cl+ssl:make-ssl-client-stream
 	     socket
 	     :unwrap-stream-p t
-	     :external-format :iso-8859-1))))
+	     :external-format '(:iso-8859-1 :eol-style :lf)))))
     (unwind-protect
 	(progn
 	  (format https "GET / HTTP/1.0~%Host: ~a~%~%" host)
@@ -91,7 +91,7 @@
 		      :element-type '(unsigned-byte 8)))
 	     (client (cl+ssl:make-ssl-server-stream
 		      (cl+ssl:stream-fd socket)
-		      :external-format :iso-8859-1
+		      :external-format '(:iso-8859-1 :eol-style :lf)
 		      :certificate cert
 		      :key key)))
 	(unwind-protect