-(let* ((sys *default-pathname-defaults*)
- (src
- (merge-pathnames
- (make-pathname :directory '(:relative "src" :wild-inferiors)
- :name :wild :type :wild)
- sys))
- (contrib
- (merge-pathnames
- (make-pathname :directory '(:relative "contrib" :wild-inferiors)
- :name :wild :type :wild)
- sys)))
- (setf (logical-pathname-translations "SYS")
- `(("SYS:SRC;**;*.*.*" ,src)
- ("SYS:CONTRIB;**;*.*.*" ,contrib))))
-