diff options
Diffstat (limited to 'src/interp/bookvol5.pamphlet')
| -rw-r--r-- | src/interp/bookvol5.pamphlet | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet index 65bc8671..93f4093a 100644 --- a/src/interp/bookvol5.pamphlet +++ b/src/interp/bookvol5.pamphlet @@ -745,24 +745,15 @@ This function performs those setup commands. \subsection{defun loadExposureGroupData} <<defun loadExposureGroupData>>= -#+:AKCL (defun |loadExposureGroupData| () (cond ((load "./exposed" :verbose nil :if-does-not-exist nil) '|done|) - ((load (concat (system:getenv "AXIOM") "/algebra/exposed") + ((load (concat (|systemRootDirectory|) "/algebra/exposed") :verbose nil :if-does-not-exist nil) '|done|) (t '|failed|) )) -#+:CCL -(defun |loadExposureGroupData| () - (cond - ((load "./exposed.lsp" :verbose NIL :if-does-not-exist NIL) '|done|) - ((load (concat (|systemRootDirectory|) "/../../src/algebra/exposed.lsp") - :verbose nil :if-does-not-exist nil) '|done|) - (t nil) )) - @ \subsection{make-absolute-filename} Prefix a filename with the {\bf AXIOM} shell variable. |