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)
