(DEFEXPR (SCOMPARE EMACSFILE SOURCEFILE)
  (PROG ()
    (SCOMS EMACSFILE)
    (FOR FN IN (FILECOMSLST EMACSFILE 'FNS)
     DO (DWIMIFY FN)
     (COMPARE FN FN 'FNS NIL SOURCEFILE))
))

STOP