From a115090a16c9b28106227f67c968cad1a412b092 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Sat, 3 Nov 2007 22:20:19 +0100
Subject: [PATCH] acknowledge via imports that we don't spec subpackage.

---
 ls-demo.lisp | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/ls-demo.lisp b/ls-demo.lisp
index b4ad350..8160305 100644
--- a/ls-demo.lisp
+++ b/ls-demo.lisp
@@ -15,10 +15,14 @@
 
 (in-package :ls-user)
 
+;; Probability
+
 (binomial-quant 0.95 3 0.4) ; 3
 (binomial-quant 0 3 0.4) ; 0
 (normal-rand 20)
 
+;; Matrix algebra.
+
 
 (chol-decomp  #2A((2 3 4) (1 2 4) (2 4 5)))
 ;; (#2A((1.7888543819998317 0.0 0.0)
@@ -34,12 +38,12 @@
  #(2 3 4))
 ;; #(-2.333333333333333 1.3333333333333335 0.6666666666666666)
 
-(lisp-stat-linalg:inverse #2A((2 3 4) (1 2 4) (2 4 5)))
+(inverse #2A((2 3 4) (1 2 4) (2 4 5)))
 ;; #2A((2.0 -0.33333333333333326 -1.3333333333333335)
 ;;     (-1.0 -0.6666666666666666 1.3333333333333333)
 ;;     (0.0 0.6666666666666666 -0.3333333333333333))
 
-(lisp-stat-linalg:sv-decomp  #2A((2 3 4) (1 2 4) (2 4 5)))
+(sv-decomp  #2A((2 3 4) (1 2 4) (2 4 5)))
 ;; (#2A((-0.5536537653489974 0.34181191712789266 -0.7593629708013371)
 ;;      (-0.4653437312661058 -0.8832095891230851 -0.05827549615722014)
 ;;      (-0.6905959164998124 0.3211003503429828 0.6480523475178517))
@@ -49,7 +53,7 @@
 ;;      (-0.7762392122368734 -0.6242853493399995 -0.08786630745236332))
 ;;  T)
 
-(lisp-stat-linalg:qr-decomp  #2A((2 3 4) (1 2 4) (2 4 5)))
+(qr-decomp  #2A((2 3 4) (1 2 4) (2 4 5)))
 ;; (#2A((-0.6666666666666665 0.7453559924999298 5.551115123125783e-17)
 ;;      (-0.3333333333333333 -0.2981423969999719 -0.894427190999916)
 ;;      (-0.6666666666666666 -0.5962847939999439 0.44721359549995787))
@@ -57,38 +61,37 @@
 ;;      (0.0 -0.7453559924999292 -1.1925695879998877)
 ;;      (0.0 0.0 -1.3416407864998738)))
 
-(lisp-stat-linalg:rcondest #2A((2 3 4) (1 2 4) (2 4 5))) 
+(rcondest #2A((2 3 4) (1 2 4) (2 4 5))) 
 ;; 6.8157451e7
 
-(lisp-stat-linalg:eigen #2A((2 3 4) (1 2 4) (2 4 5)))
+(eigen #2A((2 3 4) (1 2 4) (2 4 5)))
 ;; (#(10.656854249492381 -0.6568542494923802 -0.9999999999999996)
 ;;  (#(0.4999999999999998 0.4999999999999997 0.7071067811865475)
 ;;   #(-0.49999999999999856 -0.5000000000000011 0.7071067811865474)
 ;;   #(0.7071067811865483 -0.7071067811865466 -1.2560739669470215e-15))
 ;;  NIL)
 
-(lisp-stat-linalg:spline #(1.0 1.2 1.3 1.8 2.1 2.5)  
- #(1.2 2.0 2.1 2.0 1.1 2.8) :xvals 6)
+(spline #(1.0 1.2 1.3 1.8 2.1 2.5)  
+	#(1.2 2.0 2.1 2.0 1.1 2.8) :xvals 6)
 ;; ((1.0 1.3 1.6 1.9 2.2 2.5)
 ;;  (1.2 2.1 2.2750696543866313 1.6465231041904045 1.2186576148879609 2.8))
 
 ;;; using KERNEL-SMOOTH-FRONT, not KERNEL-SMOOTH-CPORT
-(lisp-stat-linalg:kernel-smooth #(1.0 1.2 1.3 1.8 2.1 2.5)  
-#(1.2 2.0 2.1 2.0 1.1 2.8) :xvals 5)
+(kernel-smooth #(1.0 1.2 1.3 1.8 2.1 2.5)  
+	       #(1.2 2.0 2.1 2.0 1.1 2.8) :xvals 5)
 ;; ((1.0 1.375 1.75 2.125 2.5)
 ;;  (1.6603277642110226 1.9471748095239771 1.7938127405752287 
 ;;   1.5871511322219498 2.518194783156392))
 
-(lisp-stat-linalg:kernel-dens #(1.0 1.2 2.5 2.1 1.8 1.2) :xvals 5)
+(kernel-dens #(1.0 1.2 2.5 2.1 1.8 1.2) :xvals 5)
 ;; ((1.0 1.375 1.75 2.125 2.5)
 ;;  (0.7224150453621405 0.5820045548233707 0.38216411702854214 
 ;;   0.4829822708587095 0.3485939156929503))
 
-(lisp-stat-linalg:fft #(1.0 1.2 2.5 2.1 1.8))
+(fft #(1.0 1.2 2.5 2.1 1.8))
 ;; #(#C(1.0 0.0) #C(1.2 0.0) #C(2.5 0.0) #C(2.1 0.0) #C(1.8 0.0))
 
-(lisp-stat-descriptive-statistics:lowess 
- #(1.0 1.2 2.5 2.1 1.8 1.2)  #(1.2 2.0 2.1 2.0 1.1 2.8))
+(lowess #(1.0 1.2 2.5 2.1 1.8 1.2)  #(1.2 2.0 2.1 2.0 1.1 2.8))
 ;; (#(1.0 1.2 1.2 1.8 2.1 2.5))
 
 
-- 
2.11.4.GIT