From ecd279c9fc930f45fbef618facc95e08c3ac48a7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 3 Apr 2003 16:29:52 +0000 Subject: [PATCH] r4361: Automatic commit for debian_version_1_0_3-1 --- io-clim.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/io-clim.lisp b/io-clim.lisp index af73008..e0146f5 100644 --- a/io-clim.lisp +++ b/io-clim.lisp @@ -8,7 +8,7 @@ ;;;; Programer: Kevin M. Rosenberg ;;;; Date Started: 1 Nov 2001 ;;;; -;;;; $Id: io-clim.lisp,v 1.8 2003/04/01 18:07:35 kevin Exp $ +;;;; $Id: io-clim.lisp,v 1.9 2003/04/03 16:29:52 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg ;;;; @@ -345,9 +345,13 @@ (format stream "Valid Moves~%~A" (list-to-delimited-string legal-moves #\space))))) (when (null (player game)) - (if (plusp (final-result game)) - (format stream "Black wins by ~d!" (final-result game)) - (format stream "White wins by ~d!" (- 0 (final-result game))))))))) + (cond + ((zerop (final-result games)) + (format stream "It's a draw!")) + ((plusp (final-result game)) + (format stream "Black wins by ~d!" (final-result game))) + (t + (format stream "White wins by ~d!" (- 0 (final-result game)))))))))) -- 2.34.1