Well I can't help, but I have to use (defun user-init-file () "Return the name of the user init file or nil." (let ((filename (format nil "~A/.swank.lisp" (namestring (truename (user-homedir-pathname)))))) (cond ((probe-file filename) filename) (t nil))))
here
Just see what happens with logical-pathnames here (setf (logical-pathname-translations "tmp") '(("**;*.*.*" "/tmp/**/*.*")))
now (translate-logical-pathname "tmp:t1.txt") #p"/tmp/t1.txt" is fine but
CL-USER> (translate-logical-pathname "tmp:.txt") Parse error in namestring: Expecting a file name, got #.. tmp:.txt
crashes.
I can't tell why I have troubles with this dot but they still are there.
my CMUCL here is: CL-USER> (lisp-implementation-type) "CMU Common Lisp" CL-USER> (lisp-implementation-version) "CVS release-18e-branch + minimal debian patches" CL-USER>
Regards Friedrich
Friedrich Dominicus frido@q-software-solutions.com writes:
Well I can't help, but I have to use
OK, I changed the CVS version.
I can't tell why I have troubles with this dot but they still are there.
What is the return value value of user-homedir-pathname on your system?
Helmut.
Helmut Eller e9626484@stud3.tuwien.ac.at writes:
Friedrich Dominicus frido@q-software-solutions.com writes:
Well I can't help, but I have to use
OK, I changed the CVS version.
I can't tell why I have troubles with this dot but they still are there.
What is the return value value of user-homedir-pathname on your system?
CL-USER> (user-homedir-pathname) #p"home:"
Regards Friedrich
-
Friedrich Dominicus -
Helmut Eller