From alendvai at common-lisp.net Fri Oct 8 17:03:00 2010 From: alendvai at common-lisp.net (Attila Lendvai) Date: Fri, 08 Oct 2010 13:03:00 -0400 Subject: [alexandria.git] updated branch master: fc3312e copy-sequence returns the number of bytes written Message-ID: The branch master has been updated: via fc3312e6578efd62d5dd5f61715e56b578c0d4ee (commit) from e6d5005b43bc3bb70db40df7c103dc637b0dde39 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit fc3312e6578efd62d5dd5f61715e56b578c0d4ee Author: Attila Lendvai Date: Fri Oct 8 19:01:51 2010 +0200 copy-sequence returns the number of bytes written ----------------------------------------------------------------------- Summary of changes: io.lisp | 18 ++++++++++-------- 1 files changed, 10 insertions(+), 8 deletions(-) diff --git a/io.lisp b/io.lisp index 5df1619..59d6a8c 100644 --- a/io.lisp +++ b/io.lisp @@ -111,11 +111,13 @@ unless it's NIL, which means the system default." "Reads data from INPUT and writes it to OUTPUT. Both INPUT and OUTPUT must be streams, they will be passed to READ-SEQUENCE and WRITE-SEQUENCE and must have compatible element-types." - (loop - :for bytes-read = (read-sequence buffer input) - :while (= bytes-read buffer-size) - :do (write-sequence buffer output) - :finally (progn - (write-sequence buffer output :end bytes-read) - (when finish-output - (finish-output output))))) + (let ((bytes-written 0)) + (loop + :for bytes-read = (read-sequence buffer input) + :until (zerop bytes-read) + :do (progn + (write-sequence buffer output :end bytes-read) + (incf bytes-written bytes-read))) + (when finish-output + (finish-output output)) + bytes-written)) -- Alexandria hooks/post-receive From nsiivola at common-lisp.net Wed Oct 13 21:58:43 2010 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Wed, 13 Oct 2010 17:58:43 -0400 Subject: [alexandria.git] updated branch master: e12aed5 Merge branch 'master' of common-lisp.net:/project/alexandria/alexandria Message-ID: The branch master has been updated: via e12aed552b91935857a8ac9a3c93870ed4b37e3b (commit) via fb86c9b11abe527ce10847b4ca4419d1f3184065 (commit) from fc3312e6578efd62d5dd5f61715e56b578c0d4ee (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit e12aed552b91935857a8ac9a3c93870ed4b37e3b Merge: fb86c9b fc3312e Author: Nikodemus Siivola Date: Thu Oct 14 00:58:36 2010 +0300 Merge branch 'master' of common-lisp.net:/project/alexandria/alexandria commit fb86c9b11abe527ce10847b4ca4419d1f3184065 Author: Nikodemus Siivola Date: Thu Oct 14 00:57:54 2010 +0300 lock the package on SBCL Should have done this ages ago. ----------------------------------------------------------------------- Summary of changes: package.lisp | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/package.lisp b/package.lisp index 57c3526..212a7d9 100644 --- a/package.lisp +++ b/package.lisp @@ -1,6 +1,8 @@ (defpackage :alexandria.0.dev (:nicknames :alexandria) (:use :cl) + #+sbcl + (:lock t) (:export ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; BLESSED -- Alexandria hooks/post-receive From nsiivola at common-lisp.net Wed Oct 13 22:41:51 2010 From: nsiivola at common-lisp.net (Nikodemus Siivola) Date: Wed, 13 Oct 2010 18:41:51 -0400 Subject: [alexandria.git] updated branch master: 03dc209 duh. use the right feature check for package-locks on SBCL Message-ID: The branch master has been updated: via 03dc209e00afbfe51cf746adc39d303d1cfe4fb3 (commit) from e12aed552b91935857a8ac9a3c93870ed4b37e3b (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 03dc209e00afbfe51cf746adc39d303d1cfe4fb3 Author: Nikodemus Siivola Date: Thu Oct 14 01:41:19 2010 +0300 duh. use the right feature check for package-locks on SBCL ...I of all people should know this... ----------------------------------------------------------------------- Summary of changes: package.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/package.lisp b/package.lisp index 212a7d9..673ed30 100644 --- a/package.lisp +++ b/package.lisp @@ -1,7 +1,7 @@ (defpackage :alexandria.0.dev (:nicknames :alexandria) (:use :cl) - #+sbcl + #+sb-package-locks (:lock t) (:export ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- Alexandria hooks/post-receive