From fce67b6af7ce71eecb134f00bf7bec731daef40f Mon Sep 17 00:00:00 2001 From: grue Date: Tue, 21 Feb 2006 13:53:01 +0000 Subject: [PATCH] make library filenames customizable darcs-hash:a7951501856e6c9ae3c11f06d70624c1ec8515cb --- iflib.lisp | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/iflib.lisp b/iflib.lisp index 39f4d50..0684f32 100644 --- a/iflib.lisp +++ b/iflib.lisp @@ -83,6 +83,12 @@ (declare-predicate add-to-scope add-to-outscope found-in seen-from) + +;;Library file names +(defvar *library-file-if* "if.fas") +(defvar *library-file-iflib* "if.fas") +(defvar *library-file-verbs* "if.fas") + ;;SECTION 2: Library-defined classes and objects (ifclass container () (capacity integer) (has :container)) @@ -634,12 +640,12 @@ (defun lib (file dir) "Reloads the IF library" (format t "[DIRECTORY: ~a]~%" dir) - (print-message "Loading if.fas...") - (load (merge-pathnames dir "if.fas")) - (print-message "Loading iflib.fas...") - (load (merge-pathnames dir "iflib.fas")) - (print-message "Loading verbs.fas...") - (load (merge-pathnames dir "verbs.fas")) + (print-message "Loading if-basic-lib...") + (load (merge-pathnames dir *library-file-if*)) + (print-message "Loading if-lib...") + (load (merge-pathnames dir *library-file-iflib*)) + (print-message "Loading verbs...") + (load (merge-pathnames dir *library-file-verbs*)) (print-message "Loading game module...") (load file) (print-message "Module is successfully loaded.")) -- 2.31.1