src/packages.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2008-10-03 02:25:41 tony>
   4 ;;; Creation:   <2008-03-11 19:18:34 user>
   5 ;;; File:       packages.lisp
   6 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   7 ;;; Copyright:  (c)2007--2008, AJ Rossini.  BSD, LLGPL, or GPLv2, depending
   8 ;;;             on how it arrives.
   9 ;;; Purpose:    package structure description for lispstat
  10
  11 ;;; What is this talk of 'release'? Klingons do not make software
  12 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  13 ;;; designers and quality assurance people in its wake.
  14
  15 ;;; This organization and structure is new to the 21st Century
  16 ;;; version.
  17
  18 (in-package :cl-user)
  19
  20 ;;; LispStat Basics
  21
  22 (defpackage :lisp-stat-basics
  23     (:use :common-lisp
  24           :lisp-stat-object-system
  25           :lisp-stat-types
  26           :lisp-stat-float
  27           :lisp-stat-macros
  28           :lisp-stat-compound-data)
  29   (:shadowing-import-from :lisp-stat-object-system
  30                           slot-value call-method call-next-method)
  31   (:export permute-array sum prod count-elements mean
  32            if-else sample))
  33
  34
  35 ;;;
  36
  37
  38
  39 (defpackage :lisp-stat-float
  40   (:use :common-lisp)
  41   (:export +stat-float-typing+ +stat-cfloat-typing+ +stat-float-template+
  42            machine-epsilon base-float makedouble
  43
  44            make-base-trans-fun-2 make-base-trans-fun
  45
  46            BASE-LOG BASE-EXP BASE-EXPT BASE-SQRT BASE-SIN BASE-COS
  47            BASE-TAN BASE-ASIN BASE-ACOS BASE-ATAN BASE-SINH
  48            BASE-COSH BASE-TANH BASE-ASINH BASE-ACOSH BASE-ATANH
  49            BASE-ABS BASE-PHASE BASE-FFLOOR BASE-FCEILING BASE-FTRUNCATE
  50            BASE-FROUND BASE-SIGNUM BASE-CIS))
  51
  52 ;;;
  53
  54 (defpackage :lisp-stat-macros
  55   (:use :common-lisp
  56         :lisp-stat-compound-data)
  57   (:export make-rv-function make-rv-function-1))
  58
  59 ;;; NEW CLOS STRUCTURE
  60
  61 (defpackage :lisp-stat-data-clos
  62   (:use :common-lisp
  63         :lisp-matrix)
  64   (:export get-variable-matrix get-variable-vector
  65            ;; generic container class for data -- if small enough
  66            ;; could be value, otherwise might be reference.
  67            data-pointer))
  68
  69 (defpackage :lisp-stat-regression-linear-clos
  70   (:use :common-lisp
  71         :lisp-matrix
  72         :lisp-stat-data-clos)
  73   (:export regression-model regression-model-obj x y intercept sweep-matrix
  74            basis weights included total-sum-of-squares residual-sum-of-squares
  75            predictor-names response-name case-labels))
  76