;; This an example of fetching an NNTP article. The server nntp.aioe.org
;; is free and does not require any registration, so you should have no
;; problems connecting to it. If you do get a connection error try
;; another nntp server.

;; To load with SBCL:
;; sbcl --load example.lisp

;; To load with ClozureCL (CCL):
;; ccl --load example.lisp

(asdf:load-system "cl-nntp")

(cl-nntp:connect "nntp.aioe.org" 119)
(cl-nntp:group "comp.lang.lisp")
(cl-nntp:next-article)
(let ((article (cl-nntp:article)))
  ;; write the article to standard output
  (write article))