Untitled

[pjb@despina org.macports:0 ~]$ clall -r '(setf (logical-pathname-translations "H") (quote (("H:**;*.*" "/**/*.*") ("H:**;*" "/**/*"))))' '(translate-logical-pathname "H:TMP;P.LISP")'

Armed Bear Common Lisp         --> ((#P"H:**;*.*" #P"/**/*.*") (#P"H:**;*" #P"/**/*"))
Armed Bear Common Lisp         --> #P"/tmp/p.lisp"
Clozure Common Lisp            --> (("H:**;*.*" "/**/*.*") ("H:**;*" "/**/*"))
Clozure Common Lisp            --> #P"/TMP/P.LISP"
CLISP                          --> ((#P"H:**;*.*" "/**/*.*") (#P"H:**;*" "/**/*"))
CLISP                          --> #P"/tmp/p.lisp"
ECL                            --> ((#P"H:**;*.*" #P"/**/*.*")
                                    (#P"H:**;*" #P"/**/*"))
ECL                            --> #P"/tmp/p.lisp"
SBCL                           --> (("H:**;*.*" "/**/*.*") ("H:**;*" "/**/*"))
SBCL                           --> #P"/tmp/p.lisp"

[pjb@despina org.macports:0 ~]$ clall -r '(setf (logical-pathname-translations "H") (quote (("H:TMP;P.LISP" "/tmp/p.lisp") ("H:**;*.*" "/**/*.*")  ("H:**;*" "/**/*"))))' '(translate-logical-pathname "H:TMP;P.LISP")'

Armed Bear Common Lisp         --> ((#P"H:TMP;P.LISP" #P"/tmp/p.lisp") (#P"H:**;*.*" #P"/**/*.*") (#P"H:**;*" #P"/**/*"))
Armed Bear Common Lisp         --> #P"/tmp/p.lisp"
Clozure Common Lisp            --> (("H:TMP;P.LISP" "/tmp/p.lisp") ("H:**;*.*" "/**/*.*") ("H:**;*" "/**/*"))
Clozure Common Lisp            --> #P"/tmp/p.lisp"
CLISP                          --> ((#P"H:TMP;P.LISP" "/tmp/p.lisp") (#P"H:**;*.*" "/**/*.*") (#P"H:**;*" "/**/*"))
CLISP                          --> #P"/tmp/p.lisp"
ECL                            --> ((#P"H:TMP;P.LISP" #P"/tmp/p.lisp")
                                    (#P"H:**;*.*" #P"/**/*.*")
                                    (#P"H:**;*" #P"/**/*"))
ECL                            --> #P"/tmp/p.lisp"
SBCL                           --> (("H:TMP;P.LISP" "/tmp/p.lisp")
                                    ("H:**;*.*" "/**/*.*") ("H:**;*" "/**/*"))
SBCL                           --> #P"/tmp/p.lisp"

[pjb@despina org.macports:0 ~]$