[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.