From a3502758f55323bc88abaeb6bd59668a3b3efdde Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Thu, 14 Jan 2010 08:02:20 +0100 Subject: [PATCH] We can use the autodef'd config variable *cls-home-dir*, no need to hack an ugly inferior equivalent. Signed-off-by: AJ Rossini --- examples/loading-data.lisp | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/examples/loading-data.lisp b/examples/loading-data.lisp index 63b8419..07c664a 100644 --- a/examples/loading-data.lisp +++ b/examples/loading-data.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-12-21 12:29:49 tony> +;;; Time-stamp: <2010-01-14 07:55:00 tony> ;;; Creation: <2009-03-12 17:14:56 tony> ;;; File: template.lisp ;;; Author: AJ Rossini @@ -17,18 +17,12 @@ ;; we'll be loading from directories in the CLS homedir, so we want to ;; make it easier to reach. -(defparameter *my-cls-homedir* - "/home/tony/sandbox/CLS.git/" ; <- value with trailing directory separator - "documentation: change this to localize") ; <- doc -;; so -(concatenate 'string *my-cls-homedir* "Data/example.csv") -;; implies (defun localized-pathto (x) "return a string denoting the complete path. FIXME: UNIX-centric (though might work on Mac OSX). Might want to return a pathspec, not a string/namespec" (check-type x string) - (concatenate 'string *my-cls-homedir* x)) + (concatenate 'string *cls-home-dir* x)) -- 2.11.4.GIT