/[slime]/slime/swank-ecl.lisp
ViewVC logotype

Diff of /slime/swank-ecl.lisp

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

revision 1.43 by gcarncross, Wed Jul 1 03:38:54 2009 UTC revision 1.44 by trittweiler, Mon Jul 6 12:32:12 2009 UTC
# Line 72  Line 72 
72  (defimplementation preferred-communication-style ()  (defimplementation preferred-communication-style ()
73    (values nil))    (values nil))
74    
75    (defvar *external-format-to-coding-system*
76      '((:iso-8859-1
77         "latin-1" "latin-1-unix" "iso-latin-1-unix"
78         "iso-8859-1" "iso-8859-1-unix")
79        (:utf-8 "utf-8" "utf-8-unix")))
80    
81    (defimplementation find-external-format (coding-system)
82      (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
83                      *external-format-to-coding-system*)))
84    
85    
86  ;;;; Unix signals  ;;;; Unix signals
87    

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5