A Nework Time Protocol client written in Common Lisp
Common Lisp
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
LICENSE
README.md
cl-ntp-client.asd
cl-ntp-client.lisp
package.lisp

README.md

CL-NTP-CLIENT

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.

Usage

Instantiate an NTP object:

(defvar o (make-intance 'ntp))

Synchronize the object with NTP server:

(synchronize o)

After that, (get-adjusted-universal-time o) will return you a pair of NTP timestamp values: seconds and second fraction.

API

(synchronize ntp-instance &optional (server "pool.ntp.org"))

Synchronizes the application clock with remote server.

(get-adjusted-universal-time ntp-instance)

Returns application time as a pair of values, corresponding to universal time in seconds and NTP formatted 32-bit fraction of a second.

(local-stratum ntp-instance)

Returns the stratum of application clock.