[slime-devel] CLISP set-default-directory

[Alan Shutko]

2004-03-23  Alan Shutko  <ats at acm.org>

	* swank-clisp.lisp (set-default-directory): New function.

--- swank-clisp.lisp.~1.27.~	2004-03-19 13:01:04.256161600 -0600
+++ swank-clisp.lisp	2004-03-23 13:33:07.746483200 -0600
@@ -62,6 +62,10 @@
 (defimplementation lisp-implementation-type-name ()
   "clisp")
 
+(defimplementation set-default-directory (directory)
+  (setf (ext:default-directory) directory)
+  (namestring (setf *default-pathname-defaults* (ext:default-directory))))
+
 
 ;;; TCP Server

-- 
Alan Shutko <ats at acm.org> - I am the rocks.
If you quit cold turkey, do you eat hot chicken?