projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix types/initforms
[reversi.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index f47126c941604b657358846fd0072f4e52007e48..841f9a8eacdeccf425984b1342dd8a17b91cabb5 100644
(file)
--- a/
base.lisp
+++ b/
base.lisp
@@
-8,8
+8,6
@@
;;;; Programer: Kevin Rosenberg based on code by Peter Norvig
;;;; Date Started: 1 Nov 2001
;;;;
;;;; Programer: Kevin Rosenberg based on code by Peter Norvig
;;;; Date Started: 1 Nov 2001
;;;;
-;;;; $Id$
-;;;;
;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1998-2002 Peter Norvig
;;;;
;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1998-2002 Peter Norvig
;;;;
@@
-48,7
+46,7
@@
(defun make-moves ()
(make-array 60 :element-type 'cons :fill-pointer 0
(defun make-moves ()
(make-array 60 :element-type 'cons :fill-pointer 0
- :adjustable nil))
+ :adjustable nil
:initial-element (cons nil nil)
))
(deftype moves () '(array cons (60)))
(deftype moves () '(array cons (60)))
@@
-83,7
+81,7
@@
(max-minutes :type fixnum :initarg :max-minutes
:documentation "Maximum minites for each player"
:reader max-minutes)
(max-minutes :type fixnum :initarg :max-minutes
:documentation "Maximum minites for each player"
:reader max-minutes)
- (clock :type clock :initarg :clock
:initform nil
+ (clock :type clock :initarg :clock
:documentation "An array of time-units left"
:accessor clock))
(:default-initargs
:documentation "An array of time-units left"
:accessor clock))
(:default-initargs
@@
-462,4
+460,3
@@
(dotimes (j N)
(format t "~4f " (if (eql i j) '---
(aref scores i j)))))))
(dotimes (j N)
(format t "~4f " (if (eql i j) '---
(aref scores i j)))))))
-