Here is my .sbclrc
(setf (logical-pathname-translations "costanza") `(("**;*.fasl.*" ,(format nil "/Users/costanza/.cache/common-lisp/~A ~A/**/*.fasl" (lisp-implementation-type) (lisp-implementation-version))) ("**;*.*.*" "/Users/costanza/**/*.*")))
;;; The following lines added by ql:add-to-init-file: #-quicklisp (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init)))
And here is my source-registry.conf
(:source-registry
(:directory "costanza:lisp;asdf-integration")
(:directory "costanza:lisp;develop;cl-scheme") (:directory "costanza:lisp;develop;cl-zeroconf-0-2") (:directory "costanza:lisp;develop;closer;aspectl") (:directory "costanza:lisp;develop;closer;closer-function") (:directory "costanza:lisp;develop;closer;closer-mop") (:directory "costanza:lisp;develop;closer;contextl") (:directory "costanza:lisp;develop;closer;delegation-classes") (:directory "costanza:lisp;develop;closer;filtered-functions") (:directory "costanza:lisp;develop;closer;hash-classes") (:directory "costanza:lisp;develop;closer;mop-features") (:directory "costanza:lisp;develop;core-lisp") (:directory "costanza:lisp;develop;lw-compat") (:directory "costanza:lisp;develop;Pico;CL-Pico") (:directory "costanza:lisp;develop;Pico;Pico-0-1") (:directory "costanza:lisp;develop;PP;Lonestar-1-1;DelaunayRefinement-001;src;lisp")
Looks like a SBCL bug in how you setup logical pathnames, that SBCL is catching:
(in-package :asdf) (setf (logical-pathname-translations "fare") `(("**;*.fasl.*" ,(format nil "/home/fare/.cache/common-lisp/~A/**/*.fasl" (implementation-identifier))) ("**;*.*.*" "/home/fare/**/*.*")))
;; emulating what directory-asd-files does. (merge-pathnames* *wild-asd* #P"FARE:CL;FARE-UTILS;") ;;=> value: #P"FARE:CL;FARE-UTILS;*.ASD.NEWEST" (directory* #P"FARE:CL;FARE-UTILS;*.ASD.NEWEST") ;;=> error: Pathname components from SOURCE and FROM args to TRANSLATE-PATHNAME did not match: NIL "FASL"
;; If you translate the logical pathname, it works: (directory* (translate-logical-pathname #P"FARE:CL;FARE-UTILS;*.ASD.NEWEST")) ;;=> value: (#P"/home/fare/cl/fare-utils/fare-utils.asd") ;; BTW (directory* x) is just (directory x :resolve-symlinks nil)
So logical-pathnames do not commute with directory in SBCL.
Note that I'll also be surprised if those dual-case pathnames work. "Pico" will be read in uppercase as "PICO" as per the CLHS, and then attempted as "pico" on the filesystem side. Unless of course you add another translation rule for each physical pathname that doesn't fit the logical-pathname portability restrictions.
NB: why don't you just use the following?
(:source-registry (:tree #-mcl "/Users/costanza/lisp/" #+mcl "Macintosh HD:Users:costanza:lisp:"))
Good luck!
Thanks for taking care of this.
Best, Pascal
-- Pascal Costanza The views expressed in this email are my own, and not those of my employer.
Would it be the classic "missing a directory separator at the end of the namestring"?
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] ... Any resemblance between the above views and those of my employer, my terminal, or the view out my window are purely coincidental. Any resemblance between the above and my own views is non-deterministic. The question of the existence of views in the absence of anyone to hold them is left as an exercise for the reader. The question of the existence of the reader is left as an exercise for the second god coefficient. (A discussion of non-orthogonal, non-integral polytheism is beyond the scope of this article.)