zip-cvs April 2006

zip-cvs@common-lisp.net

1 participants
3 discussions

[zip-cvs] CVS zip
by dlichteblau 12 Apr '06

12 Apr '06

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)

1 0

[zip-cvs] CVS zip
by dlichteblau 12 Apr '06

12 Apr '06

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)))

1 0

[zip-cvs] CVS zip
by dlichteblau 12 Apr '06

12 Apr '06

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"))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

zip-cvs April 2006