Fix types/initforms

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)))))))

-

diff --git a/debian/changelog b/debian/changelog
index b28664e3a4e9e7c1d69ab5b26f81ee2da7e7743c..9f56ab623159672bb8bc31890cc1edb9020ecf97 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-reversi (1.0.16-1) unstable; urgency=low
+
+  * New upstream: compatible with latest SBCL
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 01 Oct 2020 17:05:26 -0600
+

 cl-reversi (1.0.15-1) unstable; urgency=low
 
   * Switch to dpkg-source 3.0 (quilt) format
 cl-reversi (1.0.15-1) unstable; urgency=low
 
   * Switch to dpkg-source 3.0 (quilt) format

diff --git a/debian/compat b/debian/compat
index 7f8f011eb73d6043d2e6db9d2c101195ae2801f2..b4de3947675361a7770d29b8982c407b0ec6b2a0 100644 (file)
--- a/debian/compat
+++ b/debian/compat
@@ -1 +1 @@
-7
+11

diff --git a/debian/control b/debian/control
index a60d275af949cdbf7277a68eaefc1540e0ddc147..03cda3dc25579a5ebf6f362b3d02ace0f3215caf 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -3,7 +3,7 @@ Section: lisp
 Priority: optional
 Maintainer: Kevin M. Rosenberg <kmr@debian.org>
 Build-Depends-Indep: dh-lisp
 Priority: optional
 Maintainer: Kevin M. Rosenberg <kmr@debian.org>
 Build-Depends-Indep: dh-lisp

-Build-Depends: debhelper (>= 7.0.0)
+Build-Depends: debhelper (>= 11.0.0)

 Standards-Version: 3.9.5.0
 Homepage: http://files.kpe.io/reversi/
 Vcs-Git: git://git.kpe.io/reversi.git
 Standards-Version: 3.9.5.0
 Homepage: http://files.kpe.io/reversi/
 Vcs-Git: git://git.kpe.io/reversi.git

diff --git a/debian/rules b/debian/rules
index 1bcda621c2f677f4c97cf2ec93bbd25f0f37f1b3..a2632fe46cf220928d4a96ca4f232b04231801bf 100755 (executable)
--- a/debian/rules
+++ b/debian/rules
@@ -7,14 +7,10 @@ clc-source    := usr/share/common-lisp/source
 clc-systems    := usr/share/common-lisp/systems
 clc-files      := $(clc-source)/$(pkg)
 
 clc-systems    := usr/share/common-lisp/systems
 clc-files      := $(clc-source)/$(pkg)
 

-

 build: build-indep build-arch
 build: build-indep build-arch

-

 build-indep:
 build-indep:

-

 build-arch:
 
 build-arch:
 

-

 clean:
        dh_testdir
        dh_testroot
 clean:
        dh_testdir
        dh_testroot