implement doors

[lifp.git] / EXAMPLES / advent.lisp

diff --git a/EXAMPLES/advent.lisp b/EXAMPLES/advent.lisp
index e768c049568a651e90ba0740037cc7aaf9d85232..fd86b045e9da4b58db936140e147544a49fc1ed6 100644 (file)
--- a/EXAMPLES/advent.lisp
+++ b/EXAMPLES/advent.lisp
@@ -345,9 +345,9 @@
         (description "It just looks like an ordinary grate\r
                       mounted in concrete.")\r
         (key 'set-of-keys)\r
-        (door-dir\r
+        (direction\r
          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))\r
-        (door-to\r
+        (destination\r
          (lambda () (if (eql *location* below-the-grate)\r
                         outside-grate below-the-grate)))\r
         (glance\r