From 2d1a6f87c4d559af53eb5e5f0fe571caf14f8b29 Mon Sep 17 00:00:00 2001 From: grue Date: Mon, 14 Aug 2006 12:03:30 +0000 Subject: [PATCH] upd advent.lisp so it works darcs-hash:d6e30e0b4514dad496fde0f253cb96406ccd1e46 --- EXAMPLES/advent.lisp | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) 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)) - - - - - - - - - -- 2.31.1