better load file interface

[lifp.git] / iflib.lisp

diff --git a/iflib.lisp b/iflib.lisp
index 853d89d22a1b94182d99650ab67cbc9c0a181900..cfa4d1e358467ee3334024ef4b4ec904a57b4260 100644 (file)
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -27,7 +27,7 @@
           :u-to :d-to :cant-go\r
           :*intscope*  :*outscope* :*location* :*trace-light* :*vowels*\r
           :*score* :*gamestate* :*turns* :*dark*\r
-           :add-to-scope :add-to-outscope :found-in :seen-from\r
+           :add-to-scope :add-to-outscope :found-in :seen-from :with-keys\r
           :compass :dir-n :dir-ne :dir-e :dir-se :dir-s\r
           :dir-sw :dir-w :dir-nw :dir-u :dir-d :dir-in :dir-out\r
           :darkness :lit :transparent :passable\r
@@ -81,8 +81,8 @@
 (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
-\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