(defun log-analyzer ()
                  #'(lambda (c)
                       (make-instance 'malformed-log-entry :text (text c))))))
      (analyze-log log))))