Update of /project/zip/cvsroot/zip In directory clnet:/tmp/cvs-serv10783

Modified Files: gray.lisp Log Message: added a fallback method stream-write-byte for buffer-output-stream

--- /project/zip/cvsroot/zip/gray.lisp 2006/04/12 20:29:35 1.6 +++ /project/zip/cvsroot/zip/gray.lisp 2006/04/12 20:35:33 1.7 @@ -26,6 +26,13 @@ ((buf :initarg :buf :accessor buf) (pos :initform 0 :accessor pos)))

+;; fallback method just in case the lisp doesn't have or doesn't use +;; stream-write-sequence: +(defmethod stream-write-byte + ((stream buffer-output-stream) byte) + (stream-write-sequence stream (vector byte) 0 1) + byte) + (defmethod stream-write-sequence ((stream buffer-output-stream) seq start end &key) (replace (buf stream)