SYNTAX: FALLBACK: CREATE-CLASS dup define-singleton-class \ ; parse-until [ [ 1quotation [ get ] prepose ] [ create-method-in ] 2bi swap define ] each drop ;