Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5305)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5306)
@@ -331,4 +331,5 @@
   (count 0 :type fixnum)		; count of active elements
   (limit 0 :type fixnum)		; size (in elements) of buffer
+  (translate nil)                       ; newline-translation
   )
 
@@ -668,6 +669,6 @@
 ;;; (UNSIGNED-BYTE 8), in native byte-order.
 
-(declaim (inline %ioblock-read-u16-code-element))
-(defun %ioblock-read-u16-code-element (ioblock)
+(declaim (inline %ioblock-read-u16-code-unit))
+(defun %ioblock-read-u16-code-unit (ioblock)
   (declare (optimize (speed 3) (safety 0)))
   (let* ((buf (ioblock-inbuf ioblock))
@@ -715,6 +716,6 @@
                 (logior (the (unsigned-byte 16) (ash b1 8)) b0)))))))))
   
-(declaim (inline %ioblock-read-swapped-u16-code-element))
-(defun %ioblock-read-swapped-u16-code-element (ioblock)
+(declaim (inline %ioblock-read-swapped-u16-code-unit))
+(defun %ioblock-read-swapped-u16-code-unit (ioblock)
   (declare (optimize (speed 3) (safety 0)))
     (let* ((buf (ioblock-inbuf ioblock))
@@ -763,6 +764,6 @@
 
 
-(declaim (inline %ioblock-read-u32-code-element))
-(defun %ioblock-read-u32-code-element (ioblock)
+(declaim (inline %ioblock-read-u32-code-unit))
+(defun %ioblock-read-u32-code-unit (ioblock)
   (declare (optimize (speed 3) (safety 0)))
   (let* ((buf (ioblock-inbuf ioblock))
@@ -884,6 +885,6 @@
                         b0)))))))))
 
-(declaim (inline %ioblock-read-swapped-u32-code-element))
-(defun %ioblock-read-swapped-u32-code-element (ioblock)
+(declaim (inline %ioblock-read-swapped-u32-code-unit))
+(defun %ioblock-read-swapped-u32-code-unit (ioblock)
   (declare (optimize (speed 3) (safety 0)))
   (let* ((buf (ioblock-inbuf ioblock))
@@ -1138,5 +1139,5 @@
       (prog1 ch
         (setf (ioblock-untyi-char ioblock) nil))
-      (let* ((1st-unit (%ioblock-read-u16-code-element ioblock)))
+      (let* ((1st-unit (%ioblock-read-u16-code-unit ioblock)))
         (if (eq 1st-unit :eof)
           1st-unit
@@ -1148,5 +1149,5 @@
               (funcall (ioblock-decode-input-function ioblock)
                        1st-unit
-                       #'%ioblock-read-u16-code-element
+                       #'%ioblock-read-u16-code-unit
                        ioblock))))))))
 
@@ -1168,5 +1169,5 @@
       (prog1 ch
         (setf (ioblock-untyi-char ioblock) nil))
-      (let* ((1st-unit (%ioblock-read-swapped-u16-code-element ioblock)))
+      (let* ((1st-unit (%ioblock-read-swapped-u16-code-unit ioblock)))
         (if (eq 1st-unit :eof)
           1st-unit
@@ -1178,5 +1179,5 @@
               (funcall (ioblock-decode-input-function ioblock)
                        1st-unit
-                       #'%ioblock-read-swapped-u16-code-element
+                       #'%ioblock-read-swapped-u16-code-unit
                        ioblock))))))))
 
@@ -1575,6 +1576,6 @@
     element))
 
-(declaim (inline %ioblock-write-u16-code-element))
-(defun %ioblock-write-u16-code-element (ioblock element)
+(declaim (inline %ioblock-write-u16-code-unit))
+(defun %ioblock-write-u16-code-unit (ioblock element)
   (declare (optimize (speed 3) (safety 0))
            (type (unsigned-byte 16) element))
@@ -1608,6 +1609,6 @@
     element))
 
-(declaim (inline %ioblock-write-swapped-u16-code-element))
-(defun %ioblock-write-swapped-u16-code-element (ioblock element)
+(declaim (inline %ioblock-write-swapped-u16-code-unit))
+(defun %ioblock-write-swapped-u16-code-unit (ioblock element)
   (declare (optimize (speed 3) (safety 0)))
 (let* ((buf (ioblock-outbuf ioblock))
@@ -1834,5 +1835,5 @@
     (funcall (ioblock-encode-output-function ioblock)
              byte-order-mark
-             #'%ioblock-write-u16-code-element
+             #'%ioblock-write-u16-code-unit
              ioblock))
   (if (eq char #\linefeed)
@@ -1845,5 +1846,5 @@
       (funcall (ioblock-encode-output-function ioblock)
                char
-               #'%ioblock-write-u16-code-element
+               #'%ioblock-write-u16-code-unit
                ioblock))))
 
@@ -1865,5 +1866,5 @@
   (when (ioblock-pending-byte-order-mark ioblock)
     (setf (ioblock-pending-byte-order-mark ioblock) nil)
-    (%ioblock-write-u16-code-element ioblock byte-order-mark-char-code))
+    (%ioblock-write-u16-code-unit ioblock byte-order-mark-char-code))
   (do* ((i 0 (1+ i))
         (col (ioblock-charpos ioblock))
@@ -1880,6 +1881,6 @@
         (incf col))
       (if (< code limit)
-        (%ioblock-write-u16-code-element ioblock code)
-        (funcall encode-function char #'%ioblock-write-u16-code-element ioblock)))))
+        (%ioblock-write-u16-code-unit ioblock code)
+        (funcall encode-function char #'%ioblock-write-u16-code-unit ioblock)))))
 
 (declaim (inline %ioblock-write-swapped-u16-encoded-char))
@@ -1892,8 +1893,8 @@
     (declare (type (mod #x110000) code))
     (if (< code (the fixnum (ioblock-literal-char-code-limit ioblock)))
-      (%ioblock-write-swapped-u16-code-element ioblock code)
+      (%ioblock-write-swapped-u16-code-unit ioblock code)
       (funcall (ioblock-encode-output-function ioblock)
                char
-               #'%ioblock-write-swapped-u16-code-element
+               #'%ioblock-write-swapped-u16-code-unit
                ioblock))))
 
@@ -1926,6 +1927,6 @@
         (incf col))
       (if (< code limit)
-        (%ioblock-write-swapped-u16-code-element ioblock code)
-        (funcall encode-function char #'%ioblock-write-swapped-u16-code-element ioblock)))))
+        (%ioblock-write-swapped-u16-code-unit ioblock code)
+        (funcall encode-function char #'%ioblock-write-swapped-u16-code-unit ioblock)))))