diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp index 6c7309909b54138a96e01d4a6834d9caaecf85fe..34d7e0cfe35d21c029a37dbc27ebc57aa21c4be0 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)