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

[Peter Seibel]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
Allegro specific version of set-default-directory

Date: Wed Apr  7 12:28:14 2004
Author: pseibel

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.326 slime/ChangeLog:1.327
--- slime/ChangeLog:1.326	Wed Apr  7 12:24:03 2004
+++ slime/ChangeLog	Wed Apr  7 12:28:13 2004
@@ -1,5 +1,8 @@
 2004-04-07  Peter Seibel  <peter at javamonkey.com>
 
+	* swank-allegro.lisp (set-default-directory): Allegro specific
+	version that also uses excl:chdir.
+
 	* swank.lisp (swank-pprint): Add swank versions of two missing
 	pretty-printer control variables.
 


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.27 slime/swank-allegro.lisp:1.28
--- slime/swank-allegro.lisp:1.27	Tue Apr  6 06:42:53 2004
+++ slime/swank-allegro.lisp	Wed Apr  7 12:28:13 2004
@@ -60,6 +60,10 @@
 (defimplementation lisp-implementation-type-name ()
   "allegro")
 
+(defimplementation set-default-directory (directory)
+  (excl:chdir directory)
+  (namestring (setf *default-pathname-defaults* (pathname directory))))
+
 ;;;; Misc
 
 (defimplementation arglist (symbol)