lock,unlock
[lifp.git] / iflib.lisp
index 1193606f36ca4880c3708172864045d12e88c026..84b7b2b4de0ac8c4a9dbef7dd687271395cf3d72 100644 (file)
   "Turns passed since beginning of the game")\r
 \r
 (defparameter *player* nil\r
-  "Current player object (will be initialised later")\r
-\r
-(declare-predicate add-to-scope add-to-outscope found-in seen-from)\r
+  "Current player object (will be initialised later)")\r
 \r
+(declare-predicate add-to-scope add-to-outscope found-in seen-from\r
+                   with-keys)\r
 \r
 ;;Library file names\r
 (defvar *library-file-if* "if.fas")\r
   `(defpackage ,name\r
     (:use :common-lisp :if-basic-lib :if-lib :verb-lib ,@other-packages)\r
     (:shadowing-import-from :if-lib :room)\r
-    (:shadowing-import-from :verb-lib :listen :fill)))\r
+    (:shadowing-import-from :verb-lib :listen :fill :open :close)))\r
 \r
 (defmacro free-symbol (id)\r
   "Frees a symbol from current package using shadow"\r