sources/gen-harmonies.lisp
@@ -9,7 +9,7 @@ (in-package :omlead) (om::defmethod! gen-harmonies ((pitch-set-list list) (instr1 list) (instr2 list) (instr3 list) (instr4 list) &key (fundamental 6000) (skala (list 100)) (permutations t) (register-list '(0))) (om::defmethod! gen-harmonies ((pitch-set-list list) (instr1 list) (instr2 list) (instr3 list) (instr4 list) &key (fundamental 6000) (skala (list 100)) (permutations nil) (register-list '(0))) :icon 030719972 :initvals '('((0)) '(6000 7200) nil nil nil)
