[cl-plus-ssl-cvs] CVS update: cl+ssl/streams.lisp

[David Lichteblau]

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory common-lisp.net:/tmp/cvs-serv8507

Modified Files:
	streams.lisp 
Log Message:
stream-element-type implementiert

Date: Fri Nov 25 23:39:43 2005
Author: dlichteblau

Index: cl+ssl/streams.lisp
diff -u cl+ssl/streams.lisp:1.3 cl+ssl/streams.lisp:1.4
--- cl+ssl/streams.lisp:1.3	Fri Nov 25 21:14:04 2005
+++ cl+ssl/streams.lisp	Fri Nov 25 23:39:42 2005
@@ -46,9 +46,9 @@
     :initarg :key
     :accessor ssl-stream-key)))
 
+(defmethod stream-element-type ((stream ssl-stream))
+  '(unsigned-byte 8))
 
-;;; binary stream implementation
-;;;
 (defmethod close ((stream ssl-stream) &key abort)
   (declare (ignore abort))
   (force-output stream)