From 2c01adaabc55181ab0c7b382c8a1248ef88992a6 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Mon, 3 Nov 2008 08:19:28 +0100
Subject: [PATCH] cleaned up packages a bit more.

---
 src/packages.lisp | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/src/packages.lisp b/src/packages.lisp
index a673525..383315b 100644
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -1,6 +1,6 @@
 ;;; -*- mode: lisp -*-
 
-;;; Time-stamp: <2008-11-02 11:02:26 tony>
+;;; Time-stamp: <2008-11-02 11:11:51 tony>
 ;;; Creation:   <2008-03-11 19:18:34 user> 
 ;;; File:       packages.lisp
 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
@@ -451,13 +451,8 @@ should be packaged up elsewhere for reproducibility.")
    bayes-model bayes-model-proto bayes-internals))
 
 
-
-(defpackage :lisp-stat-user
-  (:documentation "Experimentation package for LispStat.
-Serious work should be placed in a similar package elsewhere for
-reproducibility.  But this should hint as to what needs to be
-done for a user- or analysis-package.")
-  (:nicknames :ls-user)
+(defpackage :lisp-stat-data-examples
+  (:documentation "Example data used for unittests and illustrations,")
   (:use :common-lisp
 	:lisp-stat)
   (:shadowing-import-from :lisp-stat
@@ -471,13 +466,19 @@ done for a user- or analysis-package.")
       min max logand logior logxor lognot ffloor fceiling
       ftruncate fround signum cis
 
-      <= float imagpart))
+      <= float imagpart)
+  (:export iron aluminum diabetes ))
 
 
-(defpackage :lisp-stat-data-examples
-  (:documentation "Example data used for unittests and illustrations,")
+(defpackage :lisp-stat-user
+  (:documentation "Experimentation package for LispStat.
+Serious work should be placed in a similar package elsewhere for
+reproducibility.  But this should hint as to what needs to be
+done for a user- or analysis-package.")
+  (:nicknames :ls-user)
   (:use :common-lisp
-	:lisp-stat)
+	:lisp-stat
+	:lisp-stat-data-examples) ;; this last is to have 'things to play with'
   (:shadowing-import-from :lisp-stat
       slot-value call-method call-next-method
 
@@ -489,8 +490,9 @@ done for a user- or analysis-package.")
       min max logand logior logxor lognot ffloor fceiling
       ftruncate fround signum cis
 
-      <= float imagpart)
-  (:export iron aluminum diabetes ))
+      <= float imagpart))
+
+
 
 ;;; 
 
-- 
2.11.4.GIT