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