[bknr-cvs] edi changed trunk/thirdparty/flexi-streams/

[BKNR Commits]

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