[CM] env-interp
Bill Schottstaedt
bil@ccrma.Stanford.EDU
Wed, 01 Sep 2004 10:23:11 -0700
> 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.