(setf (logical-pathname-translations "IMPORTER")
      `(("OUT-DIR;*.*" "IMPORTER:/home/schweers/data")
        ("**;*.TGZ" "IMPORTER:**;*.tar.gz")
        ("**;*.*" "**/*.*")))

(translate-logical-pathname "IMPORTER:foo.TGZ")
#| I want this to translate to
"IMPORTER:foo.tar.gz" and by extension to "foo.tar.gz" I get an error
instead:
not enough wildcards in FROM pattern to match TO pattern:
  #<SB-IMPL::PATTERN "IMPORTER:" :MULTI-CHAR-WILD
                     :MULTI-CHAR-WILD ";" :MULTI-CHAR-WILD ".tar">
   [Condition of type SIMPLE-ERROR]
|#