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

run-program: fix typo

Browse source
This commit is contained in:
Daniel Kochmanski 2017-10-09 10:15:21 +02:00
parent a42d199b6a
commit 21f670894a
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/process.lsp
View file

@ -109,9 +109,9 @@
(external-format :default)
#+windows (escape-arguments t))
(when (eql input t) (setf input *standard-input*))
(when (eql output t) (setf input *standard-output*))
(when (eql error t) (setf input *error-output*))
(when (eql input t) (setf input *standard-input*))
(when (eql output t) (setf output *standard-output*))
(when (eql error t) (setf error *error-output*))
(labels ((process-stream (which &rest args)
(cond ((null which)