X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=iflib.lisp;h=84b7b2b4de0ac8c4a9dbef7dd687271395cf3d72;hb=9c86499fa997e562b8a2434bf2a978f85969eda1;hp=0684f32c18e601843949eae2649459ac8d84539c;hpb=fce67b6af7ce71eecb134f00bf7bec731daef40f;p=lifp.git

diff --git a/iflib.lisp b/iflib.lisp
index 0684f32..84b7b2b 100644
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -79,15 +79,15 @@
   "Turns passed since beginning of the game")
 
 (defparameter *player* nil
-  "Current player object (will be initialised later")
-
-(declare-predicate add-to-scope add-to-outscope found-in seen-from)
+  "Current player object (will be initialised later)")
 
+(declare-predicate add-to-scope add-to-outscope found-in seen-from
+                   with-keys)
 
 ;;Library file names
 (defvar *library-file-if* "if.fas")
-(defvar *library-file-iflib* "if.fas")
-(defvar *library-file-verbs* "if.fas") 
+(defvar *library-file-iflib* "iflib.fas")
+(defvar *library-file-verbs* "verbs.fas") 
 
 ;;SECTION 2: Library-defined classes and objects
 
@@ -681,7 +681,7 @@
   `(defpackage ,name
     (:use :common-lisp :if-basic-lib :if-lib :verb-lib ,@other-packages)
     (:shadowing-import-from :if-lib :room)
-    (:shadowing-import-from :verb-lib :listen :fill)))
+    (:shadowing-import-from :verb-lib :listen :fill :open :close)))
 
 (defmacro free-symbol (id)
   "Frees a symbol from current package using shadow"