Marlon Schumacher
6 days ago ce2e3e0462ef733d78ee7398f4c0bfbe5f22fbcc
SRR.lisp
@@ -62,7 +62,7 @@
            :numouts 2
            (let ((valuelist (mat-trans
                   (loop for sub in subdivisions 
                         collect (multiple-value-list (gen-wave1 sub))))))
                         collect (multiple-value-list (gen-partial sub))))))
              
              (values (caar valuelist)