From dlichteblau at common-lisp.net Wed Apr 12 20:26:30 2006 From: dlichteblau at common-lisp.net (dlichteblau) Date: Wed, 12 Apr 2006 16:26:30 -0400 (EDT) Subject: [zip-cvs] CVS zip Message-ID: <20060412202630.9FA37431B6@common-lisp.net> Update of /project/zip/cvsroot/zip In directory clnet:/tmp/cvs-serv8872 Modified Files: zip.asd Log Message: Can't hurt to write :pathname including its type. (Reported to be necessary under unknown circumstances on unknown asdf versions.) --- /project/zip/cvsroot/zip/zip.asd 2006/03/19 14:01:09 1.3 +++ /project/zip/cvsroot/zip/zip.asd 2006/04/12 20:26:30 1.4 @@ -14,7 +14,7 @@ :depends-on (:salza :trivial-gray-streams :flexi-streams) :components ((:file "package") (:file dependent - :pathname #+allegro "acl" #-allegro "gray" + :pathname #+allegro "acl.lisp" #-allegro "gray.lisp" :depends-on ("package")) (:file "ifstar" :depends-on ("package")) (:file "inflate" :depends-on ("package" "ifstar")) From dlichteblau at common-lisp.net Wed Apr 12 20:29:35 2006 From: dlichteblau at common-lisp.net (dlichteblau) Date: Wed, 12 Apr 2006 16:29:35 -0400 (EDT) Subject: [zip-cvs] CVS zip Message-ID: <20060412202935.B2B59431B6@common-lisp.net> Update of /project/zip/cvsroot/zip In directory clnet:/tmp/cvs-serv9082 Modified Files: gray.lisp Log Message: fixed buffer-output-stream --- /project/zip/cvsroot/zip/gray.lisp 2006/03/19 14:01:09 1.5 +++ /project/zip/cvsroot/zip/gray.lisp 2006/04/12 20:29:35 1.6 @@ -21,7 +21,8 @@ while c do (write-char c out*)))))) -(defclass buffer-output-stream (fundamental-binary-output-stream) +(defclass buffer-output-stream + (trivial-gray-stream-mixin fundamental-binary-output-stream) ((buf :initarg :buf :accessor buf) (pos :initform 0 :accessor pos))) From dlichteblau at common-lisp.net Wed Apr 12 20:35:33 2006 From: dlichteblau at common-lisp.net (dlichteblau) Date: Wed, 12 Apr 2006 16:35:33 -0400 (EDT) Subject: [zip-cvs] CVS zip Message-ID: <20060412203533.8BA5D431B7@common-lisp.net> 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)