Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.


Diff of /src/vug/envelope.lisp [8f5520] .. [7b58b4] Maximize Restore

  Switch to side-by-side view

--- a/src/vug/envelope.lisp
+++ b/src/vug/envelope.lisp
@@ -308,7 +308,7 @@
       ;; Useful when GATE is modulated. In this case, the expansion
       ;; of GATE occurs here. If GATE is not modulated, GATE-TRIG is
       ;; always NIL at this point.
-      (and gate-trig level)
+      (maybe-expand (and gate-trig level))
       (cond ((or done-p sustain) tmp)
             (t (cond ((zerop remain)
                       ;; End of segment