Method code for $and_lock_frob.new_lock()

[Turn off line numbering]

---

  1: arg lhs, rhs;
  2: 
  3: if (type(lhs) != 'frob || type(rhs) != 'frob)
  4:     throw(~perm, "Arguments are not both frobs.");
  5: return (<this(), [lhs, rhs]>);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit