(and openmcl openmcl-unicode-strings))
(pushnew 'no-i18n cl:*features*)
-(defvar *default-external-format*
+(defvar *default-foreign-encoding*
nil
"Normalized name of default external character format to use
for foreign string conversions. nil means use implementation default
encoding.")
-(defvar *external-format-mapping*
+(defvar *foreign-encoding-mapping*
#+(and lispworks unicode)
'((:ascii . :ascii) (:latin-1 . :latin-1) (:ucs-2 . :unicode)
(:utf-8 . :utf-8) (:jis . :jis) (:sjis . :sjis) (:gbk . :gbk))
nil
"Mapping between normalized external format name and implementation name.")
-(defvar *external-formats*
- (mapcar 'car *external-format-mapping*)
+(defvar *foreign-encodings*
+ (mapcar 'car *foreign-encoding-mapping*)
"List of normalized names of external formats support by underlying implementation.")
-(defun map-normalized-external-format (normalized)
- (cdr (assoc normalized *external-format-mapping* :test 'eql)))
+(defun implementation-foreign-encoding (normalized)
+ (cdr (assoc normalized *foreign-encoding-mapping* :test 'eql)))