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

[BKNR Commits]

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

CMU fix

U   trunk/thirdparty/flexi-streams/CHANGELOG
U   trunk/thirdparty/flexi-streams/mapping.lisp

Modified: trunk/thirdparty/flexi-streams/CHANGELOG
===================================================================
--- trunk/thirdparty/flexi-streams/CHANGELOG	2011-02-16 12:24:35 UTC (rev 4657)
+++ trunk/thirdparty/flexi-streams/CHANGELOG	2011-03-03 07:21:56 UTC (rev 4658)
@@ -1,3 +1,5 @@
+Fix for CMUCL (Raymond Toy, Xu Jingtao)
+
 Version 1.0.7
 2008-08-26
 Don't read a second time if the first READ-SEQUENCE already reached EOF (Drakma bug report by Stas Boukarev)

Modified: trunk/thirdparty/flexi-streams/mapping.lisp
===================================================================
--- trunk/thirdparty/flexi-streams/mapping.lisp	2011-02-16 12:24:35 UTC (rev 4657)
+++ trunk/thirdparty/flexi-streams/mapping.lisp	2011-03-03 07:21:56 UTC (rev 4658)
@@ -47,7 +47,8 @@
 
 (deftype char-code-integer ()
   "The subtype of integers which can be returned by the function CHAR-CODE."
-  '(integer 0 #.(1- char-code-limit)))
+  #-:cmu '(integer 0 #.(1- char-code-limit))
+  #+:cmu '(integer 0 65533))
 
 (deftype code-point ()
   "The subtype of integers that's just big enough to hold all Unicode