From 98d2a2442c8d76d46cd1caf186b9571884b61719 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sat, 14 May 2016 11:36:27 -0400 Subject: [PATCH] Fix inlining failure --- src/code/stream.lisp | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/src/code/stream.lisp b/src/code/stream.lisp index afa1c28c2..63e4df45d 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -785,6 +785,18 @@ (file-string-length stream arg1)) (:file-position (file-position stream arg1)))) + +(declaim (inline stream-element-mode)) +(defun stream-element-mode (stream) + (declare (type stream stream)) + (cond + ((fd-stream-p stream) + (fd-stream-element-mode stream)) + ((and (ansi-stream-p stream) + (funcall (ansi-stream-misc stream) stream :element-mode))) + (t + (stream-element-type-stream-element-mode + (stream-element-type stream))))) ;;;; broadcast streams @@ -1994,21 +2006,9 @@ benefit of the function GET-OUTPUT-STREAM-STRING." ;;;; Shared {READ,WRITE}-SEQUENCE support functions -(declaim (inline stream-element-mode - stream-compute-io-function +(declaim (inline stream-compute-io-function compatible-vector-and-stream-element-types-p)) -(defun stream-element-mode (stream) - (declare (type stream stream)) - (cond - ((fd-stream-p stream) - (fd-stream-element-mode stream)) - ((and (ansi-stream-p stream) - (funcall (ansi-stream-misc stream) stream :element-mode))) - (t - (stream-element-type-stream-element-mode - (stream-element-type stream))))) - (defun stream-compute-io-function (stream stream-element-mode sequence-element-type character-io binary-io bivalent-io) -- 2.11.4.GIT