[cl-plus-ssl-cvs] CVS update: trivial-https/trivial-https.lisp

[David Lichteblau]

Update of /project/cl-plus-ssl/cvsroot/trivial-https
In directory common-lisp.net:/tmp/cvs-serv30023

Modified Files:
	trivial-https.lisp 
Log Message:
upgrade to current cl+ssl

Date: Fri Nov 25 21:13:36 2005
Author: dlichteblau

Index: trivial-https/trivial-https.lisp
diff -u trivial-https/trivial-https.lisp:1.2 trivial-https/trivial-https.lisp:1.3
--- trivial-https/trivial-https.lisp:1.2	Wed Nov 16 18:08:25 2005
+++ trivial-https/trivial-https.lisp	Fri Nov 25 21:13:36 2005
@@ -53,7 +53,8 @@
          (stream
           (if (equal (url-scheme url) "https")
               (cl+ssl:make-ssl-client-stream
-               (open-stream host port :element-type '(unsigned-byte 8)))
+               (open-stream host port :element-type '(unsigned-byte 8))
+               :external-format :iso-8859-1)
               (open-stream host port))))
     (format stream "GET ~A HTTP/1.0~AHost: ~A~AUser-Agent: Trivial HTTP for Common Lisp~A"
 	    url +crlf+ host +crlf+ +crlf+)
@@ -72,7 +73,8 @@
          (stream
           (if (equal (url-scheme url) "https")
               (cl+ssl:make-ssl-client-stream
-               (open-stream host port :element-type '(unsigned-byte 8)))
+               (open-stream host port :element-type '(unsigned-byte 8))
+               :external-format :iso-8859-1)
               (open-stream host port))))
     (format stream "POST ~A HTTP/1.0~AHost: ~A~AUser-Agent: Trivial HTTP for Common Lisp~AContent-Type: ~A~AContent-Length: ~D~A~A~A" url +crlf+ host +crlf+ +crlf+ content-type +crlf+ (length content) +crlf+ +crlf+ content)
     (force-output stream)