[slime-cvs] CVS update: slime/swank-allegro.lisp

[Peter Seibel]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv6818

Modified Files:
	swank-allegro.lisp 
Log Message:
Slight tweak to just checked in Allegro-specifc set-default-directory.

Date: Wed Apr  7 12:35:20 2004
Author: pseibel

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.28 slime/swank-allegro.lisp:1.29
--- slime/swank-allegro.lisp:1.28	Wed Apr  7 12:28:13 2004
+++ slime/swank-allegro.lisp	Wed Apr  7 12:35:20 2004
@@ -62,7 +62,8 @@
 
 (defimplementation set-default-directory (directory)
   (excl:chdir directory)
-  (namestring (setf *default-pathname-defaults* (pathname directory))))
+  (namestring (setf *default-pathname-defaults* (truename (merge-pathnames directory)))))
+
 
 ;;;; Misc