Revision: 3733 Author: edi URL: http://bknr.net/trac/changeset/3733

Update to 1.0.6

U trunk/thirdparty/flexi-streams/CHANGELOG U trunk/thirdparty/flexi-streams/decode.lisp U trunk/thirdparty/flexi-streams/doc/index.html U trunk/thirdparty/flexi-streams/flexi-streams.asd

Modified: trunk/thirdparty/flexi-streams/CHANGELOG =================================================================== --- trunk/thirdparty/flexi-streams/CHANGELOG 2008-08-25 01:24:05 UTC (rev 3732) +++ trunk/thirdparty/flexi-streams/CHANGELOG 2008-08-26 00:43:52 UTC (rev 3733) @@ -1,3 +1,7 @@ +Version 1.0.6 +2008-08-25 +Don't use a reserve if we can't rewind the stream (Drakma bug report by Stas Boukarev) + Version 1.0.5 2008-08-01 Export RUN-ALL-TESTS instead of RUN-TESTS (caught by Nick Allen)

Modified: trunk/thirdparty/flexi-streams/decode.lisp =================================================================== --- trunk/thirdparty/flexi-streams/decode.lisp 2008-08-25 01:24:05 UTC (rev 3732) +++ trunk/thirdparty/flexi-streams/decode.lisp 2008-08-26 00:43:52 UTC (rev 3733) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: FLEXI-STREAMS; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/flexi-streams/decode.lisp,v 1.33 2008/05/30 09:04:15 edi Exp $ +;;; $Header: /usr/local/cvsrep/flexi-streams/decode.lisp,v 1.34 2008/08/26 00:38:06 edi Exp $

;;; Copyright (c) 2005-2008, Dr. Edmund Weitz. All rights reserved.

@@ -73,7 +73,7 @@ "Non-hygienic utility macro which defines methods for READ-SEQUENCE* and OCTETS-TO-STRING* for the class FORMAT-CLASS. BODY is described in the docstring of DEFINE-CHAR-ENCODERS but can additionally contain -a form (UNGET <form>) which has to be replaced by the correct code to +a form (UNGET <form>) which has to be replaced by the correct code to `unread' the octets for the character designated by <form>." (let* ((body `((block char-decoder (locally @@ -101,8 +101,8 @@ ;; performance-wise to make RESERVE significantly bigger ;; (and thus put potentially a lot more octets into ;; OCTET-STACK), especially for UTF-8 - (reserve (cond ((not (floatp factor)) 0) - ((not can-rewind-p) (* 2 integer-factor)) + (reserve (cond ((or (not (floatp factor)) + (not can-rewind-p)) 0) (t (ceiling (* (- factor integer-factor) (- end start))))))) (declare (fixnum buffer-pos buffer-end index integer-factor reserve) (boolean can-rewind-p))

Modified: trunk/thirdparty/flexi-streams/doc/index.html =================================================================== --- trunk/thirdparty/flexi-streams/doc/index.html 2008-08-25 01:24:05 UTC (rev 3732) +++ trunk/thirdparty/flexi-streams/doc/index.html 2008-08-26 00:43:52 UTC (rev 3733) @@ -229,7 +229,7 @@ <p> FLEXI-STREAMS together with this documentation can be downloaded from <a href="http://weitz.de/files/flexi-streams.tar.gz">http://weitz.de/files/flexi-streams.tar.gz</a>. The -current version is 1.0.5. +current version is 1.0.6. <p> Before you install FLEXI-STREAMS you first need to install the <a @@ -1114,7 +1114,7 @@ his work on making FLEXI-STREAMS faster.

<p> -$Header: /usr/local/cvsrep/flexi-streams/doc/index.html,v 1.124 2008/08/01 10:12:41 edi Exp $ +$Header: /usr/local/cvsrep/flexi-streams/doc/index.html,v 1.125 2008/08/26 00:38:08 edi Exp $ <p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a>

</body>

Modified: trunk/thirdparty/flexi-streams/flexi-streams.asd =================================================================== --- trunk/thirdparty/flexi-streams/flexi-streams.asd 2008-08-25 01:24:05 UTC (rev 3732) +++ trunk/thirdparty/flexi-streams/flexi-streams.asd 2008-08-26 00:43:52 UTC (rev 3733) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/flexi-streams/flexi-streams.asd,v 1.77 2008/08/01 10:12:40 edi Exp $ +;;; $Header: /usr/local/cvsrep/flexi-streams/flexi-streams.asd,v 1.78 2008/08/26 00:38:06 edi Exp $

;;; Copyright (c) 2005-2008, Dr. Edmund Weitz. All rights reserved.

@@ -35,7 +35,7 @@ (in-package :flexi-streams-system)

(defsystem :flexi-streams - :version "1.0.5" + :version "1.0.6" :serial t :components ((:file "packages") (:file "mapping")