[cl-smtp-devel] typo

[Attila Lendvai]

hi!

this is probably a typo:

Index: smtp-output-stream.lisp
===================================================================
RCS file: /project/cl-smtp/cvsroot/cl-smtp/smtp-output-stream.lisp,v
retrieving revision 1.1
diff -u -r1.1 smtp-output-stream.lisp
--- smtp-output-stream.lisp     2 Apr 2008 18:02:29 -0000       1.1
+++ smtp-output-stream.lisp     16 Apr 2008 10:04:19 -0000
@@ -41,7 +41,7 @@
     :reader external-format)))

 (defmethod stream-element-type ((stream smtp-output-stream))
-  (stream-element-type (stream stream)))
+  (stream-element-type (encapsulated-stream stream)))

 (defmethod close ((stream smtp-output-stream) &key abort)
   (close (encapsulated-stream stream) :abort abort))

hth,

-- 
 attila