Weather App in Clisp

weather.lisp

(require :drakma)
(require :cl-ppcre)

(defvar *weather-url* "http://forecast.weather.gov/MapClick.php?zoneid=NYZ075&TextType=1"
  "The url we'll be going to, to get the weather information")

(defun starts-with (regexp string)
  "Checks to see if a string starts
   with the given regexp"
  (eq (search regexp string) 0))

; Gets the weather
; from nws
; and parses away the HTML
; in the hackiest way possible
(defun get-weather ()
  (let ((response (drakma:http-request *weather-url*)))
    (let ((input-stream (make-string-input-stream response)))
      ; We
      (loop for line = (read-line input-stream nil)
       while line do (if
        (or
          (starts-with "<b>" line) (starts-with "</table>" line))
          (format t "~a ~%"  (progn (dolist (x (list "<\/table>" "<\/b>" "<b>" "<br>"))
             (setq line (cl-ppcre:regex-replace-all "\<.*?\>" line "")))
                                    (eval line))))))))