 abuf-src)) (abuf-dest)
                <span style="color: #b0c4de;">:result</span> abuf-dest <span style="color: #b0c4de;">:index-start</span> 1 <span style="color: #b0c4de;">:index-end</span> (1- nbins))
    (<span style="color: #8deeee;">if</span> (or (&lt; mag0 threshold)
            (&lt; (abuffer-realpart abuf-src (1- i)) threshold)
            (&lt; (abuffer-realpart abuf-src (1+ i)) threshold))
        (setf mag1 0.0d0 phase1 0.0d0)
        (setf mag1 mag0 phase1 phase0))))

(<span style="color: #8