Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31108

Modified Files:
	version.lisp-expr 
Log Message:
0.9.8.46
    Merge patch "Charsets: latin-N, N=2,...,8" from Ivan Boldyrev,
    sbcl-devel 2006-01-17


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2656
retrieving revision 1.2657
diff -u -d -r1.2656 -r1.2657
--- version.lisp-expr	19 Jan 2006 15:15:08 -0000	1.2656
+++ version.lisp-expr	19 Jan 2006 17:02:33 -0000	1.2657
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.8.45"
+"0.9.8.46"

Update of /cvsroot/sbcl/sbcl/src/code/external-formats
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31108/src/code/external-formats

Modified Files:
	enc-iso.lisp 
Log Message:
0.9.8.46
    Merge patch "Charsets: latin-N, N=2,...,8" from Ivan Boldyrev,
    sbcl-devel 2006-01-17


Index: enc-iso.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/external-formats/enc-iso.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- enc-iso.lisp	31 Aug 2005 14:12:37 -0000	1.2
+++ enc-iso.lisp	19 Jan 2006 17:02:33 -0000	1.3
@@ -89,11 +89,11 @@
 
 (instantiate-octets-definition define-iso-8859-2->string)
 
-(push '((:iso-8859-2 :|iso-8859-2|)
+(push '((:iso-8859-2 :|iso-8859-2| :latin-2 :|latin-2|)
         iso-8859-2->string-aref string->iso-8859-2)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-2 :|iso-8859-2|)
