X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fexternal-formats%2Feucjp.lisp;h=cc1f7a72cfd663459e4206465e54860e4e06b868;hb=447477e72bd4fe54e678a28bdcc4a2802797d6ed;hp=584fa7fe50119d43cc63f8a072546ebf972702e1;hpb=9e5e821bec4faad5eb84b3332d98aac497dabcf3;p=sbcl.git

diff --git a/src/code/external-formats/eucjp.lisp b/src/code/external-formats/eucjp.lisp
index 584fa7f..cc1f7a7 100644
--- a/src/code/external-formats/eucjp.lisp
+++ b/src/code/external-formats/eucjp.lisp
@@ -13088,7 +13088,7 @@
         1))
   (let ((euc (ucs-to-eucjp bits)))
     (if (null euc)
-        (stream-encoding-error-and-handle stream byte)
+        (external-format-encoding-error stream byte)
         (ecase size
           (1 (setf (sap-ref-8 sap tail) euc))
           (2 (setf (sap-ref-8 sap tail) (ldb (byte 8 8) euc)