anchor.diff:  	(out-buf (subframe-out-buf subframe)))
       (declare (type non-negative-fixnum wasted-bits)
   	     (type (sa-sb 32) out-buf))
  -    (if (/= wasted-bits 0)
  +    (if (not (zerop wasted-bits))
   	(map-into out-buf (lambda (sample)
  -                            (declare (type (sb 32) sample))
  -                            (the fixnum (ash sample wasted-bits)))
  +                            (ash sample wasted-bits))
   		  out-buf))))
   
   (defmethod subframe-decode ((subframe subframe-constant) frame)
  
positive.code:                        (type (sb 32) shift))
  
                (loop for i fixnum from ,n below (length out-buf)
                   for sum fixnum = 0 do
                     ,@(loop for j fixnum below n collect
                            `(incf sum
                                   (* (aref coeff ,j)
                                      (aref out-buf (- i ,(1+ j))))))
                     (incf (aref out-buf i)
                           (the fixnum
                                (ash sum (- shift)))))
  
                out-buf))
         #',func-name)))
  
negative.code: 
  (in-package :easy-audio.flac)
  
  (declaim (optimize (speed 3)))
  
  (defmethod subframe-decode :after ((subframe subframe) frame)
    (declare (ignore frame))
  