+ (if (string= "" text)
+ (let*
+ ((evaluator (find-if (lambda (f) (funcall f *state* :eof)) *evaluators* :from-end t :key #'car))
+ (problem (when evaluator (funcall (third evaluator)))))
+ (when problem (error (make-condition 'check-failure :msg problem :line-no *line-no* :col-no *col-no*))))