[zip-cvs] CVS zip

[dlichteblau]

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)