diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp index 7d837f1293aa7f44636cfb479ec9c1702d790da0..40558d19cde1415d8afa36c09745af30dbec5911 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 4d6db338f1a959419a8cb1c6447bc8d27355787b..fbc17631e924a1157556dc0906d3c087638d4b49 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 ()