DECOR-OPERATION

DECOR-OPERATION

(DECOR-OPERATION (VARIANT VARIANT) (DOOR ACTIVE-DOOR) OPERATION &KEY VALUE) [method]

Calls		(SETF DECOR.TYPE), (SETF DOOR.BROKEN?), (SETF DOOR.CLOSED?), BIT-FLAG-ADD!, BIT-FLAG-REMOVE!, CAVE-FLAGS, GET-DOOR-TYPE, LOCATION-X, LOCATION-Y and WARN
Location		util.lisp

DECOR-OPERATION

(DECOR-OPERATION (VARIANT VARIANT) (DOOR ACTIVE-DOOR) (OPERATION (EQL VISIBLE)) &KEY VALUE) [method]

Calls		(SETF DECOR.VISIBLE?) and WARN
Location		util.lisp

DECOR-OPERATION

(DECOR-OPERATION (VARIANT VARIANT) (DOOR ACTIVE-TRAP) (OPERATION (EQL VISIBLE)) &KEY VALUE) [method]

Calls		(SETF DECOR.VISIBLE?) and WARN
Location		util.lisp

DECOR-OPERATION

(DECOR-OPERATION (VARIANT VARIANT) (TRAP ACTIVE-TRAP) OPERATION &KEY VALUE) [method]

Calls		WARN
Location		util.lisp