Получить время в миллисекундах Абсолютное значение возвращаемое get-internal-real-time не имеет значения - важно только относительное изменение.

internal-time-units-per-second
; 1000
(let ((start (get-internal-real-time)))
  (sleep 3.5)
  (print (- (get-internal-real-time) start)))
; 3500