Orchestral Example

[NagyMusic]

I'm studying the Orchestral Example code from Opusmodus documentation. After changing the original melodic source (setf solo => setf elvis), compiling solovar1 and solovar2 functions produce error messages more than half the time. Does anyone know how to fix that? Thank you!

 

;;; MELODY
;; Basic melodic material                  
(setf elvis (gen-repeat 2 
            '((h f4 c5)
             (h f4 -q e g4 a4)
             (h bb4 a4)
             (h g4 -q -e c4)
             (h d4 e4)
             (h f4 3h g4 a4 bb4)
             (h a4 g4 w f4)
)))
(setf frag1 (gen-loop 14 (list (rnd-pick '(2 3 1 4)) (rnd-pick '(2 3)))))
(setf frag2 (gen-loop 14 (list (rnd-pick '(2 3 1 4)) (rnd-pick '(2 3)))))
;; Melodic variations
(setf solovar1 (gen-fragment frag1 elvis))
(setf solovar2 (gen-fragment frag2 elvis))

 

Here's one of the error messages: 

Error: Function nthcdr expected a non-negative integer, got -1.
  1 (abort) Return to top loop level 0.
Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.

 

[AM]

i checked it quickly: when you replace the 3h - for example - by h  

=> then i get NO ERRORS

 

 

 

 

[NagyMusic]

Thank you! I appreciate you pointing me in the right direction. The issue was with the triplet: enclosing it into a parenthesis helped. 

 

(setf elvis (gen-repeat 2 
            '((h f4 c5)
             (h f4 -q e g4 a4)
             (h bb4 a4)
             (h g4 -q -e c4)
             (h d4 e4)
             (h f4 (3h g4 a4 bb4))
             (h a4 g4 w f4)
)))

 

[AM]

welcome