Patch - environment - current working directory
Sean Champ <[email protected]> Sat, 29 Jul 2006 23:59:09 -0700
| Newsgroups | gmane.lisp.clocc.devel |
|---|---|
| Message-ID | <[email protected]> |
In the minor patch attached to this message: - a function call in src/port/environment/utilities.lisp is changed, so as to call what appears that it would be the intended function - the file src/port/environment/impl-dependent/sbcl.lisp is revised, so as to use *DEFAULT-PATHNAME-DEFAULTS*, in lieu of what appears to have been a carry-over from some CMUCL code. The code was using the return-value from a function EXT:DEFAULT-PATHNAME-DEFAULTS adios -- Sean ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys -- and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ clocc-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/clocc-devel
environment.cwd-sbcl.diff
(text/x-diff, 1.5 KB)
Index: utilities.lisp =================================================================== RCS file: /cvsroot/clocc/clocc/src/port/environment/utilities.lisp,v retrieving revision 1.6 diff -p -u -u -r1.6 utilities.lisp --- utilities.lisp 30 Aug 2005 14:58:08 -0000 1.6 +++ utilities.lisp 30 Jul 2006 06:53:53 -0000 @@ -70,7 +70,7 @@ STREAM is optional and defaults to *STAN (defun (setf current-working-directory) (new-dir) - (change-current-working-directory *cl* new-dir)) + (change-current-directory *cl* new-dir)) (defun (setf cwd) (new-dir) (setf (current-working-directory) new-dir)) Index: impl-dependent/sbcl.lisp =================================================================== RCS file: /cvsroot/clocc/clocc/src/port/environment/impl-dependent/sbcl.lisp,v retrieving revision 1.4 diff -p -u -u -r1.4 sbcl.lisp --- impl-dependent/sbcl.lisp 30 Aug 2005 14:58:08 -0000 1.4 +++ impl-dependent/sbcl.lisp 30 Jul 2006 06:53:53 -0000 @@ -12,7 +12,7 @@ ;;; Directory utilities (defmethod current-directory-pathname ((cl-implementation cl.env:sbcl)) - (pathname (ext:default-directory))) + (pathname *default-pathname-defaults*)) (defmethod change-current-directory ((cl-implementation cl.env:sbcl) @@ -23,7 +23,7 @@ (defmethod change-current-directory ((cl-implementation cl.env:sbcl) (new-dir pathname)) - (pathname (setf (ext:default-directory) new-dir))) + (pathname (setf *default-pathname-defaults* new-dir))) ;;; end of file -- sbcl.lisp --