From 918dd1a7c5ae193ef41d67bfcc6fe3a8d869cdca Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 24 Oct 2002 16:41:54 +0000
Subject: [PATCH] r3160: *** empty log message ***

---
 debian/changelog    |  6 +++++
 package.lisp        | 58 +++++++++++++++++++--------------------------
 xptest-example.lisp |  8 ++++++-
 3 files changed, 38 insertions(+), 34 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 2e6481f..ef860f9 100644
--- 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 f94d963..417257e 100644
--- 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 9700db2..d93bae1 100644
--- 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
-- 
2.34.1