ACTIVE-DOOR

(SETF DOOR.BROKEN?)

((SETF DOOR.BROKEN?) (OBJ ACTIVE-DOOR)) [accessor]

Called By

%FILED-DOOR and PLACE-RANDOM-DOOR!

DOOR.BROKEN?

(DOOR.BROKEN? (OBJ ACTIVE-DOOR)) [accessor]

(SETF DOOR.CLOSED?)

((SETF DOOR.CLOSED?) (OBJ ACTIVE-DOOR)) [accessor]

Called By

%FILED-DOOR

DOOR.CLOSED?

(DOOR.CLOSED? (OBJ ACTIVE-DOOR)) [accessor]

Called By

IS-CLOSED-DOOR? and IS-OPEN-DOOR?

(SETF DOOR.LOCK)

((SETF DOOR.LOCK) (OBJ ACTIVE-DOOR)) [accessor]

Called By

PLACE-RANDOM-DOOR!

DOOR.LOCK

(DOOR.LOCK (OBJ ACTIVE-DOOR)) [accessor]

(SETF DOOR.STUCK)

((SETF DOOR.STUCK) (OBJ ACTIVE-DOOR)) [accessor]

Called By

PLACE-RANDOM-DOOR!

DOOR.STUCK

(DOOR.STUCK (OBJ ACTIVE-DOOR)) [accessor]