-(defvar *external-character-encodings*
- (mapcar 'car *external-encoding-mapping*)
- "List of normalized names of external encodings support by underlying implementation.")
+(defvar *foreign-encodings*
+ (mapcar 'car *foreign-encoding-mapping*)
+ "List of normalized names of external formats support by underlying implementation.")