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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp swank-cmucl.lisp 
Log Message:
(set-default-directory): New backend function.

Date: Thu Mar 18 16:55:07 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.38 slime/swank-backend.lisp:1.39
--- slime/swank-backend.lisp:1.38	Fri Mar 12 16:16:08 2004
+++ slime/swank-backend.lisp	Thu Mar 18 16:55:07 2004
@@ -137,6 +137,12 @@
   "Return a short name for the Lisp implementation."
   (lisp-implementation-type))
 
+(definterface set-default-directory (directory)
+  "Set the default directory.
+This is used to resolve filenames without directory component."
+  (setf *default-pathname-defaults* (truename (merge-pathnames directory)))
+  (namestring *default-pathname-defaults*))
+
 
 ;;;; Compilation
 
@@ -220,7 +226,7 @@
 
 The result can be a list or a string.
 
-An error should be signaled if the lambda list cannot be found.")
+An error should be signaled if the lambda-list cannot be found.")
 
 (definterface macroexpand-all (form)
    "Recursively expand all macros in FORM.


Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.88 slime/swank-cmucl.lisp:1.89
--- slime/swank-cmucl.lisp:1.88	Fri Mar 12 16:12:57 2004
+++ slime/swank-cmucl.lisp	Thu Mar 18 16:55:07 2004
@@ -148,6 +148,10 @@
 (defimplementation lisp-implementation-type-name ()
   "cmucl")
 
+(defimplementation set-default-directory (directory)
+  (setf (ext:default-directory) directory)
+  (namestring (setf *default-pathname-defaults* (ext:default-directory))))
+
 
 ;;;; Stream handling