From d77c4f5802f630ae9fdfb88b15bd03ee0da1e47d Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sun, 20 Sep 2009 18:15:53 +0200 Subject: [PATCH] clean up, checkpointing. Signed-off-by: AJ Rossini --- ls-demo.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/ls-demo.lisp b/ls-demo.lisp index a51911b..c569fc5 100644 --- a/ls-demo.lisp +++ b/ls-demo.lisp @@ -3,7 +3,7 @@ ;;; See COPYRIGHT file for any additional restrictions (BSD license). ;;; Since 1991, ANSI was finally finished. Edited for ANSI Common Lisp. -;;; Time-stamp: <2009-09-04 18:00:16 tony> +;;; Time-stamp: <2009-09-17 22:19:31 tony> ;;; Creation: sometime in 2006... ;;; File: ls-demo.lisp ;;; Author: AJ Rossini @@ -16,7 +16,6 @@ (in-package :cl-user) - ;; (asdf:oos 'asdf:compile-op 'cls :force t) (asdf:oos 'asdf:load-op 'cls) @@ -31,7 +30,8 @@ (check-type x string) (concatenate 'string *my-cls-homedir* x)) -;;; == READ DATA + +;;; DataFrames (defparameter *my-df-1* (make-instance 'dataframe-array @@ -51,8 +51,6 @@ (make-dataframe (rand 4 3)) - - (defparameter *my-df-2* (make-dataframe #2A((1 2 3 4 5) (10 20 30 40 50)) @@ -76,6 +74,7 @@ ;;; HERE#1 +;;; == READ DATA ;;; read in a CSV dataframe... @@ -127,6 +126,8 @@ :doc "This is an interesting dataframe-array that currently fails")) ;; *my-df-4* +(aref (dataset *my-df-4*) 0 1) + (defparameter *my-df-5* (make-instance 'dataframe-array -- 2.11.4.GIT