(format t "internal-time-units-per-second: ~A~%" internal-time-units-per-second)
(defparameter *start-time* (get-internal-real-time))
(sleep 1)
(defparameter *delta-t* (- (get-internal-real-time) *start-time*))
(format t "DELTA T: ~A~%" *delta-t*)
(defparameter *delta-t* (* *delta-t* 1.0))
(format t "DELTA T FLOAT: ~A~%" *delta-t*)
(format t "KUKAREKU: ~A~%" (/  *delta-t* internal-time-units-per-second))