Changeset 5203

Timestamp:

Sep 13, 2006, 5:07:17 AM (18 years ago)

Author:

Gary Byers

Message:

GET-CHARACTER-ENCODING errors if the named encoding isn't defined.

Terse PRINT-OBJECT method for CHARACTER-ENCODING.

File:

• trunk/ccl/level-1/l1-unicode.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-unicode.lisp

@@ -24 +24 @@
 
 (defun get-character-encoding (name)
-  (gethash name *character-encodings*))
+  (or (gethash name *character-encodings*)
+      (error "Unknown character encoding: ~s." name)))
 
 (defun (setf get-character-encoding) (new name)
@@ -79 +80 @@
   )
 
+
+(defmethod print-object ((ce character-encoding) stream)
+  (print-unreadable-object (ce stream :type t :identity t)
+    (format stream "~a" (character-encoding-name ce))))
 
 ;;; N.B.  (ccl:nfunction <name> (lambda (...) ...)) is just  like