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

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index a0a0cb4..7eb78ac 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -133,12 +133,9 @@
   (setf (ansi-stream-sout stream) #'closed-flame)
   (setf (ansi-stream-misc stream) #'closed-flame))
 
-;;;; file position and file length
+;;;; for file position and file length
 (defun external-format-char-size (external-format)
-  (let ((ef-entry (find-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))))
+  (ef-char-size (get-external-format external-format)))
 
 ;;; Call the MISC method with the :FILE-POSITION operation.
 #!-sb-fluid (declaim (inline ansi-stream-file-position))