: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
"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