From acaf1d586950588a807cc4d5a7eb1f2e8d3fe186 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 14 Oct 2013 16:27:14 -0400
Subject: [PATCH] Fix bad paren in ccl::external-process-wait on Windows. Oops.
 Tweak a comment.

---
 uiop/common-lisp.lisp | 4 ++--
 uiop/utility.lisp     | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp
index 7d837f12..40558d19 100644
--- a/uiop/common-lisp.lisp
+++ b/uiop/common-lisp.lisp
@@ -53,9 +53,9 @@
   (unless (fboundp 'external-process-wait)
     (in-development-mode
      (defun external-process-wait (proc)
-       (when (external-process-pid proc))
+       (when (external-process-pid proc)
          (with-interrupts-enabled
-             (wait-on-semaphore (external-process-completed proc)))))))
+             (wait-on-semaphore (external-process-completed proc))))))))
 #+clozure
 (in-package :uiop/common-lisp)
 
diff --git a/uiop/utility.lisp b/uiop/utility.lisp
index 4d6db338..fbc17631 100644
--- a/uiop/utility.lisp
+++ b/uiop/utility.lisp
@@ -187,8 +187,8 @@ Returns two values: \(A B C\) and \(1 2 3\)."
 
 
 ;;; Characters
-(with-upgradability ()
-  (defconstant +non-base-chars-exist-p+ (not (subtypep 'character 'base-char))) ;; ECL, LW, SBCL
+(with-upgradability () ;; base-char != character on ECL, LW, SBCL, Genera. LW also has SIMPLE-CHAR.
+  (defconstant +non-base-chars-exist-p+ (not (subtypep 'character 'base-char)))
   (when +non-base-chars-exist-p+ (pushnew :non-base-chars-exist-p *features*)))
 
 (with-upgradability ()
-- 
GitLab