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

run-program: arg-prep: add informative comment

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-23 18:07:57 +01:00
parent 925196c453
commit 74f4300aa0
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/process.lsp
View file

@ -107,7 +107,13 @@
(apply #'open which :external-format external-format args))
((eql which nil)
(null-stream (getf args :direction)))
((or (eql which :stream) (streamp which))
#+(and (or) clos-streams threads)
((and (streamp which)
(null (typep which 'ext:ansi-stream)))
#| Here we may want to return `:stream' and spawn
thread to handle data at runtime to fd. |#)
((or (eql which :stream)
(streamp which))
which)
;; signal error as early as possible
(T (error "Invalid ~S argument to EXT:RUN-PROGRAM" which))))