r4846: Auto commit for Debian build

diff --git a/base.lisp b/base.lisp
index 10edbde0e34502bc7af0a95af0fe065d5d14f3b6..ac4fb55d8d91c256bb3f2844913317f58fe390cb 100644 (file)
--- a/base.lisp
+++ b/base.lisp
@@ -8,7 +8,7 @@
 ;;;;  Programer:      Kevin Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: base.lisp,v 1.2 2002/10/25 13:09:11 kevin Exp $
+;;;; $Id: base.lisp,v 1.3 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -18,9 +18,10 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;;***************************************************************************
 
-(in-package :reversi)
-(declaim (optimize (safety 1) (debug 3) (speed 3) (compilation-speed 0)))
+(in-package #:reversi)
 
+(eval-when (:compile-toplevel)
+  (declaim (optimize (safety 1) (space 0) (speed 3) (compilation-speed 0))))
 
 (defparameter +all-directions+ '(-11 -10 -9 -1 1 9 10 11))
 (defconstant +default-max-minutes+ 30)

diff --git a/debian/changelog b/debian/changelog
index 615742e2483bead7074e1ddc6c6d6e82bea4e1a8..bbb916a6cd0ab83f4e5a02ac5eeb19617dcc3d1e 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+cl-reversi (1.0.4-1) unstable; urgency=low
+
+  * Remove the pusing of :reversi onto *features*
+  * Wrap declaim's in eval-when :compile-toplevel
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue,  6 May 2003 09:42:49 -0600
+
 cl-reversi (1.0.3-1) unstable; urgency=low
 
   * Add patches for McCLIM

diff --git a/edge-table.lisp b/edge-table.lisp
index 30a8ccc659c0627843e7f31a0a3a76496db9f05b..653c0c12c118970e09d0a388b117e710dbad4416 100644 (file)
--- a/edge-table.lisp
+++ b/edge-table.lisp
@@ -7,7 +7,7 @@
 ;;;;  Programer:      Kevin M. Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: edge-table.lisp,v 1.2 2002/10/25 09:23:39 kevin Exp $
+;;;; $Id: edge-table.lisp,v 1.3 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -18,8 +18,10 @@
 ;;;;***************************************************************************
 
 
-(in-package :reversi)
-(declaim (optimize (safety 1) (debug 3) (speed 3) (compilation-speed 0)))
+(in-package #:reversi)
+
+(eval-when (:compile-toplevel)
+  (declaim (optimize (safety 1) (space 0) (speed 3) (compilation-speed 0))))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defparameter *edge-and-x-lists*

diff --git a/io-clim.lisp b/io-clim.lisp
index 61357dd081511da952d49430492473fda1b54d89..d50f3a8e935fe583b8820a42e9a215476e8a60dc 100644 (file)
--- 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.10 2003/05/01 19:26:46 kevin Exp $
+;;;; $Id: io-clim.lisp,v 1.11 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;;
@@ -17,7 +17,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;;***************************************************************************
 
-(in-package :reversi)
+(in-package #:reversi)
 
 #+mcclim (shadowing-import 'clim-internals::stream-set-cursor-position)
 

diff --git a/io.lisp b/io.lisp
index 1837c18027bd413277828fc33b97d3b286cea2f8..26872eca12a75a20d0cf33123892d2481c24ee55 100644 (file)
--- a/io.lisp
+++ b/io.lisp
@@ -8,7 +8,7 @@
 ;;;;  Programer:      Kevin Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: io.lisp,v 1.2 2002/10/25 09:23:39 kevin Exp $
+;;;; $Id: io.lisp,v 1.3 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -18,8 +18,10 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;;***************************************************************************
 
-(in-package :reversi)
-(declaim (optimize (safety 1) (debug 3) (speed 3)))
+(in-package #:reversi)
+
+(eval-when (:compile-toplevel)
+  (declaim (optimize (safety 1) (space 0) (speed 3) (compilation-speed 0))))
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)

diff --git a/reversi.asd b/reversi.asd
index 59dcc42a47f1918d20b75d16d67d64fda730b55f..a6541f3884bc3c6bb15242ad3bc7553d271f72d0 100644 (file)
--- a/reversi.asd
+++ b/reversi.asd
@@ -8,7 +8,7 @@
 ;;;;  Programer:      Kevin M. Rosenberg
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: reversi.asd,v 1.2 2002/11/08 16:51:40 kevin Exp $
+;;;; $Id: reversi.asd,v 1.3 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;;
@@ -24,8 +24,6 @@
 #+(and lispworks (not lispworks-personal-edition)) (require "clim")
 
 (defsystem :reversi 
-    :perform (load-op :after (op reversi)
-                     (pushnew :reversi cl:*features*))
     :components 
     ((:file "package")
      (:file "utils" :depends-on ("package"))

diff --git a/strategies.lisp b/strategies.lisp
index 5529d01d4361dc33467e5e38b036150119d04057..e7d2fe681063a35c0c402e28b0a035c7cb99a2dc 100644 (file)
--- a/strategies.lisp
+++ b/strategies.lisp
@@ -8,7 +8,7 @@
 ;;;;  Programer:      Kevin Rosenberg based on code by Peter Norvig
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: strategies.lisp,v 1.4 2002/10/25 13:09:11 kevin Exp $
+;;;; $Id: strategies.lisp,v 1.5 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;; and Copyright (c) 1998-2002 Peter Norvig
@@ -18,8 +18,10 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;;***************************************************************************
 
-(in-package :reversi)
-(declaim (optimize (safety 1) (debug 3) (speed 3) (compilation-speed 0)))
+(in-package #:reversi)
+
+(eval-when (:compile-toplevel)
+  (declaim (optimize (safety 1) (space 0) (speed 3) (compilation-speed 0))))
 
 (defun random-strategy (player board)
   "Make any legal move."

diff --git a/utils.lisp b/utils.lisp
index d201033e9cd3750f770d6c2ced5e6ace72e7dcc8..247722415a707252417378d1fefa378d61431a4e 100644 (file)
--- a/utils.lisp
+++ b/utils.lisp
@@ -7,7 +7,7 @@
 ;;;;  Programer:      Kevin M. Rosenberg
 ;;;;  Date Started:   1 Nov 2001
 ;;;;
-;;;; $Id: utils.lisp,v 1.3 2002/10/25 12:39:15 kevin Exp $
+;;;; $Id: utils.lisp,v 1.4 2003/05/06 15:51:20 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg 
 ;;;;
@@ -16,8 +16,10 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;;***************************************************************************
 
-(in-package :reversi)
-(declaim (optimize (safety 1) (debug 3) (speed 3) (compilation-speed 0)))
+(in-package #:reversi)
+
+(eval-when (:compile-toplevel)
+  (declaim (optimize (safety 1) (space 0) (speed 3) (compilation-speed 0))))
 
 (defmacro missing-argument ()
   `(error "Missing an argument to a constructor"))