A-M baby

Task/HTTP/Common-Lisp/http-1.lisp

@@ -0,0 +1,5 @@
+(defun wget-clisp (url)
+    (ext:with-http-input (stream url)
+        (loop for line = (read-line stream nil nil)
+            while line
+            do (format t "~a~%" line))))

Task/HTTP/Common-Lisp/http-2.lisp

@@ -0,0 +1,10 @@
+(defun wget-drakma-string (url &optional (out *standard-output*))
+  "Grab the body as a string, and write it to out."
+  (write-string (drakma:http-request url) out))
+
+(defun wget-drakma-stream (url &optional (out *standard-output*))
+  "Grab the body as a stream, and write it to out."
+  (loop with body = (drakma:http-request url :want-stream t)
+        for line = (read-line body nil nil)
+        while line do (write-line line out)
+        finally (close body)))