"/home/mdw")
"/"))))
(setf (logical-pathname-translations "HOME")
- `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #1# nil)))))
+ `(("HOME:**;*.*.*" ,(merge-pathnames "**/*.*" #1# nil)))
+ (logical-pathname-translations "CL")
+ '(("CL:SOURCE;**;*.*.*" #p"/usr/share/common-lisp/source/**/*.*")
+ ("CL:SYSTEMS;**;*.*.*" #p"/usr/share/common-lisp/systems/**/*.*"))))
;; Various fixings.
#+clisp (setf custom:*parse-namestring-ansi* t)