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

diff --git a/src/code/external-formats/enc-ebcdic.lisp b/src/code/external-formats/enc-ebcdic.lisp
index b54e630..e78ed5e 100644
--- a/src/code/external-formats/enc-ebcdic.lisp
+++ b/src/code/external-formats/enc-ebcdic.lisp
@@ -61,12 +61,11 @@
      (,(make-od-name 'latin->string accessor) array astart aend #'ebcdic-us->code-mapper)))
 (instantiate-octets-definition define-ebcdic-us->string)
 
-(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))
-    ebcdic-us->string-aref
-    string->ebcdic-us)
+(define-unibyte-external-format :ebcdic-us (:cp037 :|cp037| :ibm-037 :ibm037)
+  (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))
+  ebcdic-us->string-aref
+  string->ebcdic-us)