Commit acaf1d58 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix bad paren in ccl::external-process-wait on Windows. Oops. Tweak a comment.

parent 57e33d18
......@@ -53,9 +53,9 @@
(unless (fboundp 'external-process-wait)
(defun external-process-wait (proc)
(when (external-process-pid proc))
(when (external-process-pid proc)
(wait-on-semaphore (external-process-completed proc)))))))
(wait-on-semaphore (external-process-completed proc))))))))
(in-package :uiop/common-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 ()
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment