Index: /trunk/ccl/level-1/l1-unicode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-unicode.lisp	(revision 5361)
+++ /trunk/ccl/level-1/l1-unicode.lisp	(revision 5362)
@@ -101,4 +101,7 @@
   (aliases nil)
   (documentation nil)
+  ;; What does a native byte-order-mark look like (as a sequence of octets)
+  ;; in this encoding ? (NIL if a BOM can't be encoded.)
+  (bom-encoding nil)
   )
 
@@ -1232,4 +1235,5 @@
              (setq nchars (1+ nchars) i nexti))))))
     :literal-char-code-limit #x80
+    :bom-encoding #(#xef #xbb #xbf)
     )
 
@@ -1895,4 +1899,5 @@
   #+big-endian-target :utf-16le
   #+little-endian-target :utf-16be
+  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff fe)
   )
 
@@ -2649,4 +2654,6 @@
   #+big-endian-target :utf-32le
   #+little-endian-target :utf-32be
+  :bom-encoding #+big-endian-target #(#x00 #x00 #xfe #xff) #+little-endian-target #(#xff #xfe #x00 #x00)
+  
   )