(setf (logical-pathname-translations "SYS")
      '(("SYS:SRC;**;*.*.*" #p"/usr/lib/sbcl/src/**/*.*")
        ("SYS:CONTRIB;**;*.*.*" #p"/usr/lib/sbcl/**/*.*")))