Allegro CL BitTorrent client
To load do
:ld load.cl
Then:
(bdecode-file "filename.torrent")
which will return a 'dict' struct. Use (dict-get "announce" dict) to get the primary tracker. Use (dict-get "announce-list" dict) to get a list of other trackers (which may include the primary tracker).