-(let ((#1=#:sbcl-src #p"/usr/share/sbcl-source/"))
- (flet ((#2=#:sbcl-dir (#3=#:p)
- (merge-pathnames #3# #1#)))
- (setf (logical-pathname-translations "SYS")
- `(("SYS:SRC;**;*.*.*" ,(#2# "src/**/*.*"))
- ("SYS:CONTRIB;**;*.*.*" ,(#2# "contrib/**/*.*"))))))