From: <cli...@li...> - 2008-01-25 20:08:58
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/doc common.xsl,1.49,1.50 (Sam Steingold) 2. clisp/tests path.tst,1.70,1.71 ChangeLog,1.526,1.527 (Sam Steingold) 3. clisp/src pathname.d,1.428,1.429 ChangeLog,1.5958,1.5959 (Sam Steingold) 4. clisp/tests path.tst,1.71,1.72 ChangeLog,1.527,1.528 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Fri, 25 Jan 2008 16:08:35 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc common.xsl,1.49,1.50 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv26594/doc Modified Files: common.xsl Log Message: google search: default to the page title Index: common.xsl =================================================================== RCS file: /cvsroot/clisp/clisp/doc/common.xsl,v retrieving revision 1.49 retrieving revision 1.50 diff -u -d -r1.49 -r1.50 --- common.xsl 23 Jan 2008 23:36:36 -0000 1.49 +++ common.xsl 25 Jan 2008 16:08:33 -0000 1.50 @@ -368,7 +368,10 @@ <input type="hidden" name="domains" value="clisp.cons.org;clisp.podval.org;www.lisp.org"/> <label for="sbi" style="display: none">Enter your search terms</label> - <input type="text" name="q" size="50" maxlength="255" id="sbi" value=""/> + <input type="text" name="q" size="50" maxlength="255" id="sbi"> + <xsl:attribute name="value"> + <xsl:apply-templates select="." mode="object.title.markup.textonly"/> + </xsl:attribute></input> <label for="sbb" style="display: none">Submit search form</label> <input type="submit" name="sa" value="Google Search" id="sbb"/></td></tr> <tr><td nowrap="nowrap" align="center"> ------------------------------ Message: 2 Date: Fri, 25 Jan 2008 16:22:15 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests path.tst,1.70,1.71 ChangeLog,1.526,1.527 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32015/tests Modified Files: path.tst ChangeLog Log Message: use EXT:DELETE-DIRECTORY, EXT:MAKE-DIRECTORY, and EXT:RENAME-DIRECTORY instead of the deprecated EXT:DELETE-DIR, EXT:MAKE-DIR, and EXT:RENAME-DIR Index: path.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/path.tst,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- path.tst 17 Jan 2008 16:03:10 -0000 1.70 +++ path.tst 25 Jan 2008 16:22:13 -0000 1.71 @@ -794,7 +794,7 @@ (when (directory f) (delete-file f)) (list (let ((d (ext:string-concat f "/"))) - (when (directory d) (ext:delete-dir d)) + (when (directory d) (ext:delete-directory d)) (directory d)) (directory (ext:string-concat f "/*")))) (NIL NIL) @@ -921,7 +921,7 @@ (f (ext:string-concat n ".lisp")) (d (ext:string-concat n "/"))) (with-open-file (s f :direction :output) - (prin1 `(ext:delete-dir ,d) s)) + (prin1 `(ext:delete-directory ,d) s)) (ensure-directories-exist d) (list (ext:probe-directory d) (load n) @@ -934,7 +934,7 @@ (f (ext:string-concat n ".lisp")) (d (ext:string-concat n "/"))) (with-open-file (s f :direction :output) - (prin1 `(ext:delete-dir ,d) s)) + (prin1 `(ext:delete-directory ,d) s)) (ensure-directories-exist d) (setf (logical-pathname-translations "FOO") '(("*" "./*"))) (list (ext:probe-directory d) @@ -1069,13 +1069,13 @@ (unwind-protect (let ((*load-paths* nil) (*load-verbose* t)) (setf (logical-pathname-translations "FOO") nil) - (ext:make-dir dir) + (ext:make-directory dir) (with-open-file (f file :direction :output) (format f "~S~%" '(("FOO:**;*" "/foo/**/*")))) (and (load-logical-pathname-translations "FOO") (cadar (logical-pathname-translations "FOO")))) (delete-file file) - (ext:delete-dir dir))) "/foo/**/*" + (ext:delete-directory dir))) "/foo/**/*" (translate-logical-pathname "foo:bar;baz;zot.txt") #P"/foo/bar/baz/zot.txt" ;; https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1550803&group_id=1355 @@ -1089,9 +1089,9 @@ (make-pathname :directory '(:absolute :wild-inferiors "subdir")) #P"/**/subdir/" -(ext:make-dir "foo/") T -(ext:rename-dir "foo/" "bar/") T -(ext:delete-dir "bar/") T +(ext:make-directory "foo/") T +(ext:rename-directory "foo/" "bar/") T +(ext:delete-directory "bar/") T (flet ((kill (s) (makunbound s) (unintern s))) (makunbound 'string) (makunbound 'symbol) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.526 retrieving revision 1.527 diff -u -d -r1.526 -r1.527 --- ChangeLog 22 Jan 2008 20:57:23 -0000 1.526 +++ ChangeLog 25 Jan 2008 16:22:13 -0000 1.527 @@ -1,3 +1,9 @@ +2008-01-25 Sam Steingold <sd...@gn...> + + * path.tst: use EXT:DELETE-DIRECTORY, EXT:MAKE-DIRECTORY, and + EXT:RENAME-DIRECTORY instead of the deprecated EXT:DELETE-DIR, + EXT:MAKE-DIR, and EXT:RENAME-DIR + 2008-01-22 Sam Steingold <sd...@gn...> * ffi.tst (toupper, pcre_version): add tests ------------------------------ Message: 3 Date: Fri, 25 Jan 2008 19:18:31 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src pathname.d,1.428,1.429 ChangeLog,1.5958,1.5959 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11480/src Modified Files: pathname.d ChangeLog Log Message: (get_time_size) [WIN32_NATIVE]: accept directories; this should fix the 2007-12-31 patch for woe32 Thanks to Michael Kappert <mic...@gm...> for testing. Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.428 retrieving revision 1.429 diff -u -d -r1.428 -r1.429 --- pathname.d 22 Jan 2008 22:35:47 -0000 1.428 +++ pathname.d 25 Jan 2008 19:18:26 -0000 1.429 @@ -6802,7 +6802,7 @@ begin_system_call(); READDIR_findfirst(resolved_asciz, notfound = true; , notfound = true; ); end_system_call(); - if (notfound || READDIR_entry_ISDIR()) /* just to be paranoid */ + if (notfound) /* just to be paranoid */ OS_file_error(STACK_1); READDIR_entry_timedate(timepoint); *entry_size = READDIR_entry_size(); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5958 retrieving revision 1.5959 diff -u -d -r1.5958 -r1.5959 --- ChangeLog 24 Jan 2008 14:58:13 -0000 1.5958 +++ ChangeLog 25 Jan 2008 19:18:27 -0000 1.5959 @@ -1,3 +1,9 @@ +2008-01-25 Sam Steingold <sd...@gn...> + + * pathname.d (get_time_size) [WIN32_NATIVE]: accept directories; + this should fix the 2007-12-31 patch for woe32 + Thanks to Michael Kappert <mic...@gm...> for testing. + 2008-01-24 Sam Steingold <sd...@gn...> * lndir: do not link over CVS directories ------------------------------ Message: 4 Date: Fri, 25 Jan 2008 19:18:40 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests path.tst,1.71,1.72 ChangeLog,1.527,1.528 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11498/tests Modified Files: path.tst ChangeLog Log Message: test (directory "foo/" :full t) Index: path.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/path.tst,v retrieving revision 1.71 retrieving revision 1.72 diff -u -d -r1.71 -r1.72 --- path.tst 25 Jan 2008 16:22:13 -0000 1.71 +++ path.tst 25 Jan 2008 19:18:38 -0000 1.72 @@ -1090,9 +1090,19 @@ #P"/**/subdir/" (ext:make-directory "foo/") T +(defparameter *dir* (directory "foo/" :full t)) *DIR* +(cdr *dir*) NIL +(length (car *dir*)) 4 +(equal (caar *dir*) (cadar *dir*)) T +(equal (caar *dir*) (car (directory "foo/"))) T (ext:rename-directory "foo/" "bar/") T +(equal (cddar (directory "bar/" :full t)) (cddar *dir*)) T +(directory "foo/") NIL (ext:delete-directory "bar/") T +(directory "bar/" :full t) NIL + (flet ((kill (s) (makunbound s) (unintern s))) + (kill '*dir*) (makunbound 'string) (makunbound 'symbol) (kill 'pathstring) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.527 retrieving revision 1.528 diff -u -d -r1.527 -r1.528 --- ChangeLog 25 Jan 2008 16:22:13 -0000 1.527 +++ ChangeLog 25 Jan 2008 19:18:38 -0000 1.528 @@ -3,6 +3,7 @@ * path.tst: use EXT:DELETE-DIRECTORY, EXT:MAKE-DIRECTORY, and EXT:RENAME-DIRECTORY instead of the deprecated EXT:DELETE-DIR, EXT:MAKE-DIR, and EXT:RENAME-DIR + test (directory "foo/" :full t) 2008-01-22 Sam Steingold <sd...@gn...> ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2008. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 21, Issue 29 ***************************************** |