gistfile1.lisp

(defpackage :home 
  (:use :cl)
  (:export :wget))

(in-package :home)

(defun wget (uri &optional (dir "./"))
  (let* ((file-name (aref (nth-value 1 (ppcre:scan-to-strings ".*/([^/]*)$" uri)) 0))
         (out-file (concatenate 'string dir file-name)))
    (format t "~A ==> ~A~%" uri out-file)
    (with-open-file (out out-file
                         :direction :output 
                         :if-exists :supersede
                         :element-type 'unsigned-byte)
      (with-open-stream (str (drakma:http-request uri :want-stream 'T))
        (do ((s (read-byte str nil -1) (read-byte str nil -1))
             (cnt 0 (1+ cnt)))
            ((= -1 s) (format t "end ~A.~%" cnt))
          (write-byte s out)
          (when (and (zerop (rem cnt 1024)) (not (zerop cnt)))
            (princ ".")
            (when (zerop (rem cnt (* 100 1024)))
              (format t "~A~%" cnt))))))))