[cl-xmpp-cvs] CVS update: cl-xmpp/cxml.lisp

[Erik Enge]

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory common-lisp.net:/tmp/cvs-serv1252

Modified Files:
	cxml.lisp 
Log Message:
removing unneeded functions

Date: Fri Nov 18 23:52:48 2005
Author: eenge

Index: cl-xmpp/cxml.lisp
diff -u cl-xmpp/cxml.lisp:1.7 cl-xmpp/cxml.lisp:1.8
--- cl-xmpp/cxml.lisp:1.7	Fri Nov 18 22:43:52 2005
+++ cl-xmpp/cxml.lisp	Fri Nov 18 23:52:48 2005
@@ -72,25 +72,6 @@
   (declare (ignore input))
   nil)
 
-;; To facilitate writing to both an octet and a character stream
-;; using CXML.
-
-(defclass octet+character-debug-stream-sink (cxml::octet-stream-sink) ())
-
-(defun make-octet+character-debug-stream-sink (octet-stream &rest initargs)
-  (apply #'make-instance 'octet+character-debug-stream-sink
-	 :target-stream octet-stream
-	 initargs))
-
-(defmethod cxml::write-octet (octet (sink octet+character-debug-stream-sink))
-  (write-byte octet (slot-value sink 'cxml::target-stream))
-  (when *debug-stream*
-    (write-char (code-char octet) *debug-stream*)
-    (force-output *debug-stream*)))
-
-;(defmethod write-octet-sequence (sequence (sink octet+character-debug-stream-sink))
-;  (write-sequence sequence (slot-value sink 'cxml::target-stream)))
-
 ;; I'd like to see what CXML is reading from the stream
 ;; and this code helps us in that regard by printing it
 ;; to the *debug-stream*