upd advent.lisp so it works
Mon Aug 14 05:03:30 PDT 2006 grue@mail.ru
* upd advent.lisp so it works
diff -rN -u old-lifp/EXAMPLES/advent.lisp new-lifp/EXAMPLES/advent.lisp
--- old-lifp/EXAMPLES/advent.lisp 2014-07-13 01:17:18.000000000 -0700
+++ new-lifp/EXAMPLES/advent.lisp 2014-07-13 01:17:18.000000000 -0700
@@ -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))
-
-
-
-
-
-
-
-
-