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

external-process-wait: accessor is *-%code

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-19 08:29:16 +01:00
parent 11d5773d26
commit ef65a8b1ac
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/process.lsp
View file

@ -43,9 +43,9 @@
(unless (and wait (null status) (null code) (null pid))
(setf (external-process-pid process) nil
(external-process-%status process) status
(external-process-code process) code)))))
(external-process-%code process) code)))))
(values (external-process-%status process)
(external-process-code process) code))
(external-process-%code process)))
;;;
;;; Backwards compatible SI:SYSTEM call. We avoid ANSI C system()