From: Sam S. <sd...@gn...> - 2004-03-14 17:38:33
|
> * <un...@hf...g> [2004-03-14 06:41:29 -0800]: > > Update of /cvsroot/clisp/clisp/src > In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12643/src > > Modified Files: > pathname.d ChangeLog > Log Message: > Fix a STACK bug. > > > Index: pathname.d > =================================================================== > RCS file: /cvsroot/clisp/clisp/src/pathname.d,v > retrieving revision 1.303 > retrieving revision 1.304 > diff -u -d -r1.303 -r1.304 > --- pathname.d 8 Mar 2004 21:15:36 -0000 1.303 > +++ pathname.d 14 Mar 2004 14:41:24 -0000 1.304 > @@ -5905,7 +5905,7 @@ > var object namestring = assure_dir_exists(false,true); > if (eq(namestring,nullobj)) { > /* path to the file does not exist ==> return NIL */ > - skipSTACK(1); VALUES1(NIL); return; > + skipSTACK(2); VALUES1(NIL); return; > } > check_delete_open(STACK_0); > /* delete the original filename - not the truename */ Bruno (and everyone else!), please, whenever you fix a bug, add a test case to the testsuite! Thanks. -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> When we break the law, they fine us, when we comply, they tax us. |