From: <cli...@li...> - 2007-10-03 01:24:14
|
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 error.d,1.140,1.141 ChangeLog,1.5596,1.5597 (Sam Steingold) 2. clisp/src genclisph.d,1.201,1.202 ChangeLog,1.5597,1.5598 (Sam Steingold) 3. clisp/src stream.d, 1.578, 1.579 lispbibl.d, 1.721, 1.722 NEWS, 1.380, 1.381 ChangeLog, 1.5598, 1.5599 (Sam Steingold) 4. clisp/tests streams.tst,1.51,1.52 ChangeLog,1.516,1.517 (Sam Steingold) 5. clisp/src ChangeLog,1.5599,1.5600 (Sam Steingold) 6. clisp/modules/gdbm gdbm.c,1.18,1.19 (Sam Steingold) 7. clisp/tests streams.tst,1.52,1.53 ChangeLog,1.517,1.518 (Sam Steingold) 8. clisp/doc impbody.xml,1.463,1.464 (Sam Steingold) 9. clisp/src stream.d, 1.579, 1.580 NEWS, 1.381, 1.382 ChangeLog, 1.5600, 1.5601 (Sam Steingold) 10. clisp/src stream.d,1.580,1.581 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Tue, 02 Oct 2007 20:36:11 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src error.d,1.140,1.141 ChangeLog,1.5596,1.5597 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv29826/src Modified Files: error.d ChangeLog Log Message: (OS_filestream_error): check that the stream argument is actually a stream object (this is needed because OS_filestream_error is called by handle_lseek which is called by handle_length which is used by the gdbm module which does not have Lisp streams) Index: error.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/error.d,v retrieving revision 1.140 retrieving revision 1.141 diff -u -d -r1.140 -r1.141 --- error.d 11 Dec 2006 00:14:35 -0000 1.140 +++ error.d 2 Oct 2007 20:36:08 -0000 1.141 @@ -422,7 +422,7 @@ > stream: a channel stream > end_system_call() already called */ nonreturning_function(global, OS_filestream_error, (object stream)) { - if (TheStream(stream)->strmtype == strmtype_file + if (streamp(stream) && TheStream(stream)->strmtype == strmtype_file && !nullp(TheStream(stream)->strm_file_truename)) { OS_file_error(TheStream(stream)->strm_file_truename); } else { Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5596 retrieving revision 1.5597 diff -u -d -r1.5596 -r1.5597 --- ChangeLog 2 Oct 2007 14:51:00 -0000 1.5596 +++ ChangeLog 2 Oct 2007 20:36:08 -0000 1.5597 @@ -1,5 +1,12 @@ 2007-10-02 Sam Steingold <sd...@gn...> + * error.d (OS_filestream_error): check that the stream argument is + actually a stream object (this is needed becuase OS_filestream_error + is called by handle_lseek which is called by handle_length which + is used by the gdbm module which does not have Lisp streams) + +2007-10-02 Sam Steingold <sd...@gn...> + * modules/gdbm/gdbm.c (GDBM:GDBM-FILE-SIZE): implement * modules/gdbm/gdbm.lisp (GDBM:GDBM-FILE-SIZE): export (gdbm-p, gdbm-error, gdbm-error-message): export ------------------------------ Message: 2 Date: Tue, 02 Oct 2007 20:48:23 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src genclisph.d,1.201,1.202 ChangeLog,1.5597,1.5598 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv2634/src Modified Files: genclisph.d ChangeLog Log Message: (emit_to_I): add and use it for size, ssize and off Index: genclisph.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/genclisph.d,v retrieving revision 1.201 retrieving revision 1.202 diff -u -d -r1.201 -r1.202 --- genclisph.d 2 Oct 2007 02:03:56 -0000 1.201 +++ genclisph.d 2 Oct 2007 20:48:20 -0000 1.202 @@ -201,6 +201,10 @@ #define export_def(x) puts("#define " #x " " STRING(x)) #define export_literal(x) puts(STRING(x)) +static void emit_to_I (const char* name, int signedp, int size) +{ printf("#define %s_to_I %cint%d_to_I\n",name,(signedp ? 's' : 'u'),size*8); } +#define EMIT_TO_I(name,type) emit_to_I(name,(type)-1<(type)0,sizeof(type)) + int main(int argc, char* argv[]) { char buf[BUFSIZ]; @@ -251,16 +255,9 @@ "}\n"); printf("#endif\n"); printf("#define check_uint_default0(obj) check_uint_defaulted(obj,0)\n"); - switch (sizeof(size_t)) { - case sizeof(uint32): printf("#define size_to_I uint32_to_I\n"); break; - case sizeof(uint64): printf("#define size_to_I uint64_to_I\n"); break; - default: abort(); - } - switch (sizeof(ssize_t)) { - case sizeof(sint32): printf("#define ssize_to_I sint32_to_I\n"); break; - case sizeof(sint64): printf("#define ssize_to_I sint64_to_I\n"); break; - default: abort(); - } + EMIT_TO_I("size",size_t); + EMIT_TO_I("ssize",ssize_t); + EMIT_TO_I("off",off_t); #if defined(UNIX_CYGWIN32) printf("#ifndef COMPILE_STANDALONE\n"); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5597 retrieving revision 1.5598 diff -u -d -r1.5597 -r1.5598 --- ChangeLog 2 Oct 2007 20:36:08 -0000 1.5597 +++ ChangeLog 2 Oct 2007 20:48:20 -0000 1.5598 @@ -1,9 +1,10 @@ 2007-10-02 Sam Steingold <sd...@gn...> * error.d (OS_filestream_error): check that the stream argument is - actually a stream object (this is needed becuase OS_filestream_error + actually a stream object (this is needed because OS_filestream_error is called by handle_lseek which is called by handle_length which is used by the gdbm module which does not have Lisp streams) + * genclisph.d (emit_to_I): add and use it for size, ssize and off 2007-10-02 Sam Steingold <sd...@gn...> ------------------------------ Message: 3 Date: Tue, 02 Oct 2007 21:11:30 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src stream.d, 1.578, 1.579 lispbibl.d, 1.721, 1.722 NEWS, 1.380, 1.381 ChangeLog, 1.5598, 1.5599 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv12538/src Modified Files: stream.d lispbibl.d NEWS ChangeLog Log Message: (FILE-LENGTH): handle unbuffered streams Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.380 retrieving revision 1.381 diff -u -d -r1.380 -r1.381 --- NEWS 30 Sep 2007 04:35:47 -0000 1.380 +++ NEWS 2 Oct 2007 21:11:24 -0000 1.381 @@ -31,6 +31,8 @@ * New function EXT:RENAME-DIR can be used to rename directories. See <http://clisp.cons.org/impnotes/file-dict.html#rename-dir> for details. +* Function FILE-LENGTH now works on unbuffered streams too. + * Bug fixes: + Fixed EXT:LETF to work with more than one place. [ 1731462 ] + Fixed rounding of long floats [even+1/2]. [ 1589311 ] Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.721 retrieving revision 1.722 diff -u -d -r1.721 -r1.722 --- lispbibl.d 18 Sep 2007 15:45:57 -0000 1.721 +++ lispbibl.d 2 Oct 2007 21:11:24 -0000 1.722 @@ -15673,6 +15673,15 @@ extern maygc object open_file_stream_handle (object stream, Handle *fd); %% puts("extern object open_file_stream_handle (object stream, Handle *fd);"); +/* return the OS's idea of the stream length for the file stream + > stream: for error reporting + > fd: OS file handle + < result: the length of the stream + should be wrapped in begin_system_call()/end_system_call() + for gdbm module */ +global off_t handle_length (object stream, Handle fd); +%% puts("extern off_t handle_length (object stream, Handle fd);"); + /* Function: Reads several bytes from a stream. read_byte_array(&stream,&bytearray,start,len,persev) > stream: stream (on the STACK) Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.578 retrieving revision 1.579 diff -u -d -r1.578 -r1.579 --- stream.d 8 Mar 2007 03:08:30 -0000 1.578 +++ stream.d 2 Oct 2007 21:11:23 -0000 1.579 @@ -33,8 +33,10 @@ # can trigger GC #if SIZEOF_OFF_T > 4 #define uoff_to_I UQ_to_I + #define off_to_I Q_to_I #else #define uoff_to_I UL_to_I + #define off_to_I L_to_I #endif # Converts an Integer >=0 into an uoff_t value. @@ -17194,6 +17196,25 @@ return stream; } +/* return the OS's idea of the stream length for the file stream + > stream: for error reporting + > fd: OS file handle + < result: the length of the stream + should be wrapped in begin_system_call()/end_system_call() + for gdbm module */ +global off_t handle_length (object stream, Handle fd) { + off_t len, pos; + handle_lseek(stream,fd,0,SEEK_CUR,pos=); /* save current location */ + handle_lseek(stream,fd,0,SEEK_END,len=); /* get EOF location */ + /* if the above call fails, we may be screwed now: + the file position was modified but not restored. + However, this would indicate a bug in the underlying lseek() + implementation, see the list of ERRORS in + http://www.opengroup.org/onlinepubs/009695399/functions/lseek.html */ + handle_lseek(stream,fd,pos,SEEK_SET,); /* restore the original location */ + return len; +} + typedef enum { POS_QUERY, POS_SET_START, POS_SET_END, POS_SET_OFF } pos_arg_t; LISPFUN(file_position,seclass_default,1,1,norest,nokey,0,NIL) { /* (FILE-POSITION stream [position]), CLTL p. 425 */ @@ -17366,8 +17387,11 @@ VALUES1(Fixnum_0); return; } if (!ChannelStream_buffered(stream)) { - # Don't know how to deal with the file position on unbuffered streams. - VALUES1(NIL); + off_t len; + begin_system_call(); + len = handle_length(stream,ChannelStream_ihandle(stream)); + end_system_call(); + VALUES1(off_to_I(len)); } else { # memorize Position: var uoff_t position = BufferedStream_position(stream); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5598 retrieving revision 1.5599 diff -u -d -r1.5598 -r1.5599 --- ChangeLog 2 Oct 2007 20:48:20 -0000 1.5598 +++ ChangeLog 2 Oct 2007 21:11:24 -0000 1.5599 @@ -5,6 +5,9 @@ is called by handle_lseek which is called by handle_length which is used by the gdbm module which does not have Lisp streams) * genclisph.d (emit_to_I): add and use it for size, ssize and off + * lispbibl.d (handle_length): add declaration + * stream.d (handle_length): implement + (FILE-LENGTH): use it to handle unbuffered streams 2007-10-02 Sam Steingold <sd...@gn...> ------------------------------ Message: 4 Date: Tue, 02 Oct 2007 21:11:25 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests streams.tst,1.51,1.52 ChangeLog,1.516,1.517 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv12538/tests Modified Files: streams.tst ChangeLog Log Message: (FILE-LENGTH): handle unbuffered streams Index: streams.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/streams.tst,v retrieving revision 1.51 retrieving revision 1.52 diff -u -d -r1.51 -r1.52 --- streams.tst 4 Jan 2007 18:56:40 -0000 1.51 +++ streams.tst 2 Oct 2007 21:11:23 -0000 1.52 @@ -1175,6 +1175,21 @@ (delete-file of))) #+clisp (T T (NIL . :DEFAULT) :UNIX ENCODING T) +;; file-length on unbuffered streams +(mapcar (lambda (buf) + (let ((f "tmp-file")) + (unwind-protect + (let ((len (with-open-file (s f :direction :output) + (write-line f s) + (file-length s)))) + (= len + (with-open-file (s f :direction :input + #+clisp :buffered #+clisp buf) + (file-length s)))) + (delete-file f)))) + '(nil t)) +(T T) + (progn (makunbound 's) (makunbound 's1) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.516 retrieving revision 1.517 diff -u -d -r1.516 -r1.517 --- ChangeLog 25 Sep 2007 19:07:08 -0000 1.516 +++ ChangeLog 2 Oct 2007 21:11:23 -0000 1.517 @@ -1,3 +1,7 @@ +2007-10-02 Sam Steingold <sd...@gn...> + + * streams.tst: test file-length on unbuffered streams + 2007-09-25 Sam Steingold <sd...@gn...> * tests.lisp (diff-seq): add ------------------------------ Message: 5 Date: Tue, 02 Oct 2007 21:26:51 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5599,1.5600 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv19169/src Modified Files: ChangeLog Log Message: (GDBM:GDBM-FILE-SIZE): use handle_length Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5599 retrieving revision 1.5600 diff -u -d -r1.5599 -r1.5600 --- ChangeLog 2 Oct 2007 21:11:24 -0000 1.5599 +++ ChangeLog 2 Oct 2007 21:26:48 -0000 1.5600 @@ -8,6 +8,7 @@ * lispbibl.d (handle_length): add declaration * stream.d (handle_length): implement (FILE-LENGTH): use it to handle unbuffered streams + * modules/gdbm/gdbm.c (GDBM:GDBM-FILE-SIZE): use handle_length 2007-10-02 Sam Steingold <sd...@gn...> ------------------------------ Message: 6 Date: Tue, 02 Oct 2007 21:26:51 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/gdbm gdbm.c,1.18,1.19 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/gdbm In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv19169/modules/gdbm Modified Files: gdbm.c Log Message: (GDBM:GDBM-FILE-SIZE): use handle_length Index: gdbm.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/gdbm/gdbm.c,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- gdbm.c 2 Oct 2007 14:51:01 -0000 1.18 +++ gdbm.c 2 Oct 2007 21:26:49 -0000 1.19 @@ -107,18 +107,11 @@ DEFUN(GDBM:GDBM-FILE-SIZE, dbf) { GDBM_FILE dbf = check_gdbm(popSTACK()); - size_t ret, pos; - int status, fd; + off_t ret; begin_system_call(); - fd = gdbm_fdesc(dbf); - pos = lseek(fd,0,SEEK_CUR); /* save current location */ - if (pos == (off_t)-1) OS_error(); - ret = lseek(fd,0,SEEK_END); /* get EOF location */ - if (ret == (off_t)-1) OS_error(); - pos = lseek(fd,pos,SEEK_SET); /* restore the original location */ - if (pos == (off_t)-1) OS_error(); + ret = handle_length(NIL,gdbm_fdesc(dbf)); end_system_call(); - VALUES1(size_to_I(ret)); + VALUES1(off_to_I(ret)); } #endif /* HAVE_GDBM_FDESC */ ------------------------------ Message: 7 Date: Tue, 02 Oct 2007 22:20:42 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests streams.tst,1.52,1.53 ChangeLog,1.517,1.518 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8826/tests Modified Files: streams.tst ChangeLog Log Message: (FILE-POSITION): use handle_lseek on unbuffered streams Index: streams.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/streams.tst,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- streams.tst 2 Oct 2007 21:11:23 -0000 1.52 +++ streams.tst 2 Oct 2007 22:20:40 -0000 1.53 @@ -1190,6 +1190,21 @@ '(nil t)) (T T) +;; file-position on unbuffered streams +(mapcar (lambda (buf) + (let ((f "tmp-file")) + (unwind-protect + (progn (with-open-file (s f :direction :output + #+clisp :buffered #+clisp buf) + (write-line "12345" s) + (file-position s 2) + (write-line "12345" s)) + (with-open-file (s f :direction :input) + (read-line s))) + (delete-file f)))) + '(t nil)) +("1212345" "1212345") + (progn (makunbound 's) (makunbound 's1) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.517 retrieving revision 1.518 diff -u -d -r1.517 -r1.518 --- ChangeLog 2 Oct 2007 21:11:23 -0000 1.517 +++ ChangeLog 2 Oct 2007 22:20:40 -0000 1.518 @@ -1,6 +1,6 @@ 2007-10-02 Sam Steingold <sd...@gn...> - * streams.tst: test file-length on unbuffered streams + * streams.tst: test file-length and file-position on unbuffered streams 2007-09-25 Sam Steingold <sd...@gn...> ------------------------------ Message: 8 Date: Tue, 02 Oct 2007 22:20:44 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc impbody.xml,1.463,1.464 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8826/doc Modified Files: impbody.xml Log Message: (FILE-POSITION): use handle_lseek on unbuffered streams Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.463 retrieving revision 1.464 diff -u -d -r1.463 -r1.464 --- impbody.xml 27 Aug 2007 01:50:11 -0000 1.463 +++ impbody.xml 2 Oct 2007 22:20:41 -0000 1.464 @@ -4074,7 +4074,7 @@ <section id="file-pos"><title>Function &file-position;</title> -<para>&file-position; works on any &buffered; &file-stream-t;.</para> +<para>&file-position; works on any &file-stream-t;.</para> <!-- #if defined(WIN32) || (defined(UNIX) && (O_BINARY!= 0)) --> <variablelist> ------------------------------ Message: 9 Date: Tue, 02 Oct 2007 22:20:43 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src stream.d, 1.579, 1.580 NEWS, 1.381, 1.382 ChangeLog, 1.5600, 1.5601 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8826/src Modified Files: stream.d NEWS ChangeLog Log Message: (FILE-POSITION): use handle_lseek on unbuffered streams Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.381 retrieving revision 1.382 diff -u -d -r1.381 -r1.382 --- NEWS 2 Oct 2007 21:11:24 -0000 1.381 +++ NEWS 2 Oct 2007 22:20:40 -0000 1.382 @@ -31,7 +31,8 @@ * New function EXT:RENAME-DIR can be used to rename directories. See <http://clisp.cons.org/impnotes/file-dict.html#rename-dir> for details. -* Function FILE-LENGTH now works on unbuffered streams too. +* Functions FILE-LENGTH and FILE-POSITION now work on unbuffered streams too. + See <http://clisp.cons.org/impnotes/impbody.html#file-pos> for details. * Bug fixes: + Fixed EXT:LETF to work with more than one place. [ 1731462 ] Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.579 retrieving revision 1.580 diff -u -d -r1.579 -r1.580 --- stream.d 2 Oct 2007 21:11:23 -0000 1.579 +++ stream.d 2 Oct 2007 22:20:40 -0000 1.580 @@ -17345,8 +17345,33 @@ case strmtype_file: stream = check_open_file_stream(stream,false); /* check open */ if (!ChannelStream_buffered(stream)) { - /* cannot deal with the file position on unbuffered streams. */ - VALUES1(NIL); + object fd = TheStream(stream)->strmflags & strmflags_wr_B + ? ChannelStream_ochannel(stream) + : ChannelStream_ichannel(stream); + switch (pos_type) { + case POS_SET_END: /* :END */ + begin_system_call(); + handle_lseek(stream,fd,0,SEEK_END,pos_off=); + end_system_call(); + goto get_position_pos_off; + case POS_SET_START: /* :START */ + begin_system_call(); + handle_lseek(stream,fd,0,SEEK_SET,pos_off=); + end_system_call(); + goto get_position_pos_off; + case POS_SET_OFF: /* OFFSET */ + begin_system_call(); + handle_lseek(stream,fd,pos_off,SEEK_SET,pos_off=); + end_system_call(); + get_position_pos_off: + VALUES1(uoff_to_I(pos_off)); break; + case POS_QUERY: + begin_system_call(); + handle_lseek(stream,fd,0,SEEK_CUR,pos_off=); + end_system_call(); + goto get_position_common; + default: NOTREACHED; + } } else { switch (pos_type) { case POS_SET_END: /* :END */ @@ -17368,7 +17393,7 @@ } } break; - default: file_position_failed: /* do not know what to do ==> NIL */ + default: /* do not know what to do ==> NIL */ VALUES1(NIL); break; } skipSTACK(2); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5600 retrieving revision 1.5601 diff -u -d -r1.5600 -r1.5601 --- ChangeLog 2 Oct 2007 21:26:48 -0000 1.5600 +++ ChangeLog 2 Oct 2007 22:20:41 -0000 1.5601 @@ -8,6 +8,7 @@ * lispbibl.d (handle_length): add declaration * stream.d (handle_length): implement (FILE-LENGTH): use it to handle unbuffered streams + (FILE-POSITION): use handle_lseek on unbuffered streams * modules/gdbm/gdbm.c (GDBM:GDBM-FILE-SIZE): use handle_length 2007-10-02 Sam Steingold <sd...@gn...> ------------------------------ Message: 10 Date: Wed, 03 Oct 2007 01:24:00 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src stream.d,1.580,1.581 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11450/src Modified Files: stream.d Log Message: (off_to_I): do not define here, it is defined in lispbibl.d Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.580 retrieving revision 1.581 diff -u -d -r1.580 -r1.581 --- stream.d 2 Oct 2007 22:20:40 -0000 1.580 +++ stream.d 3 Oct 2007 01:23:58 -0000 1.581 @@ -33,10 +33,8 @@ # can trigger GC #if SIZEOF_OFF_T > 4 #define uoff_to_I UQ_to_I - #define off_to_I Q_to_I #else #define uoff_to_I UL_to_I - #define off_to_I L_to_I #endif # Converts an Integer >=0 into an uoff_t value. ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. 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 18, Issue 4 **************************************** |