lspackages.lsp

   1 ;;;; lspackages -- Lisp-Stat package specifications
   2 ;;;;
   3 ;;;; Copyright (c) 1991, by Luke Tierney. Permission is granted for
   4 ;;;; unrestricted use.
   5
   6 (provide "lspackages")
   7
   8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   9 ;;;;;
  10 ;;;;;                 LISP-STAT-OBJECT-SYSTEM Package
  11 ;;;;;
  12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13
  14 ;;;;
  15 ;;;; lsobjects.lsp
  16 ;;;;
  17
  18 #+:CLtL2
  19 (progn
  20   (defpackage "LISP-STAT-OBJECT-SYSTEM"
  21     (:nicknames "LS-OBJECTS" "LSOS")
  22     (:use "COMMON-LISP")
  23     (:shadow "CALL-NEXT-METHOD" "SLOT-VALUE"))
  24
  25   (in-package lisp-stat-object-system))
  26
  27 #-:CLtL2
  28 (progn
  29   (in-package 'lisp-stat-object-system
  30               :nicknames '(ls-objects lsos)
  31               :use '(lisp))
  32
  33   (shadow '(call-next-method slot-value)))
  34
  35 (export '(ls-object objectp *object* kind-of-p make-object *message-hook*
  36           *set-slot-hook* slot-value self send call-next-method call-method
  37           defmeth defproto instance-slots proto-name))
  38
  39
  40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41 ;;;;;
  42 ;;;;;                       LISP-STAT-BASICS Package
  43 ;;;;;
  44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  45
  46 ;;;;
  47 ;;;; lsbasics.lsp
  48 ;;;;
  49
  50 #+:CLtL2
  51 (progn
  52   (defpackage "LISP-STAT-BASICS"
  53     (:nicknames "LS-BASICS")
  54     (:use "COMMON-LISP" "LISP-STAT-OBJECT-SYSTEM"))
  55
  56   (in-package lisp-stat-basics))
  57 #-:CLtL2
  58 (in-package 'lisp-stat-basics
  59             :nicknames '(ls-basics)
  60             :use '(lisp lsos))
  61
  62 (shadowing-import (package-shadowing-symbols 'lisp-stat-object-system))
  63 (use-package 'lisp-stat-object-system)
  64
  65 (export '(sequencep copy-vector copy-array iseq which repeat select
  66           permute-array sum prod count-elements mean if-else
  67           sample sort-data order rank))
  68
  69 ;;;;
  70 ;;;; kclpatch.lsp
  71 ;;;;
  72
  73 #+:kcl
  74 (export '(function-lambda-expression realp fixnump))
  75
  76 ;;;;
  77 ;;;; compound.lsp
  78 ;;;;
  79
  80 (export '(compound-data-p map-elements compound-data-seq
  81           compound-data-length element-seq compound-data-proto))
  82
  83 ;;;;
  84 ;;;; dists.lsp
  85 ;;;;
  86
  87 (export '(log-gamma uniform-rand normal-cdf normal-quant normal-dens
  88           normal-rand bivnorm-cdf cauchy-cdf cauchy-quant cauchy-dens
  89           cauchy-rand gamma-cdf gamma-quant gamma-dens gamma-rand
  90           chisq-cdf chisq-quant chisq-dens chisq-rand beta-cdf beta-quant
  91           beta-dens beta-rand t-cdf t-quant t-dens t-rand f-cdf f-quant
  92           f-dens f-rand poisson-cdf poisson-quant poisson-pmf poisson-rand
  93           binomial-cdf binomial-quant binomial-pmf binomial-rand))
  94
  95 ;;;;
  96 ;;;; linalg.lsp
  97 ;;;;
  98
  99 (export '(chol-decomp lu-decomp lu-solve determinant inverse sv-decomp
 100           qr-decomp rcondest make-rotation spline kernel-dens kernel-smooth
 101           fft make-sweep-matrix sweep-operator ax+y numgrad numhess
 102           split-list eigen))
 103
 104 ;;;;
 105 ;;;; matrices.lsp
 106 ;;;;
 107
 108 (export '(matrixp num-rows num-cols matmult identity-matrix diagonal
 109           row-list column-list inner-product outer-product cross-product
 110           transpose bind-columns bind-rows))
 111
 112 ;;;;
 113 ;;;; lsfloat.lsp
 114 ;;;;
 115
 116 (export '(*stat-float-type* *stat-cfloat-type* *stat-float-template*
 117           machine-epsilon))
 118
 119 ;;;;
 120 ;;;; mclglue.lsp
 121 ;;;;
 122
 123 #+:mcl
 124 (import '(ccl:def-logical-directory ccl:ff-load ccl:deffcfun ccl:defccallable))
 125
 126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 127 ;;;;;
 128 ;;;;;                         LISP-STAT Package
 129 ;;;;;
 130 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 131
 132 ;;;;
 133 ;;;; lsmath.lsp
 134 ;;;;
 135
 136 #+:CLtL2
 137 (progn
 138   (defpackage "LISP-STAT"
 139     (:nicknames "LS" "STATS")
 140     (:use "COMMON-LISP" "LISP-STAT-BASICS" "LISP-STAT-OBJECT-SYSTEM"))
 141
 142   (in-package lisp-stat))
 143 #-:CLtL2
 144 (in-package 'lisp-stat
 145             :nicknames '(ls stats)
 146             :use '(lisp ls-basics lsos))
 147
 148 (shadowing-import (package-shadowing-symbols 'lisp-stat-object-system))
 149 (shadowing-import (package-shadowing-symbols 'lisp-stat-basics))
 150 (use-package 'lisp-stat-object-system)
 151 (use-package 'lisp-stat-basics)
 152
 153 (shadow '(expt + - * / ** mod rem abs 1+ 1- log exp sqrt sin cos tan
 154           asin acos atan sinh cosh tanh asinh acosh atanh float random
 155           truncate floor ceiling round minusp zerop plusp evenp oddp
 156           < <= = /= >= > complex conjugate realpart imagpart phase
 157           min max logand logior logxor lognot ffloor fceiling
 158           ftruncate fround signum cis))
 159
 160 (export '(^ ** expt + - * / mod rem pmin pmax abs 1+ 1- log exp sqrt sin cos
 161           tan asin acos atan sinh cosh tanh asinh acosh atanh float random
 162           truncate floor ceiling round minusp zerop plusp evenp oddp < <= =
 163           /= >= > complex conjugate realpart imagpart phase min max
 164           logand logior logxor lognot ffloor fceiling ftruncate fround
 165           signum cis))
 166
 167 (import 'ls-basics::install-rv-function)
 168 (import '(ls-basics::rv-expt ls-basics::rv-+ ls-basics::rv--
 169           ls-basics::rv-* ls-basics::rv-/ ls-basics::rv-mod
 170           ls-basics::rv-rem ls-basics::rv-pmin ls-basics::rv-pmax
 171           ls-basics::rv-1+ ls-basics::rv-1- ls-basics::rv-exp
 172           ls-basics::rv-log ls-basics::rv-sqrt ls-basics::rv-sin
 173           ls-basics::rv-cos ls-basics::rv-tan ls-basics::rv-atan
 174           ls-basics::rv-float ls-basics::rv-random ls-basics::rv-floor
 175           ls-basics::rv-ceiling ls-basics::rv-truncate ls-basics::rv-round
 176           ls-basics::rv-zerop ls-basics::rv-plusp ls-basics::rv-minusp
 177           ls-basics::rv-oddp ls-basics::rv-evenp ls-basics::rv-<
 178           ls-basics::rv-<= ls-basics::rv-= ls-basics::rv-/=
 179           ls-basics::rv->= ls-basics::rv-> ls-basics::rv-complex
 180           ls-basics::rv-realpart ls-basics::rv-imagpart
 181           ls-basics::rv-conjugate))
 182
 183 (import '(ls-basics::base-expt ls-basics::base-log ls-basics::base-exp
 184           ls-basics::base-sqrt ls-basics::base-sin ls-basics::base-cos
 185           ls-basics::base-tan ls-basics::base-asin ls-basics::base-acos
 186           ls-basics::base-atan ls-basics::base-sinh ls-basics::base-cosh
 187           ls-basics::base-tanh ls-basics::base-asinh ls-basics::base-acosh
 188           ls-basics::base-atanh ls-basics::base-float ls-basics::base-abs
 189           ls-basics::base-phase ls-basics::base-ffloor
 190           ls-basics::base-fceiling ls-basics::base-ftruncate
 191           ls-basics::base-fround ls-basics::base-signum
 192           ls-basics::base-cis))
 193
 194 (import '(ls-basics::make-rv-function ls-basics::make-rv-function-1))
 195
 196 ;;;;
 197 ;;;; statistics.lsp
 198 ;;;;
 199
 200 (export '(open-file-dialog read-data-file read-data-columns load-data
 201           load-example *variables* *ask-on-redefine* def variables savevar
 202           undef standard-deviation quantile median interquartile-range
 203           fivnum covariance-matrix difference rseq matrix print-matrix solve
 204           backsolve eigenvalues eigenvectors accumulate cumsum combine
 205           lowess))
 206
 207 (import 'ls-basics::|base-lowess|)
 208
 209 ;;;;
 210 ;;;; regression.lsp
 211 ;;;;
 212
 213 (export '(regression-model regression-model-proto x y intercept sweep-matrix
 214           basis weights included total-sum-of-squares residual-sum-of-squares
 215           predictor-names response-name case-labels))
 216
 217 ;;;;
 218 ;;;; nonlin.lsp
 219 ;;;;
 220
 221 (export '(nreg-model nreg-model-proto mean-function theta-hat epsilon
 222           count-limit verbose))
 223
 224 ;;;;
 225 ;;;; maximize.lsp
 226 ;;;;
 227
 228 (export '(newtonmax nelmeadmax))
 229
 230 (import '(ls-basics::new-minfo-internals ls-basics::minfo-maximize))
 231
 232 ;;;;
 233 ;;;; bayes.lsp
 234 ;;;;
 235
 236 (export '(bayes-model bayes-model-proto bayes-internals))
 237
 238 ;;;;
 239 ;;;; lstoplevel.lsp
 240 ;;;;
 241
 242 #+:kcl
 243 (import '(si::*quit-tag* si::*eof* si::*lisp-initialized*
 244                          si::reset-stack-limits si::break-current))