#+:Lispworks
(setf (logical-pathname-translations "REGEX")
      '(("REGEX:SYS;*" "d:/lisp/*")
        ("REGEX:SRC;*" "d:/lisp/regex/*")))