r3160: *** empty log message ***

[xptest.git] / package.lisp

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