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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(default-directory, call-with-syntax-hooks): New functions.


Date: Thu Jun 10 10:52:28 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.50 slime/swank-backend.lisp:1.51
--- slime/swank-backend.lisp:1.50	Wed Jun  9 05:35:22 2004
+++ slime/swank-backend.lisp	Thu Jun 10 10:52:27 2004
@@ -158,11 +158,19 @@
   "Return a short name for the Lisp implementation."
   (lisp-implementation-type))
 
+(definterface default-directory ()
+  "Return the default directory."
+  (directory-namestring (truename *default-pathname-defaults*)))
+
 (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*))
+  (default-directory))
+
+(definterface call-with-syntax-hooks (fn)
+  "Call FN with hooks to handle special syntax."
+  (funcall fn))
 
 
 ;;;; Compilation