
  FUNCTION [XREF, UNSAFE] cmp$lock_set_by_current_task
     (lock_type: cmt$lcu_lock_type): BOOLEAN;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$lcu_lock_type
?? POP ??
