So essentially you are picking the 4800th sample? (48000 + 4800 = 52800)
That will give you sample numbers:
then back to 4800…
Assuming that your sample rate is 48000 Hz, all that will give you is a high pitched tone comprising of frequencies 4800 Hz, 9600 Hz, 14400 Hz, 19200 Hz and 24000 Hz.
If your sample rate is not 48000 Hz, you will get the same harmonic pitches based on a fundamental 1/10th of the sample rate.
(setq ln 48000) ;number of samples to work with
(setq count 52800) ;the nth sample
(if (< len ln)
"Error.nSelection too short."
(setq n (rem count ln))
(let* ((samples (snd-samples s ln))
(samplelist (list (aref samples 0))))
(do ((i n (rem (+ i count) ln)))
((= i 0))
(push (aref samples (1- i)) samplelist))
(setf out (make-array (length samplelist)))
(dotimes (i (length samplelist))
(setf (aref out i)(nth i samplelist)))
(snd-from-array 0 *sound-srate* out))))