lock,unlock

[lifp.git] / iflib.lisp

diff --git a/iflib.lisp b/iflib.lisp
index 853d89d22a1b94182d99650ab67cbc9c0a181900..84b7b2b4de0ac8c4a9dbef7dd687271395cf3d72 100644 (file)
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -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