+(define-external-format (:iso-8859-2 :|iso-8859-2| :latin-2 :|latin-2|)
     1 t
     (let ((iso-8859-2-byte (code->iso-8859-2-mapper bits)))
       (if iso-8859-2-byte
@@ -171,11 +171,11 @@
 
 (instantiate-octets-definition define-iso-8859-3->string)
 
-(push '((:iso-8859-3 :|iso-8859-3|)
+(push '((:iso-8859-3 :|iso-8859-3| :latin-3 :|latin-3|)
         iso-8859-3->string-aref string->iso-8859-3)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-3 :|iso-8859-3|)
+(define-external-format (:iso-8859-3 :|iso-8859-3| :latin-3 :|latin-3|)
     1 t
     (let ((iso-8859-3-byte (code->iso-8859-3-mapper bits)))
       (if iso-8859-3-byte
@@ -268,11 +268,11 @@
 
 (instantiate-octets-definition define-iso-8859-4->string)
 
-(push '((:iso-8859-4 :|iso-8859-4|)
+(push '((:iso-8859-4 :|iso-8859-4| :latin-4 :|latin-4|)
         iso-8859-4->string-aref string->iso-8859-4)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-4 :|iso-8859-4|)
+(define-external-format (:iso-8859-4 :|iso-8859-4| :latin-4 :|latin-4|)
     1 t
     (let ((iso-8859-4-byte (code->iso-8859-4-mapper bits)))
       (if iso-8859-4-byte
@@ -845,11 +845,11 @@
 
 (instantiate-octets-definition define-iso-8859-9->string)
 
-(push '((:iso-8859-9 :|iso-8859-9|)
+(push '((:iso-8859-9 :|iso-8859-9| :latin-5 :|latin-5|)
         iso-8859-9->string-aref string->iso-8859-9)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-9 :|iso-8859-9|)
+(define-external-format (:iso-8859-9 :|iso-8859-9| :latin-5 :|latin-5|)
     1 t
     (let ((iso-8859-9-byte (code->iso-8859-9-mapper bits)))
       (if iso-8859-9-byte
@@ -938,11 +938,11 @@
 
 (instantiate-octets-definition define-iso-8859-10->string)
 
-(push '((:iso-8859-10 :|iso-8859-10|)
+(push '((:iso-8859-10 :|iso-8859-10| :latin-6 :|latin-6|)
         iso-8859-10->string-aref string->iso-8859-10)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-10 :|iso-8859-10|)
+(define-external-format (:iso-8859-10 :|iso-8859-10| :latin-6 :|latin-6|)
     1 t
     (let ((iso-8859-10-byte (code->iso-8859-10-mapper bits)))
       (if iso-8859-10-byte
@@ -1183,11 +1183,11 @@
 
 (instantiate-octets-definition define-iso-8859-13->string)
 
-(push '((:iso-8859-13 :|iso-8859-13|)
+(push '((:iso-8859-13 :|iso-8859-13| :latin-7 :|latin-7|)
         iso-8859-13->string-aref string->iso-8859-13)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-13 :|iso-8859-13|)
+(define-external-format (:iso-8859-13 :|iso-8859-13| :latin-7 :|latin-7|)
     1 t
     (let ((iso-8859-13-byte (code->iso-8859-13-mapper bits)))
       (if iso-8859-13-byte
@@ -1261,11 +1261,11 @@
 
 (instantiate-octets-definition define-iso-8859-14->string)
 
-(push '((:iso-8859-14 :|iso-8859-14|)
+(push '((:iso-8859-14 :|iso-8859-14| :latin-8 :|latin-8|)
         iso-8859-14->string-aref string->iso-8859-14)
       *external-format-functions*)
 
-(define-external-format (:iso-8859-14 :|iso-8859-14|)
+(define-external-format (:iso-8859-14 :|iso-8859-14| :latin-8 :|latin-8|)
     1 t
     (let ((iso-8859-14-byte (code->iso-8859-14-mapper bits)))
       (if iso-8859-14-byte

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27041

Modified Files:
	version.lisp-expr 
Log Message:
0.9.8.45
  Briefly document bivalent streams.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2655
retrieving revision 1.2656
diff -u -d -r1.2655 -r1.2656
--- version.lisp-expr	18 Jan 2006 12:57:46 -0000	1.2655
+++ version.lisp-expr	19 Jan 2006 15:15:08 -0000	1.2656
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.8.44"
+"0.9.8.45"

Update of /cvsroot/sbcl/sbcl/doc/manual
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27041/doc/manual

Modified Files:
	streams.texinfo 
Log Message:
0.9.8.45
  Briefly document bivalent streams.


Index: streams.texinfo
===================================================================
RCS file: /cvsroot/sbcl/sbcl/doc/manual/streams.texinfo,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- streams.texinfo	17 Aug 2004 18:34:29 -0000	1.2
+++ streams.texinfo	19 Jan 2006 15:15:07 -0000	1.3
@@ -2,17 +2,47 @@
 @comment  node-name,  next,  previous,  up
 @chapter Extensible Streams
 
-SBCL supports @dfn{Gray streams}, user-overloadable CLOS classes whose
-instances can be used as Lisp streams (e.g. passed as the first
-argument to @code{format}).  Additionally, the bundled contrib module
-@...} implements a subset of the Franz Allegro
-simple-streams proposal.
+SBCL supports various extensions of ANSI Common Lisp streams.
+
+@table @strong
+@item Bivalent Streams
+A type of stream that can read and write both @code{character} and
+@code{(unsigned-byte 8)} values.
+
+@item Gray Streams
+User-overloadable CLOS classes whose instances can be used as Lisp
+streams (e.g. passed as the first argument to @code{format}).
+
+@item Simple Streams
+The bundled contrib module @dfn{sb-simple-streams} implements a subset
+of the Franz Allegro simple-streams proposal.
+
+@end table
 
 @menu
+* Bivalent Streams::
 * Gray Streams::                
 * Simple Streams::              
 @end menu
 
+@node Bivalent Streams
+@section Bivalent Streams
+
+A @dfn{bivalent stream} can be used to read and write both
+@code{character} and @code{(unsigned-byte 8)} values.  A bivalent
+stream is created by calling @code{open} with the argument @code{:element-type
+:default}.  On such a stream, both binary and character data can be
+read and written with the usual input and output functions.
+
+@c Horrible visual markup
+@quotation
+Streams are @emph{not} created bivalent by default for performance
+reasons.  Bivalent streams are incompatible with
+@code{fast-read-char}, an internal optimization in sbcl's stream
+machinery that bulk-converts octets to characters and implements a
+fast path through @code{read-char}.
+@end quotation
+
 @node Gray Streams
 @section Gray Streams