fix error for clisp_head.

web.ros

@@ -137,7 +137,7 @@ exec ros -Q -- $0 "$@"
 
 (defun modify-tsv (tsv release)
   (loop with tag-name = (release-tag_name release)
-        with comp = (lambda (x) (ignore-errors (aref (nth-value 1 (ppcre:scan-to-strings "sbcl-[^-]*-([^/]*)$" x)) 0)))
+        with comp = (lambda (x) (ignore-errors (aref (nth-value 1 (ppcre:scan-to-strings "[a-z]*-[^-]*-([^/]*)$" x)) 0)))
         for uri in (remove-if-not (lambda (x) (ppcre:scan "binary" x))
                                   (release-uris release))
         for found = (find uri tsv :test #'(lambda (x y)