SERIES を使わない場合

SERIES を使わない場合は、cl-ppcre 使うのに何の罪悪感もない。ずっとコードもわかりやすい。

(defun who-can-see2 (user-names allowed-data report-data)
  (loop for user in user-names
        for allowed in allowed-data
        if (every (lambda (x)
                    (ppcre:scan (format nil "\\b~a\\b" x) allowed))
                  report-data)
          collect user))