From: grue <grue@mail.ru>
Date: Tue, 21 Feb 2006 13:53:01 +0000 (+0000)
Subject: make library filenames customizable
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=fce67b6af7ce71eecb134f00bf7bec731daef40f;p=lifp.git

make library filenames customizable

darcs-hash:a7951501856e6c9ae3c11f06d70624c1ec8515cb
---

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."))