A simple NTP (Network Time Protocol) client written in Common Lisp.
Does not adjust system clock, PLL drift or do any other platform specific work, nor does any statistical evaluation of time source or system clock jitter.
(defvar o (make-intance 'ntp))
Synchronize the object with NTP server:
(get-adjusted-universal-time o) will return you a pair of NTP timestamp values: seconds and second fraction.
(synchronize ntp-instance &optional (server "pool.ntp.org"))
Synchronizes the application clock with remote server.
Returns application time as a pair of values, corresponding to universal time in seconds and NTP formatted 32-bit fraction of a second.
Returns the stratum of application clock.