Fomus

(make-instr &key :sym sym :clefs clefs :staves staves :minp minp :maxp maxp
                 :simultlim simultlim :tpose tpose :cleflegls cleflegls
                 :8uplegls 8uplegls :8dnlegls 8dnlegls :percs percs
                 :midiprgch-im midiprgch-im :midiprgch-ex midiprgch-ex)

(copy-instr instr &key :sym sym :clefs clefs :staves staves :minp minp :maxp maxp
                       :simultlim simultlim :tpose tpose :cleflegls cleflegls
                       :8uplegls 8uplegls :8dnlegls 8dnlegls :percs percs
                       :midiprgch-im midiprgch-im :midiprgch-ex midiprgch-ex)

(instrp obj)