[slime-devel] AllegroCL and ,cd without a trailing slash

[Mikel Bancroft]

I've run into a problem in some emacs versions where changing 
directories via ,cd without a trailing slash will cause subsequent cd 
commands (and possibly other pathname related lisp routines) to fail.

The problem is that read-directory-name may or may not return a path 
string with a trailing slash. So a directory "/users/mikel/foo" that
is passed to set-default-directory in the allegro backend and is parsed 
into a pathname with 'foo' in the :name slot rather than as part of the 
:directory. This is then stored into *default-pathname-defaults*.

The following patch avoids this since the path returned by excl:chdir 
returns a path string with a trailing slash regardless of whether or not 
its argument does and thus will be parsed correctly when converted into 
a pathname object.

Index: swank-allegro.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v
retrieving revision 1.85
diff -c -r1.85 swank-allegro.lisp
*** swank-allegro.lisp	22 Mar 2006 16:40:01 -0000	1.85
--- swank-allegro.lisp	24 Mar 2006 06:45:05 -0000
***************
*** 86,94 ****
     "allegro")

   (defimplementation set-default-directory (directory)
!   (let ((dir (namestring (setf *default-pathname-defaults*
!                                (truename (merge-pathnames directory))))))
!     (excl:chdir dir)
       dir))

   (defimplementation default-directory ()
--- 86,93 ----
     "allegro")

   (defimplementation set-default-directory (directory)
!   (let* ((dir (namestring (truename (merge-pathnames directory)))))
!     (setf *default-pathname-defaults* (pathname (excl:chdir dir)))
       dir))

   (defimplementation default-directory ()

-Mikel Bancroft