;;;;***************************************************************************
;;;;
;;;; FILE IDENTIFICATION
-;;;;
+;;;;
;;;; Name: io.lisp
;;;; Purpose: Basic Input-Output for reversi
;;;; Programer: Kevin Rosenberg based on code by Peter Norvig
;;;; Date Started: 1 Nov 2001
;;;;
-;;;; $Id: io.lisp,v 1.6 2003/06/17 05:47:18 kevin Exp $
+;;;; $Id$
;;;;
-;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg
+;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; and Copyright (c) 1998-2002 Peter Norvig
;;;;
;;;; Reversi users are granted the rights to distribute and use this software
(eval-when (:compile-toplevel :load-toplevel :execute)
-(let ((square-names
+(let ((square-names
(cross-product #'concat-symbol
'(? A B C D E F G H ?)
'(? 1 2 3 4 5 6 7 8 ?))))
(let (move-list)
(dotimes (i (length moves))
(push (format nil "~2d: ~a ~a~%"
- (1+ i)
- (title-of (nth 1 (elt moves i)))
- (symbol-name (88->h8 (nth 0 (elt moves i)))))
- move-list))
+ (1+ i)
+ (title-of (nth 1 (elt moves i)))
+ (symbol-name (88->h8 (nth 0 (elt moves i)))))
+ move-list))
(setq move-list (nreverse move-list))
(list-to-delimited-string move-list #\space))))
(format nil "~2d:~2,'0d" min sec)))
-
-
+
+