Ignore:
Timestamp:
Oct 23, 2006, 10:43:03 PM (13 years ago)
Author:
gb
Message:

NORMALIZE-EXTERNAL-FORMAT: use *DEFAULT-EXTERNAL-FORMAT* value for :DEFAULT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sysio.lisp

    r5361 r5414  
    140140         external-format)
    141141        ((eq external-format :default)
    142          (normalize-external-format domain nil))
     142         (normalize-external-format domain *default-external-format*))
    143143        ((lookup-character-encoding external-format)
    144144         (normalize-external-format domain `(:character-encoding ,external-format)))
Note: See TracChangeset for help on using the changeset viewer.