Concatenated Counterpoint Dictums

[NagyMusic]

I'm trying to combine a series of counterpoint dictums into a single dictum list. I tried several things, but can't seem to get it work. Is there a function similar to assemble-seq that could be applied here?

 

Thank you!

 

(setf dictum-1a '(((1 2 3) :methods (
                                    (r ft) 
                                    (t-12 ft)
                                    (dl1 t-12 pr1 ten))))
)
(setf dictum-1b '(((1 2 3) :methods (
                                    (r ft) 
                                    (t-12 ft)
                                    (dl1 t-12 pr2 ten))))
)
   
(setf dictum-1b '(((1 2 3) :methods (
                                    (r ft) 
                                    (t-12 ft)
                                    (dl1 t-12 pr3 ten))))
)

(setf section-1
      (counterpoint
       patterns  dictum-1a ... dictum-1b ... etc?
       ))
  
(assemble-voices 'voice section-1)

 

[NagyMusic]

(setf section-1a
      (counterpoint
       patterns dictum-1a
       ))
(setf section-1b
      (counterpoint
       patterns dictum-1b
       ))
(setf section-1c
      (counterpoint
       patterns dictum-1c
       ))

(assemble-voices 'voice section-1a section-1b section-1c)