Advertisement
Guest User

Untitled

a guest
Mar 7th, 2018
113
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (setf (logical-pathname-translations "IMPORTER")
  2.       `(("OUT-DIR;*.*" "IMPORTER:/home/schweers/data")
  3.         ("**;*.TGZ" "IMPORTER:**;*.tar.gz")
  4.         ("**;*.*" "**/*.*")))
  5.  
  6. (translate-logical-pathname "IMPORTER:foo.TGZ")
  7. #| I want this to translate to
  8. "IMPORTER:foo.tar.gz" and by extension to "foo.tar.gz" I get an error
  9. instead:
  10. not enough wildcards in FROM pattern to match TO pattern:
  11.   #<SB-IMPL::PATTERN "IMPORTER:" :MULTI-CHAR-WILD
  12.                      :MULTI-CHAR-WILD ";" :MULTI-CHAR-WILD ".tar">
  13.    [Condition of type SIMPLE-ERROR]
  14. |#
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement