From 5548514c1cdd2d9961567e97941c1bfdfa555c66 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Wed, 10 Feb 2010 08:44:53 +0100 Subject: [PATCH] examples cleaned up --- examples/basic-eda.lisp | 7 +++++-- examples/loading-data.lisp | 14 +++++++++++--- 2 files changed, 16 insertions(+), 5 deletions(-) diff --git a/examples/basic-eda.lisp b/examples/basic-eda.lisp index 0be14c6..e02c3e7 100644 --- a/examples/basic-eda.lisp +++ b/examples/basic-eda.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2010-01-20 11:12:24 tony> +;;; Time-stamp: <2010-02-09 16:15:54 tony> ;;; Creation: <2009-04-19 09:41:09 tony> ;;; File: basic-eda.lisp ;;; Author: AJ Rossini @@ -13,12 +13,15 @@ ;;; designers and quality assurance people in its wake. -(in-package :ls-user) +(in-package :cls-examples) ;; We assume that the "loading-data.lisp" code has been run, and one ;; now wants to analyze the data loaded into *chickwts-df* +(load (localized-pathto "loading-data.lisp") + :verbose t) + *chickwts* ;; Summarize is the basic EDA tool -- it accepts symbols or lists of diff --git a/examples/loading-data.lisp b/examples/loading-data.lisp index 0d6d34d..4146b4b 100644 --- a/examples/loading-data.lisp +++ b/examples/loading-data.lisp @@ -1,6 +1,6 @@ -;;; -*- mode: lisp -*- +;;; -*- mode: lisp -*- -;;; Time-stamp: <2010-01-15 07:56:57 tony> +;;; Time-stamp: <2010-02-09 16:18:07 tony> ;;; Creation: <2009-03-12 17:14:56 tony> ;;; File: template.lisp ;;; Author: AJ Rossini @@ -12,8 +12,16 @@ ;;; 'releases'. Our software 'escapes', leaving a bloody trail of ;;; designers and quality assurance people in its wake. + +(in-package :cl-user) +(cl:defpackage :cls-examples + (:use :common-lisp + :cls-user) + (:export localized-pathto + *chkwgts-df*)) + ;; start within the common-lisp-stat-user -(in-package :cls-user) +(in-package :cls-examples) ;; we'll be loading from directories in the CLS homedir, so we want to ;; make it easier to reach. -- 2.11.4.GIT