X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=7ffffc2a3137409a3d9bbba6aefad41b642f4f2d;hb=bd2df60f7c3f579a9c7610925c79a0e783adaa0e;hp=a0a0cb4573dff629f6a0b12488444db222babb48;hpb=75476d1d19ac3d7239c8963a498c447a8368433d;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index a0a0cb4..7ffffc2 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -135,7 +135,7 @@
 
 ;;;; file position and file length
 (defun external-format-char-size (external-format)
-  (let ((ef-entry (find-external-format external-format)))
+  (let ((ef-entry (get-external-format external-format)))
     (if (variable-width-external-format-p ef-entry)
         (bytes-for-char-fun ef-entry)
         (funcall (bytes-for-char-fun ef-entry) #\x))))