$SAVE NOLIST

rq$force$delete:  PROCEDURE( extension$t,
                             object,
                             except$ptr ) EXTERNAL;

DECLARE extension$t  TOKEN,
        object       TOKEN,
        except$ptr   POINTER;

END rq$force$delete;

$RESTORE