Index: /trunk/source/level-1/l1-unicode.lisp
===================================================================
--- /trunk/source/level-1/l1-unicode.lisp	(revision 15327)
+++ /trunk/source/level-1/l1-unicode.lisp	(revision 15328)
@@ -4697,4 +4697,15 @@
   )
 
+(defun list-character-encodings (&key include-aliases)
+  "Return a list of the names of supported character encodings."
+  (let ((names nil))
+    (maphash #'(lambda (name enc)
+		 (if (eq name (character-encoding-name enc))
+		   (push name names)
+		   (when include-aliases
+		     (push name names))))
+	     *character-encodings*)
+    names))
+
 (defun describe-character-encoding (name)
   (let* ((enc (lookup-character-encoding name)))
@@ -4712,9 +4723,5 @@
       
 (defun describe-character-encodings ()
-  (let* ((names nil))
-    (maphash #'(lambda (name enc)
-                 (when (eq name (character-encoding-name enc))
-                   (push name names)))
-             *character-encodings*)
+  (let* ((names (list-character-encodings)))
     (dolist (name (sort names #'string<) (values))
       (describe-character-encoding name))))
Index: /trunk/source/lib/ccl-export-syms.lisp
===================================================================
--- /trunk/source/lib/ccl-export-syms.lisp	(revision 15327)
+++ /trunk/source/lib/ccl-export-syms.lisp	(revision 15328)
@@ -710,4 +710,5 @@
      character-encoding
      define-character-encoding
+     list-character-encodings
      describe-character-encoding
      describe-character-encodings