From: <cli...@li...> - 2005-05-17 03:20:10
|
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/src NEWS,1.248,1.249 (Sam Steingold) 2. clisp/src pathname.d,1.369,1.370 ChangeLog,1.4594,1.4595 (Sam Steingold) 3. clisp/src pathname.d,1.368,1.369 ChangeLog,1.4590,1.4591 (Sam Steingold) 4. clisp/src compiler.lisp,1.274,1.275 ChangeLog,1.4589,1.4590 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src NEWS,1.248,1.249 Date: Mon, 16 May 2005 16:38:27 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3135/src Modified Files: NEWS Log Message: Support 4GB+ files on woe32. Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.248 retrieving revision 1.249 diff -u -d -r1.248 -r1.249 --- NEWS 16 May 2005 15:55:08 -0000 1.248 +++ NEWS 16 May 2005 16:38:25 -0000 1.249 @@ -402,6 +402,8 @@ * Dynamic modules now work on woe32 too. +* Support 4GB+ files on woe32. + 2.33.2 (2004-06-02) --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src pathname.d,1.369,1.370 ChangeLog,1.4594,1.4595 Date: Mon, 16 May 2005 21:51:36 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29556/src Modified Files: pathname.d ChangeLog Log Message: (MAKE-PATHNAME): accept :DEVICE :UNSPECIFIC to mean NIL because of COMPILE-FILE-PATHNAME with logical :OUTPUT-FILE Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.369 retrieving revision 1.370 diff -u -d -r1.369 -r1.370 --- pathname.d 16 May 2005 16:30:37 -0000 1.369 +++ pathname.d 16 May 2005 21:51:30 -0000 1.370 @@ -3386,7 +3386,8 @@ goto device_ok; #ifdef LOGICAL_PATHNAMES else if (logical) { - if (logpathnamep(device)) { /* Pathname -> its device */ + if (logpathnamep(device) /* Pathname -> its device */ + || (eq(device,S(Kunspecific)))) { /* :UNSPECIFIC -> NIL */ STACK_4 = NIL; goto device_ok; } } @@ -3423,11 +3424,14 @@ #else /* HAS_DEVICE */ { var object device = STACK_4; - if (boundp(device)) /* specified ? */ - if (!(nullp(device) || xpathnamep(device))) { /* NIL or Pathname -> OK */ - /* None of the desired cases -> error: */ + if (boundp(device)) { /* specified ? */ + if (nullp(device) /* NIL, :UNSPECIFIC Pathname -> OK */ + || eq(device,S(Kunspecific)) || xpathnamep(device)) { + STACK_4 = NIL; + } else { /* None of the desired cases -> error: */ pushSTACK(STACK_4); pushSTACK(S(Kdevice)); goto fehler_arg; } + } } #endif { /* 3. check directory: */ Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4594 retrieving revision 1.4595 diff -u -d -r1.4594 -r1.4595 --- ChangeLog 16 May 2005 21:28:23 -0000 1.4594 +++ ChangeLog 16 May 2005 21:51:31 -0000 1.4595 @@ -1,5 +1,10 @@ 2005-05-16 Sam Steingold <sd...@gn...> + * pathname.d (MAKE-PATHNAME): accept :DEVICE :UNSPECIFIC to mean + NIL because of COMPILE-FILE-PATHNAME with logcal :OUTPUT-FILE + +2005-05-16 Sam Steingold <sd...@gn...> + * defmacro.lisp (make-macro-expansion): when PRE-PROCESS is supplied, this is a DEFINE-COMPILER-MACRO call, so name could be a (SETF symbol) --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src pathname.d,1.368,1.369 ChangeLog,1.4590,1.4591 Date: Mon, 16 May 2005 16:31:09 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1149/src Modified Files: pathname.d ChangeLog Log Message: (ENOUGH-NAMESTRING): check consp() before taking Car() Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.368 retrieving revision 1.369 diff -u -d -r1.368 -r1.369 --- pathname.d 12 May 2005 23:12:18 -0000 1.368 +++ pathname.d 16 May 2005 16:30:37 -0000 1.369 @@ -3060,8 +3060,8 @@ } else { /* Does neither pathname-subdirs nor defaults-subdirs start with :RELATIVE ? */ - if ( (eq(Car(p_directory),S(Kabsolute))) - && (eq(Car(d_directory),S(Kabsolute)))) { + if ( consp(p_directory) && (eq(Car(p_directory),S(Kabsolute))) + && consp(d_directory) && (eq(Car(d_directory),S(Kabsolute)))) { /* yes -> test, if defaults-subdirs is a starting piece of the list pathname-subdirs: */ var object Lp = p_directory; Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4590 retrieving revision 1.4591 diff -u -d -r1.4590 -r1.4591 --- ChangeLog 16 May 2005 15:52:57 -0000 1.4590 +++ ChangeLog 16 May 2005 16:30:47 -0000 1.4591 @@ -1,5 +1,9 @@ 2005-05-16 Sam Steingold <sd...@gn...> + * pathname.d (ENOUGH-NAMESTRING): check consp() before taking Car() + +2005-05-16 Sam Steingold <sd...@gn...> + * compiler.lisp (compile-file): return the FAS file truename as per ANSI 2005-05-14 Sam Steingold <sd...@gn...> --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src compiler.lisp,1.274,1.275 ChangeLog,1.4589,1.4590 Date: Mon, 16 May 2005 15:53:01 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24573/src Modified Files: compiler.lisp ChangeLog Log Message: (compile-file): return the FAS file truename as per ANSI Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.274 retrieving revision 1.275 diff -u -d -r1.274 -r1.275 --- compiler.lisp 12 May 2005 04:22:58 -0000 1.274 +++ compiler.lisp 16 May 2005 15:52:54 -0000 1.275 @@ -11251,7 +11251,8 @@ (terpri verbose-out) (format verbose-out (TEXT ";; Wrote file ~A") listing) (elastic-newline verbose-out))) - (values (if compilation-successful output-file nil) + (values (and compilation-successful output-file + (truename *fasoutput-stream*)) (compile-warnings-p) (compile-failure-p)))) (when new-output-stream Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4589 retrieving revision 1.4590 diff -u -d -r1.4589 -r1.4590 --- ChangeLog 14 May 2005 23:27:19 -0000 1.4589 +++ ChangeLog 16 May 2005 15:52:57 -0000 1.4590 @@ -1,3 +1,7 @@ +2005-05-16 Sam Steingold <sd...@gn...> + + * compiler.lisp (compile-file): return the FAS file truename as per ANSI + 2005-05-14 Sam Steingold <sd...@gn...> * modules/berkeley-db/Makefile.in (bdb.o): depend on clisp.h --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |