================================================================================
lock statement
================================================================================

_block
	_lock _self
	      _return
	_endlock
_endblock
$

--------------------------------------------------------------------------------

(source_file
  (fragment
    (block
      (lock
         (self)
	 (return)))))
