From bffd8c4ba15adee6d8e1bcf0234d48c76b93596c Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 14 Oct 2013 22:45:28 -0400 Subject: [PATCH] Fix typo for ccl/windows --- uiop/common-lisp.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp index 6c730990..34d7e0cf 100644 --- a/uiop/common-lisp.lisp +++ b/uiop/common-lisp.lisp @@ -52,7 +52,7 @@ (unless (fboundp 'external-process-wait) (in-development-mode (defun external-process-wait (proc) - (when (and (external-process-pid proc) (eq (external-process-:%status proc) :running)) + (when (and (external-process-pid proc) (eq (external-process-%status proc) :running)) (with-interrupts-enabled (wait-on-semaphore (external-process-completed proc)))) (values (external-process-%exit-code proc) -- GitLab