From: grue <grue@mail.ru>
Date: Mon, 14 Aug 2006 12:03:30 +0000 (+0000)
Subject: upd advent.lisp so it works
X-Git-Url: https://jxself.org/git/?p=lifp.git;a=commitdiff_plain

upd advent.lisp so it works

darcs-hash:d6e30e0b4514dad496fde0f253cb96406ccd1e46
---

diff --git a/EXAMPLES/advent.lisp b/EXAMPLES/advent.lisp
index fd86b04..f15d28c 100644
--- a/EXAMPLES/advent.lisp
+++ b/EXAMPLES/advent.lisp
@@ -319,6 +319,8 @@
         (name "bed" "streambed" "rock" "small" "rocky" "bare" "dry")
         (found-in in-a-valley at-slit-in-streambed))        
 
+(ref grate)
+
 (object outside-grate (above-ground) "Outside Grate"
         (description "You are in a 20-foot depression floored with 
                 bare dirt. Set into the dirt is a strong steel grate 
@@ -344,7 +346,7 @@
               "strong" "steel" "grating")
         (description "It just looks like an ordinary grate
                       mounted in concrete.")
-        (key 'set-of-keys)
+        (with-keys set-of-keys)
         (direction
          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))
         (destination
@@ -365,15 +367,6 @@
                steel grate to the surface. A low crawl over
                cobbles leads inward to the west.")
         (w-to 'in-cobble-crawl) (u-to 'grate))
-        
-        
-        
-        
-          
-
-
-
-