Storing arrays

[david]

function getStoredArray setName, someObject
  set the customPropertySet of someObject to setName
  put the customProperties of someObject into someArray
  set the customPropertySet of someObject to empty
  return someArray
end getStoredArray

on setStoredArray setName, someObject,  someArray
  set the customPropertySet of someObject to setName
  set the customProperties of someObject to someArray
  set the customPropertySet of someObject to empty
end setStoredArray