(defun snd-timescale (scaling sound)

  (snd-xform

   (cond

     ((> scaling 1.0) (snd-down (/ 44100 scaling) sound))

     ((= scaling 1.0) sound)

     ((< scaling 1.0) (snd-up (/ 44100 scaling) sound))

   )

   44100 (snd-t0 sound) (snd-t0 sound) (snd-stop-time sound) 1.0

  )

)