From d9c7557c629ba7f0b9819688d513ef4b4b233fa2 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 8 Oct 2012 17:03:06 +0200 Subject: [PATCH] var change not propagate (installation home dir). Fixed. Also, ensure that we load CLS before starting to do anything. This is supposed to be a script from START, not from the middle. Signed-off-by: AJ Rossini --- examples/00-loadingData.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/examples/00-loadingData.lisp b/examples/00-loadingData.lisp index f095521..0d51a53 100644 --- a/examples/00-loadingData.lisp +++ b/examples/00-loadingData.lisp @@ -1,12 +1,11 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2010-06-07 13:55:13 tony> +;;; Time-stamp: <2012-10-08 16:21:58 tony> ;;; Creation: <2009-03-12 17:14:56 tony> -;;; File: template.lisp +;;; File: 00-loadingData.lisp ;;; Author: AJ Rossini -;;; Copyright: (c)2009--, AJ Rossini. BSD, LLGPL, or GPLv2, depending -;;; on how it arrives. -;;; Purpose: Template header file +;;; Copyright: (c)2009--2012, AJ Rossini. MIT license. +;;; Purpose: Example of loading data ;;; What is this talk of 'release'? Klingons do not make software ;;; 'releases'. Our software 'escapes', leaving a bloody trail of @@ -14,6 +13,8 @@ (in-package :cl-user) +(ql:quickload :cls) + (cl:defpackage :cls-examples ;; similar setup to cls-user, without test data (:use :common-lisp :lisp-matrix @@ -45,7 +46,7 @@ directory, return a string denoting the complete path. FIXME: UNIX-centric (though might work on Mac OSX). We really want to return a pathspec, not a string/namespec" (check-type x string) - (concatenate 'string *cls-home-dir* x)) + (concatenate 'string *cls-installation-home-dir* x)) (progn -- 2.11.4.GIT