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

run-program: unwrap synonym-streams when processing the stream

Browse source
This commit is contained in:
Daniel Kochmański 2019-05-25 17:15:28 +02:00
parent 44f4282742
commit 7fd97549d6
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/process.lsp
View file

@ -124,6 +124,8 @@
(when (eql error t) (setf error *error-output*))
(labels ((process-stream (which &rest args)
(si:while (typep which 'synonym-stream)
(setf which (symbol-value (synonym-stream-symbol which))))
(cond ((null which)
(null-stream (getf args :direction)))
((or (stringp which)