From ef65a8b1ac6e85a91eaa618a26b978eba17f1364 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sun, 19 Feb 2017 08:29:16 +0100 Subject: [PATCH] external-process-wait: accessor is *-%code --- src/lsp/process.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp index 8e306af00..545f10acf 100644 --- a/src/lsp/process.lsp +++ b/src/lsp/process.lsp @@ -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()