[CM] env-interp

Bill Schottstaedt bil at ccrma.Stanford.EDU
Wed Sep 1 10:23:11 PDT 2004


 > There seems to be a bug in the code connected with the 'base-slot of
 > env's when given to #'env-interp (only tested outside run-loops in
 > cmucl):

It was assuming the original make-env didn't set the base. I think it's
ok now -- thanks for the bug report!

(defun env-interp (x e &optional base)
   (if (eq (seg-type e) :seg)
       (+ (seg-offset e) (* (seg-scaler e) (envelope-interp x (seg-original-data e) (or base 1.0))))
     (envelope-interp x (seg-original-data e) (or base (seg-base e)))))


Also, I made the config change to all.lisp.




More information about the Cmdist mailing list