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

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 7ffffc2..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 (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))))
+  (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))