X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fexternal-formats%2Fenc-ebcdic.lisp;h=b54e63024eaaf091c968c21c13f1ee16b3cca7bb;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=f3d1144e5b9daa868f86d3592117a58d9057b231;hpb=d442c23da9851beac541b8bddfc2c0837cb87309;p=sbcl.git

diff --git a/src/code/external-formats/enc-ebcdic.lisp b/src/code/external-formats/enc-ebcdic.lisp
index f3d1144..b54e630 100644
--- a/src/code/external-formats/enc-ebcdic.lisp
+++ b/src/code/external-formats/enc-ebcdic.lisp
@@ -61,13 +61,12 @@
      (,(make-od-name 'latin->string accessor) array astart aend #'ebcdic-us->code-mapper)))
 (instantiate-octets-definition define-ebcdic-us->string)
 
-(add-external-format-funs '(:ebcdic-us :cp037 :|cp037| :ibm-037 :ibm037)
-                          '(ebcdic-us->string-aref string->ebcdic-us))
-
 (define-external-format (:ebcdic-us :cp037 :|cp037| :ibm-037 :ibm037)
     1 t
     (let ((ebcdic-us-byte (code->ebcdic-us-mapper bits)))
       (if ebcdic-us-byte
           (setf (sap-ref-8 sap tail) ebcdic-us-byte)
           (external-format-encoding-error stream bits)))
-    (code-char (ebcdic-us->code-mapper byte)))
+    (code-char (ebcdic-us->code-mapper byte))
+    ebcdic-us->string-aref
+    string->ebcdic-us)