upd advent.lisp so it works

darcs-hash:d6e30e0b4514dad496fde0f253cb96406ccd1e46

diff --git a/EXAMPLES/advent.lisp b/EXAMPLES/advent.lisp
index fd86b045e9da4b58db936140e147544a49fc1ed6..f15d28c5f3589449e67afcbffca5fdb0faec6e4e 100644 (file)
--- a/EXAMPLES/advent.lisp
+++ b/EXAMPLES/advent.lisp
@@ -319,6 +319,8 @@
         (name "bed" "streambed" "rock" "small" "rocky" "bare" "dry")\r
         (found-in in-a-valley at-slit-in-streambed))        \r
 \r
         (name "bed" "streambed" "rock" "small" "rocky" "bare" "dry")\r
         (found-in in-a-valley at-slit-in-streambed))        \r
 \r

+(ref grate)\r
+\r

 (object outside-grate (above-ground) "Outside Grate"\r
         (description "You are in a 20-foot depression floored with \r
                 bare dirt. Set into the dirt is a strong steel grate \r
 (object outside-grate (above-ground) "Outside Grate"\r
         (description "You are in a 20-foot depression floored with \r
                 bare dirt. Set into the dirt is a strong steel grate \r


@@ -344,7 +346,7 @@
               "strong" "steel" "grating")\r
         (description "It just looks like an ordinary grate\r
                       mounted in concrete.")\r
               "strong" "steel" "grating")\r
         (description "It just looks like an ordinary grate\r
                       mounted in concrete.")\r

-        (key 'set-of-keys)\r
+        (with-keys set-of-keys)\r

         (direction\r
          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))\r
         (destination\r
         (direction\r
          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))\r
         (destination\r


@@ -365,15 +367,6 @@
                steel grate to the surface. A low crawl over\r
                cobbles leads inward to the west.")\r
         (w-to 'in-cobble-crawl) (u-to 'grate))\r
                steel grate to the surface. A low crawl over\r
                cobbles leads inward to the west.")\r
         (w-to 'in-cobble-crawl) (u-to 'grate))\r

-        \r
-        \r
-        \r
-        \r
-          \r
-\r
-\r
-\r
-\r

 \r
 \r
 \r
 \r
 \r
 \r