make library filenames customizable
Tue Feb 21 05:53:01 PST 2006 grue@mail.ru
* make library filenames customizable
diff -rN -u old-lifp/iflib.lisp new-lifp/iflib.lisp
--- old-lifp/iflib.lisp 2014-07-28 07:30:19.000000000 -0700
+++ new-lifp/iflib.lisp 2014-07-28 07:30:19.000000000 -0700
@@ -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."))