anchor.diff:    (declare (type (sa-sb 32) entropy)
              (type (integer 1 15) fracbits)
              (type non-negative-fixnum order)
  -           (optimize (speed 3)))
  +           (optimize (speed 3)
  +                     #+easy-audio-unsafe-code
  +                     (safety 0)))
     (let ((coeffs (zeros order :type '(sb 32)))
           (buffer (zeros (+ +history-size+ (ash order 1))
                          :type '(sb 32)))
  
positive.code:                     history +xdelaya+ +xdelayb+ +xadaptcoeffsa+ +xadaptcoeffsb+))
           (y (first  (frame-output frame)))
           (x (second (frame-output frame))))
      (declare (type (sa-sb 32) history)
               (type function update-x update-y))
      (loop with channels = (frame-output frame)
            for i below (frame-samples frame) do
  
negative.code: (defun make-predictor-updater (history delay-a delay-b adapt-a adapt-b)
    (declare (type (sa-sb 32) history)
             (type (sb 32) delay-a delay-b adapt-a adapt-b)
             (optimize (speed 3)
                       #+easy-audio-unsafe-code
                       (safety 0)))
    (let ((last-a   0)
          (filter-a 0)
          (filter-b 0)
  