From 6baf8b75aa111155460840082ddf1093d41f8cf3 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Fri, 3 Oct 2008 02:35:18 +0200
Subject: [PATCH] package cleanup continues, packages contains what might've
 been in ls-user before

---
 src/{ls-user.lisp => packages.lisp} | 85 +++++++++++++++++++++++++++++++++++--
 1 file changed, 82 insertions(+), 3 deletions(-)
 rename src/{ls-user.lisp => packages.lisp} (68%)

diff --git a/src/ls-user.lisp b/src/packages.lisp
similarity index 68%
rename from src/ls-user.lisp
rename to src/packages.lisp
index 6851926..787257d 100644
--- a/src/ls-user.lisp
+++ b/src/packages.lisp
@@ -1,7 +1,82 @@
 ;;; -*- mode: lisp -*-
-;;; Copyright (c) 2005--2007, by A.J. Rossini <blindglobe@gmail.com>
-;;; See COPYRIGHT file for any additional restrictions (BSD license).
-;;; Since 1991, ANSI was finally finished.  Edited for ANSI Common Lisp. 
+
+;;; Time-stamp: <2008-10-03 02:34:15 tony>
+;;; Creation:   <2008-03-11 19:18:34 user> 
+;;; File:       packages.lisp
+;;; Author:     AJ Rossini <blindglobe@gmail.com>
+;;; Copyright:  (c)2007--2008, AJ Rossini.  BSD, LLGPL, or GPLv2, depending
+;;;             on how it arrives.  
+;;; Purpose:    package structure description for lispstat
+
+;;; What is this talk of 'release'? Klingons do not make software
+;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
+;;; designers and quality assurance people in its wake.
+
+;;; This organization and structure is new to the 21st Century
+;;; version.
+
+(in-package :cl-user)
+
+;;; LispStat Basics
+
+(defpackage :lisp-stat-basics
+    (:use :common-lisp
+	  :lisp-stat-object-system
+	  :lisp-stat-types
+	  :lisp-stat-float
+	  :lisp-stat-macros
+	  :lisp-stat-compound-data)
+  (:shadowing-import-from :lisp-stat-object-system
+			  slot-value call-method call-next-method)
+  (:export permute-array sum prod count-elements mean
+	   if-else sample))
+
+
+;;;
+
+
+
+(defpackage :lisp-stat-float
+  (:use :common-lisp)
+  (:export +stat-float-typing+ +stat-cfloat-typing+ +stat-float-template+
+	   machine-epsilon base-float makedouble
+
+	   make-base-trans-fun-2 make-base-trans-fun 
+
+	   BASE-LOG BASE-EXP BASE-EXPT BASE-SQRT BASE-SIN BASE-COS
+	   BASE-TAN BASE-ASIN BASE-ACOS BASE-ATAN BASE-SINH
+	   BASE-COSH BASE-TANH BASE-ASINH BASE-ACOSH BASE-ATANH
+	   BASE-ABS BASE-PHASE BASE-FFLOOR BASE-FCEILING BASE-FTRUNCATE
+	   BASE-FROUND BASE-SIGNUM BASE-CIS))
+
+;;; 
+
+(defpackage :lisp-stat-macros
+  (:use :common-lisp
+	:lisp-stat-compound-data)
+  (:export make-rv-function make-rv-function-1))
+
+;;; NEW CLOS STRUCTURE
+
+(defpackage :lisp-stat-data-clos
+  (:use :common-lisp
+	:lisp-matrix)
+  (:export get-variable-matrix get-variable-vector
+	   ;; generic container class for data -- if small enough
+	   ;; could be value, otherwise might be reference.
+	   data-pointer))
+
+(defpackage :lisp-stat-regression-linear-clos
+  (:use :common-lisp
+	:lisp-matrix
+	:lisp-stat-data-clos)
+  (:export regression-model regression-model-obj x y intercept sweep-matrix
+	   basis weights included total-sum-of-squares residual-sum-of-squares
+	   predictor-names response-name case-labels))
+
+
+
+;;;
 
 (defpackage :lisp-stat
     (:documentation "Experimentation package for LispStat.  Serious work
@@ -129,6 +204,8 @@ should be packaged up elsewhere for reproducibility.")
    ;; bayes.lsp
    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
@@ -149,3 +226,5 @@ done for a user- or analysis-package.")
       ftruncate fround signum cis
 
       <= float imagpart))
+
+
-- 
2.11.4.GIT