Update of /project/zip/cvsroot/zip In directory common-lisp.net:/tmp/cvs-serv7241

Modified Files: gray.lisp Log Message: missing lispworks fix

Date: Tue Apr 5 17:44:54 2005 Author: dlichteblau

Index: zip/gray.lisp diff -u zip/gray.lisp:1.1 zip/gray.lisp:1.2 --- zip/gray.lisp:1.1 Tue Apr 5 17:04:33 2005 +++ zip/gray.lisp Tue Apr 5 17:44:54 2005 @@ -5,7 +5,9 @@ (pos :initform 0 :accessor pos)))

(defmethod stream-write-sequence - ((stream buffer-output-stream) seq &optional (start 0) end) + #+sbcl ((stream buffer-output-stream) seq &optional (start 0) end) + #+lispworks ((stream buffer-output-stream) seq start end) + #-(or sbcl lispworks) ... (replace (buf stream) :start1 (pos stream) :start2 start