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