r3160: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 2e6481fa20ea7dbda5f559563bbd669ead7ce1c2..ef860f9bc791b278fe0268c4cb0e28e2b87f34bd 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-xptest (1.1-1) unstable; urgency=low
+
+  * Move example package definition into example file
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 24 Oct 2002 10:38:55 -0600
+
 cl-xptest (1.0-1) unstable; urgency=low
 
   * Initial release (closes: 165925)

diff --git a/package.lisp b/package.lisp
index f94d9630ea0ff53e6dc0a840ffd90ceabefd9c04..417257e3078f627e1c2afa65cf6b4e97954a0fa9 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -1,38 +1,30 @@
 ;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: cl-user -*-
-;;; $Id: package.lisp,v 1.1 2002/10/22 18:46:20 kevin Exp $
+;;; $Id: package.lisp,v 1.2 2002/10/24 16:41:54 kevin Exp $
 
-(in-package :cl-user)
+(in-package #:cl-user)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-
-  (defpackage :xp-test-framework
-    (:use #:common-lisp)
-    (:nicknames #:xp-test #:xptest)
-    (:export
+(defpackage #:xp-test-framework
+  (:use #:common-lisp)
+  (:nicknames #:xp-test #:xptest)
+  (:export
      ;;; Framework classes
-     #:setup
-     #:teardown
-     #:perform-test
-     #:test-failure
-     #:failure
-     #:run-test
-     #:def-test-fixture
-     #:make-test-case
-     #:make-test-suite
-     #:setup-testsuite-named
-     #:teardown-testsuite-named
-     #:add-test
-     #:test-named
-     #:remove-test
-     #:tests
-     #:test-result
-     #:report-result
-     )
-    (:documentation "This is the XP TestSuite Framework."))
-
-  (defpackage :xp-test-example
-    (:use #:common-lisp #:xp-test)
-    (:export
-     #:math-test-suite))
-  )
+   #:setup
+   #:teardown
+   #:perform-test
+   #:test-failure
+   #:failure
+   #:run-test
+   #:def-test-fixture
+   #:make-test-case
+   #:make-test-suite
+   #:setup-testsuite-named
+   #:teardown-testsuite-named
+   #:add-test
+   #:test-named
+   #:remove-test
+   #:tests
+   #:test-result
+   #:report-result
+   )
+  (:documentation "This is the XP TestSuite Framework."))
 

diff --git a/xptest-example.lisp b/xptest-example.lisp
index 9700db211bb19b643b7fb4cc8bf5dabeb7846b3b..d93bae1d28afa25f348fd14e591855b611314cf4 100644 (file)
--- a/xptest-example.lisp
+++ b/xptest-example.lisp
@@ -4,7 +4,13 @@
 ;;;;
 ;;;; Author: Craig Brozefsky <craig@onshore.com>
 ;;;; Put in public domain by onShore, Inc
-(in-package :xp-test-example)
+
+(defpackage #:xp-test-example
+  (:use #:common-lisp #:xp-test)
+  (:export
+   #:math-test-suite))
+
+(in-package #:xp-test-example)
 
 ;;; First we define some basic fixtures that we are going to need to
 ;;; perform our tests.  A fixture is a place to hold data we need