23 Mar
2004
23 Mar
'04
7:34 p.m.
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?