2004-03-23 Alan Shutko <ats@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@acm.org> - I am the rocks. If you quit cold turkey, do you eat hot chicken?