>>1(ql:quickload "drakma")
(defun browse-web ()
(let (input)
(loop do
(format t "> Input a URI: ")
(handler-case (progn
(setf input (read-line))
(if (member (string-downcase input)
'("quit" "exit" "leave" "fuck lisp")
:test #'string-equal)
(loop-finish)
(format t "~a~%~%~%" (drakma:http-request (string input)))))
(error () (format t "Some kind of error.~%"))))
(when (string-equal (string-downcase input) "fuck lisp")
(format t "fuck you too.~%"))))