#!/usr/bin/newlisp
#
# get all of Norman's utilities at once
# upated 2011-07-13 to new place and format on Norman's site

(set 'page (get-url "http://newlisp.digidep.net/scripts/"))
(set 'files (find-all {href="(.*\.lsp)"} page $1))

(dolist (file files)
        (write-file file (get-url (string "http://newlisp.digidep.net/scripts/" file)))
        (println "->" file))

(exit)