regex matching strings (Jade)

[Robin Stephenson <robin.stephenson@xxxxxxxxxxxxxxx>]

Is there a regex-match function for comparing strings?  Specifically,
I'd like to do something like this:

(let ((pnm (data (select-named-elements "pnm"))))
  (cond ((regex-match
          (string->regexp "Blackwell[ \t]+Publishers") pnm)
         "blackpub")
        ((regex-match
          (string->regexp "Blackwell[ \t]+Science") pnm)
         "blacksci")
        (else (error (string-append
                      "aborting: publisher `"
                      pnm
                      "' not matched")))))

All that I can find is routines to match nodelists by regex
(regexp-search, etc.): is there anything a bit more generic extant?

-- 
 Robin Stephenson
 10 Items Or Less


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist