mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

external-program: don't reuse core.null-stream

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-18 09:52:05 +01:00
parent 1651219474
commit ad0fad5b06
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/lsp/process.lsp
View file

@ -168,7 +168,11 @@
(escape-arg arg str)
(princ arg str))
(when rest
(write-char #\Space str)))))))
(write-char #\Space str))))))
(null-stream (direction)
(open #-windows "/dev/null"
#+windows "nul"
:direction direction)))
(setf input (process-stream input *standard-input*
:direction :input
@ -205,9 +209,9 @@
(when (< 0 parent-error)
(make-input-stream-from-fd progname parent-error external-format))))
(setf (external-process-pid process) pid
(external-process-input process) (or stream-write (null-stream))
(external-process-output process) (or stream-read (null-stream))
(external-process-error-stream process) (or stream-error (null-stream))
(external-process-input process) (or stream-write (null-stream :output))
(external-process-output process) (or stream-read (null-stream :input))
(external-process-error-stream process) (or stream-error (null-stream :input))
(external-process-status-hook process) status-hook)
(values (make-two-way-stream (external-process-output process)
@ -259,6 +263,3 @@
(name fd external-format) (:string :int :object) :object
"ecl_make_stream_from_fd(#0, #1, ecl_smm_output, 8, ECL_STREAM_DEFAULT_FORMAT, #2)"
:one-liner t))
(defun null-stream ()
(ffi:c-inline () () :object "cl_core.null_stream" :one-liner t :side-effects nil))