(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