mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed several typos in the inline forms for OUTPUT-STREAM-P

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-07 21:47:09 +01:00
parent 21cd803aef
commit 6aa5c0572d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/sysfun.lsp
View file

@ -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)