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