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*