Menu
▾
▴
clisp-cvs digest, Vol 1 #1137 - 10 msgs
|
From: <cli...@li...> - 2005-06-16 03:17:08
|
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 stream.d,1.526,1.527 lispbibl.d,1.653,1.654 (Bruno Haible) 2. clisp/src socket.d,1.95,1.96 ChangeLog,1.4703,1.4704 (Bruno Haible) 3. clisp/src TODO,1.94,1.95 (Bruno Haible) 4. clisp/src ChangeLog,1.4704,1.4705 defs1.lisp,1.56,1.57 (Jörg Höhle) 5. clisp/doc impbody.xml,1.385,1.386 (Jörg Höhle) 6. clisp/modules/syscalls calls.c,1.129,1.130 (Sam Steingold) 7. clisp/doc impext.xml,1.349,1.350 (Sam Steingold) 8. clisp/doc impext.xml,1.350,1.351 clhs-ent.xml,1.11,1.12 (Jörg Höhle) 9. clisp/src hashtabl.d,1.121,1.122 (Bruno Haible) 10. clisp/src TODO,1.95,1.96 (Bruno Haible) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src stream.d,1.526,1.527 lispbibl.d,1.653,1.654 Date: Wed, 15 Jun 2005 12:26:26 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2038 Modified Files: stream.d lispbibl.d Log Message: Fix documentation of open_file_stream_handle. (stream is an input parameter here, not an output parameter.) Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.653 retrieving revision 1.654 diff -u -d -r1.653 -r1.654 --- lispbibl.d 14 Jun 2005 17:41:57 -0000 1.653 +++ lispbibl.d 15 Jun 2005 12:26:22 -0000 1.654 @@ -16475,7 +16475,7 @@ /* extract the OS file handle from the file stream > stream: open Lisp file stream < fd: OS file handle - < stream: corrected stream in case stream was invalid + < result: either stream, or a corrected stream in case stream was invalid for syscall module can trigger GC */ extern maygc object open_file_stream_handle (object stream, Handle *fd); Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.526 retrieving revision 1.527 diff -u -d -r1.526 -r1.527 --- stream.d 14 Jun 2005 17:17:01 -0000 1.526 +++ stream.d 15 Jun 2005 12:25:53 -0000 1.527 @@ -17101,7 +17101,7 @@ /* extract the OS file handle from the file stream > stream: open Lisp file stream < fd: OS file handle - < stream: corrected stream in case stream was invalid + < result: either stream, or a corrected stream in case stream was invalid for syscall module can trigger GC */ global maygc object open_file_stream_handle (object stream, Handle *fd) { --__--__-- Message: 2 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src socket.d,1.95,1.96 ChangeLog,1.4703,1.4704 Date: Wed, 15 Jun 2005 12:29:35 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4053 Modified Files: socket.d ChangeLog Log Message: Sam forgot to add a maygc marker. Index: socket.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/socket.d,v retrieving revision 1.95 retrieving revision 1.96 diff -u -d -r1.95 -r1.96 --- socket.d 14 Jun 2005 17:11:02 -0000 1.95 +++ socket.d 15 Jun 2005 12:29:29 -0000 1.96 @@ -354,7 +354,7 @@ < lisp string for FQDN or integer for IPv[46] numerics for syscalls & rawsock modules can trigger GC */ -global object string_to_addr (const char* name) { +global maygc object string_to_addr (const char* name) { object ret; begin_system_call(); with_host(name,&string_to_addr1,&ret); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4703 retrieving revision 1.4704 diff -u -d -r1.4703 -r1.4704 --- ChangeLog 14 Jun 2005 20:34:49 -0000 1.4703 +++ ChangeLog 15 Jun 2005 12:29:29 -0000 1.4704 @@ -1,3 +1,7 @@ +2005-06-15 Bruno Haible <br...@cl...> + + * socket.d (string_to_addr): Mark as maygc. + 2005-06-14 Sam Steingold <sd...@gn...> make executables built on NT run on w95 --__--__-- Message: 3 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src TODO,1.94,1.95 Date: Wed, 15 Jun 2005 12:36:01 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8458 Modified Files: TODO Log Message: Fix description of regression. Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.94 retrieving revision 1.95 diff -u -d -r1.94 -r1.95 --- TODO 14 Jun 2005 20:34:49 -0000 1.94 +++ TODO 15 Jun 2005 12:35:59 -0000 1.95 @@ -11,7 +11,7 @@ workaround for an extra comma in _clisp.1 [sds] regression: resolution of logical pathnames is broken, try - (compile-file (logical-pathname "FOO.LISP")) [sds] + (compile-file (logical-pathname "SYS:FOO.LISP")) [sds] regression: [bruno] =============== script.lisp ================== --__--__-- Message: 4 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4704,1.4705 defs1.lisp,1.56,1.57 Date: Wed, 15 Jun 2005 12:42:56 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12092/src Modified Files: ChangeLog defs1.lisp Log Message: export ext:memoized; update impnotes type-of and hash-table-test Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4704 retrieving revision 1.4705 diff -u -d -r1.4704 -r1.4705 --- ChangeLog 15 Jun 2005 12:29:29 -0000 1.4704 +++ ChangeLog 15 Jun 2005 12:42:42 -0000 1.4705 @@ -2,6 +2,13 @@ * socket.d (string_to_addr): Mark as maygc. +2005-06-15 Jörg Höhle <ho...@us...> + + * defs1.lisp (memoized): export it from EXT. + * ../doc/impbody.xml: (TYPE-OF 0 or 1) yields BIT; + HASH-TABLE-TEST now returns EXT:FAST/STABLEHASH-EQ/EQL/EQUAL, + not EQ, EQL nor EQUAL anymore. + 2005-06-14 Sam Steingold <sd...@gn...> make executables built on NT run on w95 @@ -8915,7 +8922,7 @@ (struct argv_initparams): Remove argv_stackneed. (parse_options): Drop support for option -s. (main): Don't reserve space for SP. Don't call setSP. - * doc/clisp.xml.in: Remove documentation of option -s. + * ../doc/clisp.xml.in: Remove documentation of option -s. 2004-08-31 Bruno Haible <br...@cl...> Index: defs1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/defs1.lisp,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- defs1.lisp 13 Jun 2005 13:09:15 -0000 1.56 +++ defs1.lisp 15 Jun 2005 12:42:54 -0000 1.57 @@ -2,7 +2,7 @@ ;;;; 1.8.1989, 2.9.1989, 8.10.1989 (in-package "EXT") -(export '(doseq dohash without-package-lock)) +(export '(doseq dohash without-package-lock memoized)) (export '(#-(or UNIX WIN32) custom::*default-time-zone* custom::*system-package-list*) @@ -851,8 +851,8 @@ (write-to-string object :level level :length length) ) ) ) ) -;; (MEMOIZED form) memoizes the result of form from its first evaluation. (defmacro memoized (form) + "(MEMOIZED form) memoizes the result of FORM from its first evaluation." `(LET ((MEMORY (IF (EVAL-WHEN (EVAL) T) ',(cons nil nil) --__--__-- Message: 5 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/doc impbody.xml,1.385,1.386 Date: Wed, 15 Jun 2005 12:42:58 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12092/doc Modified Files: impbody.xml Log Message: export ext:memoized; update impnotes type-of and hash-table-test Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.385 retrieving revision 1.386 diff -u -d -r1.385 -r1.386 --- impbody.xml 30 May 2005 13:33:21 -0000 1.385 +++ impbody.xml 15 Jun 2005 12:42:54 -0000 1.386 @@ -333,7 +333,7 @@ <listitem><simpara>&cons-t;</simpara></listitem> <listitem><simpara>&symbol-t;, &null-t;, &boolean-t;, &keyword-t;</simpara></listitem> - <listitem><simpara><literal role="type">(&integer-t; 0 + <listitem><simpara>&bit-t;<literal role="type">(&integer-t; 0 #.&most-positive-fixnum;)</literal>, <literal role="type">(&integer-t; #.&most-negative-fixnum; (0))</literal>, <literal role="type">(&integer-t; (#.&most-positive-fixnum;))</literal>, <literal role="type">(&integer-t; * @@ -2812,8 +2812,12 @@ </section> <section id="ht-test"><title>Function &hash-table-test;</title> -<para>Function &hash-table-test; returns either one of the four standard - symbols &eq;, &eql;, &equal;, &equalp;, or, for &hash-table-t;s +<para>Function &hash-table-test; returns either one of &fasthash-eq;, + &stablehash-eq;, <constant>EXT:FASTHASH-EQL</constant>, + <constant>EXT:STABLEHASH-EQL</constant>, + <constant>EXT:FASTHASH-EQUAL</constant>, + <constant>EXT:STABLEHASH-EQUAL</constant>, &equalp; (but not &eq;, &eql; + nor &equal; anymore), or, for &hash-table-t;s created with a user-defined &hash-table-test; (see macro &defhash;), a &cons-t; cell <literal role="data">(&test-f; . &hash-f;)</literal>. </para></section> --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls calls.c,1.129,1.130 Date: Wed, 15 Jun 2005 13:21:53 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32437/modules/syscalls Modified Files: calls.c Log Message: (statvfs) [WIN32_NATIVE]: use "static" instead of prototype Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.129 retrieving revision 1.130 diff -u -d -r1.129 -r1.130 --- calls.c 14 Jun 2005 20:34:58 -0000 1.129 +++ calls.c 15 Jun 2005 13:21:51 -0000 1.130 @@ -1590,8 +1590,7 @@ }; #define HAVE_STATVFS_F_VOLNAME #define HAVE_STATVFS_F_FSTYPE -int statvfs (const char *fname, struct statvfs *sfs); -int statvfs (const char *fname, struct statvfs *sfs) { +static int statvfs (const char *fname, struct statvfs *sfs) { /* GetDiskFreeSpaceEx must be called before GetDiskFreeSpace on WinME, to avoid the MS KB 314417 bug */ ULARGE_INTEGER availb, freeb, totalb; --__--__-- Message: 7 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.349,1.350 Date: Wed, 15 Jun 2005 13:59:37 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19877/doc Modified Files: impext.xml Log Message: (macros3): contains functions too Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.349 retrieving revision 1.350 diff -u -d -r1.349 -r1.350 --- impext.xml 26 May 2005 19:57:44 -0000 1.349 +++ impext.xml 15 Jun 2005 13:59:34 -0000 1.350 @@ -1503,7 +1503,7 @@ </section> -<section id="macros3"><title>Additional Fancy Macros</title> +<section id="macros3"><title>Additional Fancy Macros and Functions</title> <para>&clisp; comes with some extension macros, mostly defined in the file ¯os3-lisp; and loaded from the file &init-lisp; during @@ -1512,7 +1512,7 @@ <formalpara id="ethe"><title>Macro ðe;</title> <para><code>(ðe; &val-type-r; &form-r;)</code> enforces a type check in both interpreted and compiled code. - </para></formalpara> +</para></formalpara> <formalpara id="letf"><title>Macros &letf; & &letf-star;</title> <para>These macros are similar to &let; and &let-star;, respectively, --__--__-- Message: 8 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.350,1.351 clhs-ent.xml,1.11,1.12 Date: Wed, 15 Jun 2005 14:47:23 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11963 Modified Files: impext.xml clhs-ent.xml Log Message: document ext:memoized Index: clhs-ent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/clhs-ent.xml,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- clhs-ent.xml 27 Jan 2005 18:06:26 -0000 1.11 +++ clhs-ent.xml 15 Jun 2005 14:47:20 -0000 1.12 @@ -757,6 +757,7 @@ <!ENTITY pprint-pop "<ulink url='&clhs;/Body/locmac_pprint-pop.html'><function>PPRINT-POP</function></ulink>"> <!ENTITY pprint-tab "<ulink url='&clhs;/Body/fun_pprint-tab.html'><function>PPRINT-TAB</function></ulink>"> <!ENTITY pprint-tabular "<ulink url='&clhs;/Body/fun_pprint-fi_rint-tabular.html'><function>PPRINT-TABULAR</function></ulink>"> +<!ENTITY primary-value-glo "<ulink url='&clhs;/Body/glo_p.html'>primary value</ulink>"> <!ENTITY prin1 "<ulink url='&clhs;/Body/fun_writecm_p_rintcm_princ.html'><function>PRIN1</function></ulink>"> <!ENTITY prin1-to-string "<ulink url='&clhs;/Body/fun_write-to-_nc-to-string.html'><function>PRIN1-TO-STRING</function></ulink>"> <!ENTITY princ "<ulink url='&clhs;/Body/fun_writecm_p_rintcm_princ.html'><function>PRINC</function></ulink>"> Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.350 retrieving revision 1.351 diff -u -d -r1.350 -r1.351 --- impext.xml 15 Jun 2005 13:59:34 -0000 1.350 +++ impext.xml 15 Jun 2005 14:47:19 -0000 1.351 @@ -1544,6 +1544,12 @@ </programlisting> </para></formalpara> +<formalpara id="memoized"> + <title>Macro <function>EXT:MEMOIZED</function></title> +<para><code>(<function>EXT:MEMOIZED</function> &form-r;)</code> + memoizes the &primary-value-glo; of <literal>FORM</literal> from its first evaluation. +</para></formalpara> + <formalpara id="with-collect"> <title>Macro <function>EXT:WITH-COLLECT</function></title> <para>Similar to the &loop;'s --__--__-- Message: 9 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src hashtabl.d,1.121,1.122 Date: Wed, 15 Jun 2005 16:09:19 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23285 Modified Files: hashtabl.d Log Message: Update some old comments. Index: hashtabl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/hashtabl.d,v retrieving revision 1.121 retrieving revision 1.122 diff -u -d -r1.121 -r1.122 --- hashtabl.d 7 Jun 2005 10:56:04 -0000 1.121 +++ hashtabl.d 15 Jun 2005 16:09:15 -0000 1.122 @@ -69,12 +69,8 @@ data-structure of the hash-table (see LISPBIBL.D): recflags codes the type and the state of the hash-table: - Bit 0 set, when EQ-hashtable - Bit 1 set, when EQL-hashtable - Bit 2 set, when EQUAL-hashtable - Bit 3 set, when EQUALP-hashtable - When all bits 0-3 are not set, user-defined ht_test - Bit 4-6 =0 + Bit 0..3 encode the test and the hash-code function + Bit 4..6 are state used to emit warnings for not GC-invariant keys Bit 7 set, when table must be reorganized after GC ht_size uintL>0 = length of the ITABLE ht_maxcount Fixnum>0 = length of the NTABLE --__--__-- Message: 10 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src TODO,1.95,1.96 Date: Wed, 15 Jun 2005 16:21:21 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29331 Modified Files: TODO Log Message: We have c-var-address and foreign-address functions. Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.95 retrieving revision 1.96 diff -u -d -r1.95 -r1.96 --- TODO 15 Jun 2005 12:35:59 -0000 1.95 +++ TODO 15 Jun 2005 16:21:18 -0000 1.96 @@ -401,9 +401,6 @@ Harlequin's HyperSpec. See http://clisp.cons.org/~haible/clahs/. -FFI: Introduce a macro like CMU's FFI:ADDR - - FFI: Actually support :language :cc/:gcc by passing appropriate flags to the avcall/vacall macros. The default should be the same compiler as the one used to compile clisp. --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
