From 6aa5c0572d5282df3bcac90e62da95058c973e36 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Dec 2008 21:47:09 +0100 Subject: [PATCH] Fixed several typos in the inline forms for OUTPUT-STREAM-P --- src/cmp/sysfun.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index f9714fc86..91d27a893 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -363,8 +363,8 @@ (proclaim-function input-stream-p (stream) t :predicate t) (def-inline input-stream-p :always (stream) :bool "ecl_input_stream_p(#0)") -(proclaim-function output-stream-p (t) t :predicate t) -(def-inline input-stream-p :always (stream) :bool "ecl_output_stream_p(#0)") +(proclaim-function output-stream-p (stream) t :predicate t) +(def-inline output-stream-p :always (stream) :bool "ecl_output_stream_p(#0)") (proclaim-function stream-element-type (t) t) (proclaim-function close (stream *) t)