Define ARRAY-CAT
Minor refactoring in QUOTE-FORM