1.0.39.7: Make TRACE :ENCAPSULATE NIL work on PPC.

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index a0a0cb4..7ffffc2 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -135,7 +135,7 @@
 \f
 ;;;; 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))))