/[cmucl]/src/code/extfmts.lisp
ViewVC logotype

Diff of /src/code/extfmts.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by rtoy, Wed Sep 8 02:58:06 2010 UTC revision 1.42 by rtoy, Tue Nov 30 04:09:42 2010 UTC
# Line 1102  character and illegal outputs are replac Line 1102  character and illegal outputs are replac
1102    (when filenames    (when filenames
1103      (unless (find-external-format filenames)      (unless (find-external-format filenames)
1104        (error (intl:gettext "Can't find external-format ~S.") filenames))        (error (intl:gettext "Can't find external-format ~S.") filenames))
1105        (setq filenames (ef-name (find-external-format filenames)))
1106      (when (and unix::*filename-encoding*      (when (and unix::*filename-encoding*
1107                 (not (eq unix::*filename-encoding* filenames)))                 (not (eq unix::*filename-encoding* filenames)))
1108        (cerror (intl:gettext "Change it anyway.")        (cerror (intl:gettext "Change it anyway.")
1109                (intl:gettext "The external-format for encoding filenames is already set."))                (intl:gettext "The external-format for encoding filenames is already set.")))
1110        (setq unix::*filename-encoding* filenames)))      (setq unix::*filename-encoding* filenames))
1111    t)    t)
1112    
1113    

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

  ViewVC Help
Powered by ViewVC 1.1.5