From 48b1a775e575a66bc154620107a8e27321ea306c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 6 May 2003 15:51:20 +0000 Subject: [PATCH] r4846: Auto commit for Debian build --- base.lisp | 7 ++++--- debian/changelog | 7 +++++++ edge-table.lisp | 8 +++++--- io-clim.lisp | 4 ++-- io.lisp | 8 +++++--- reversi.asd | 4 +--- strategies.lisp | 8 +++++--- utils.lisp | 8 +++++--- 8 files changed, 34 insertions(+), 20 deletions(-) diff --git a/base.lisp b/base.lisp index 10edbde..ac4fb55 100644 --- 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 615742e..bbb916a 100644 --- 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 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 30a8ccc..653c0c1 100644 --- 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 61357dd..d50f3a8 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.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 1837c18..26872ec 100644 --- 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 59dcc42..a6541f3 100644 --- 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 5529d01..e7d2fe6 100644 --- 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 d201033..2477224 100644 --- 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")) -- 2.34.1