[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11297

Modified Files:
	swank-allegro.lisp 
Log Message:
(set-default-directory): Fix for pathnames without a trailing slash.
>From Mikel Bankcroft <mutandiz at yahoo.com>


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/03/22 16:40:01	1.85
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/03/24 07:30:18	1.86
@@ -86,9 +86,8 @@
   "allegro")
 
 (defimplementation set-default-directory (directory)
-  (let ((dir (namestring (setf *default-pathname-defaults* 
-                               (truename (merge-pathnames directory))))))
-    (excl:chdir dir)
+  (let* ((dir (namestring (truename (merge-pathnames directory)))))
+    (setf *default-pathname-defaults* (pathname (excl:chdir dir)))
     dir))
 
 (defimplementation default-directory ()