Predicate to determine if market is open today

run-today-p.lisp

(defun run-today-p () 
   "Should we run zalgo today?" 
   (local-time:with-decoded-timestamp 
       (:day-of-week weekday :day today-day) (local-time:now) 
     (when (or (= weekday 0) (= weekday 6)) (return-from run-today-p nil)) 
     (let ((markets-list (get-markets-list))) 
       (loop for market in markets-list 
             do (if (string= (gethash "name" market) "NYSE") 
                    (local-time:with-decoded-timestamp 
                        (:day d) (local-time:parse-timestring (gethash "startTime" market)) 
                      (if (= today-day d) (return-from run-today-p t) nil)))))))