Index: /trunk/ccl/level-1/l1-unicode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-unicode.lisp	(revision 5192)
+++ /trunk/ccl/level-1/l1-unicode.lisp	(revision 5193)
@@ -74,4 +74,7 @@
   ;; Might return NIL if the encoding's bogus
   length-of-memory-encoding-function    ;(POINTER NUNITS &optional (START 0))
+
+  ;; Code units and character codes less than this value map to themselves
+  (literal-char-code-limit 0)
   )
 
@@ -86,4 +89,7 @@
     (setf (get-character-encoding ,name)
      (make-character-encoding :name ,name  ,@args))))
+
+(defun encoding-name (encoding)
+  (character-encoding-name (or encoding (get-character-encoding nil))))
 
 ;;; ISO-8859-1 is trivial, though of course it can't really encode characters
@@ -164,4 +170,5 @@
      (declare (ignore pointer start))
      nunits))
+  :literal-char-code-limit 256
   )
 
@@ -169,4 +176,6 @@
 (setf (get-character-encoding nil)
       (get-character-encoding :iso-8859-1))
+
+
 
 
@@ -572,3 +581,6 @@
                        ((< code #xe0) 2)
                        ((< code #xf0) 3)
-                       (t 4))))))))
+                       (t 4)))))))
+    :literal-char-code-limit #x80
+    )
+