[slime-devel] Again troubles with user-init-file

Friedrich Dominicus frido at q-software-solutions.com
Fri Dec 12 06:27:24 UTC 2003


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




More information about the slime-devel mailing list