zip-cvs August 2006

zip-cvs@common-lisp.net

1 participants
2 discussions

[zip-cvs] CVS zip
by dlichteblau 14 Aug '06

14 Aug '06

Update of /project/zip/cvsroot/zip In directory clnet:/tmp/cvs-serv14138 Modified Files: gray.lisp Log Message: From: Edi Weitz <edi(a)agharta.de> Subject: Typo in STREAM-READ-SEQUENCE (Was: NIL vs. :UNSPECIFIC) --- /project/zip/cvsroot/zip/gray.lisp 2006/04/12 20:35:33 1.7 +++ /project/zip/cvsroot/zip/gray.lisp 2006/08/14 07:52:13 1.8 @@ -61,11 +61,11 @@ (defmethod stream-read-sequence ((s truncating-stream) seq start end &key) (let* ((n (- end start)) - (max (- (size s) (pos s))) - (result - (read-sequence (input-handle s) - seq - :start start - :end (+ start (min n max))))) + (max (- (size s) (pos s))) + (result + (read-sequence seq + (input-handle s) + :start start + :end (+ start (min n max))))) (incf (pos s) (- result start)) result))

1 0

[zip-cvs] CVS zip
by dlichteblau 11 Aug '06

11 Aug '06

Update of /project/zip/cvsroot/zip In directory clnet:/tmp/cvs-serv17276 Modified Files: zip.lisp Log Message: :unspecific workaround for lispworks --- /project/zip/cvsroot/zip/zip.lisp 2006/06/10 14:07:53 1.9 +++ /project/zip/cvsroot/zip/zip.lisp 2006/08/11 13:47:45 1.10 @@ -401,8 +401,11 @@ (zipfile-entries ,zipfile)))) (defun unzip (pathname target-directory &key (if-exists :error) verbose) - (when (or (pathname-name target-directory) - (pathname-type target-directory)) + ;; <Xof> "When reading[1] the value of any pathname component, conforming + ;; programs should be prepared for the value to be :unspecific." + (when (set-difference (list (pathname-name target-directory) + (pathname-type target-directory)) + '(nil :unspecific)) (error "pathname not a directory, lacks trailing slash?")) (with-zipfile (zip pathname) (do-zipfile-entries (name entry zip)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

zip-cvs August 2006