From: <cli...@li...> - 2008-07-17 16:19:45
|
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/tests path.tst,1.78,1.79 (Sam Steingold) 2. clisp/src pathname.d,1.458,1.459 ChangeLog,1.6392,1.6393 (Sam Steingold) 3. clisp/src ChangeLog,1.6393,1.6394 error.d,1.157,1.158 (Sam Steingold) 4. clisp/doc faq.xml,1.86,1.87 (Sam Steingold) 5. clisp/src error.d,1.158,1.159 (Sam Steingold) 6. clisp/src ChangeLog,1.6394,1.6395 error.d,1.159,1.160 (Sam Steingold) 7. clisp/src ChangeLog,1.6395,1.6396 pathname.d,1.459,1.460 (Sam Steingold) 8. clisp/src pathname.d,1.460,1.461 (Sam Steingold) 9. clisp/doc impbyte.xml, 1.115, 1.116 impent.xml, 1.319, 1.320 impext.xml, 1.532, 1.533 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Thu, 17 Jul 2008 04:19:33 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests path.tst,1.78,1.79 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv15424/tests Modified Files: path.tst Log Message: fix and enable the DIRECTORY + encoding test Index: path.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/path.tst,v retrieving revision 1.78 retrieving revision 1.79 diff -u -d -r1.78 -r1.79 --- path.tst 17 Jul 2008 04:01:15 -0000 1.78 +++ path.tst 17 Jul 2008 04:19:31 -0000 1.79 @@ -1127,10 +1127,11 @@ (ext:delete-directory tn))) #+clisp (T T T) -#+(or) +#+clisp (letf* ((*pathname-encoding* charset:iso-8859-1) ; 1:1 (weird (concatenate 'string "weird" (string (code-char 160)))) - (dir (list (pathname weird)))) + (dir (list (make-pathname :version :newest + :defaults (absolute-pathname weird))))) (open weird :direction :probe :if-does-not-exist :create) ; touch (unwind-protect (cons @@ -1139,16 +1140,12 @@ (list (appease-cerrors (directory "weird*")) (handler-bind ((simple-charset-type-error (lambda (c) - (use-value charset:iso-8859-1)))) - (equal (directory "weird*") dir)) - (eq *pathname-encoding* charset:ascii) - (handler-bind ((simple-charset-type-error - (lambda (c) + (princ-error c) (store-value charset:iso-8859-1)))) (equal (directory "weird*") dir)) (eq *pathname-encoding* charset:iso-8859-1)))) (delete-file weird))) -#+(or) (T NIL T T T T) +#+clisp (T NIL T T) (flet ((kill (s) (makunbound s) (unintern s))) (kill '*dir*) ------------------------------ Message: 2 Date: Thu, 17 Jul 2008 04:20:52 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src pathname.d,1.458,1.459 ChangeLog,1.6392,1.6393 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv15838/src Modified Files: pathname.d ChangeLog Log Message: (directory_search_scandir) [WIN32_NATIVE]: use direntry_to_string in one more place Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.458 retrieving revision 1.459 diff -u -d -r1.458 -r1.459 --- pathname.d 16 Jul 2008 21:03:08 -0000 1.458 +++ pathname.d 17 Jul 2008 04:20:48 -0000 1.459 @@ -7088,7 +7088,6 @@ return exists; } #endif - /* the version of files returned by DIRECTORY Since all pathnames returned by DIRECTORY must be truenames, this must be :NEWEST [but then they will not be printable readably!] */ @@ -7403,7 +7402,7 @@ if (rresolved == shell_shortcut_notexists) STACK_(2) = STACK_(3); /* use symbolic names as a result when target is not found */ else { - STACK_(2) = coerce_pathname(asciz_to_string(full_resolved,O(pathname_encoding))); + STACK_(2) = coerce_pathname(direntry_to_string(full_resolved,-1)); ThePathname(STACK_(2))->pathname_version = DEFAULT_VERSION; } } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6392 retrieving revision 1.6393 diff -u -d -r1.6392 -r1.6393 --- ChangeLog 17 Jul 2008 04:19:03 -0000 1.6392 +++ ChangeLog 17 Jul 2008 04:20:49 -0000 1.6393 @@ -1,5 +1,10 @@ 2008-07-17 Sam Steingold <sd...@gn...> + * pathname.d (directory_search_scandir) [WIN32_NATIVE]: use + direntry_to_string in one more place + +2008-07-17 Sam Steingold <sd...@gn...> + * condition.lisp (check-value): disable USE-VALUE when place is *PATHNAME-ENCODING* because O(pathname_encoding) is used multiple times for the same directory entry ------------------------------ Message: 3 Date: Thu, 17 Jul 2008 15:12:26 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6393,1.6394 error.d,1.157,1.158 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv1495/src Modified Files: ChangeLog error.d Log Message: (caller_name): new function (check_symbol_replacement, check_variable_value_replacement): use it when the caller maybe either Subr or Fsubr Reported by Vladimir Tzankov <vtz...@gm...> Index: error.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/error.d,v retrieving revision 1.157 retrieving revision 1.158 diff -u -d -r1.157 -r1.158 --- error.d 16 Jul 2008 15:12:36 -0000 1.157 +++ error.d 17 Jul 2008 15:12:23 -0000 1.158 @@ -900,18 +900,23 @@ error(type_error,GETTEXT("~S: A proper list must not be circular: ~S")); } +/* return the name of the current caller (subr or fsubr) + this is only necessary for error signaled from both. */ +local inline object caller_name (void) { + var object caller = subr_self; + return subrp(caller) ? TheSubr(caller)->name : TheFsubr(caller)->name; +} + /* check_symbol_replacement(obj) > obj: not a symbol < result: a symbol, a replacement can trigger GC */ global maygc object check_symbol_replacement (object obj) { do { - var object caller = subr_self; - caller = (subrp(caller) ? TheSubr(caller)->name : TheFsubr(caller)->name); pushSTACK(NIL); /* no PLACE */ pushSTACK(obj); /* TYPE-ERROR slot DATUM */ pushSTACK(S(symbol)); /* TYPE-ERROR slot EXPECTED-TYPE */ - pushSTACK(obj); pushSTACK(caller); + pushSTACK(obj); pushSTACK(caller_name()); check_value(type_error,GETTEXT("~S: ~S is not a symbol")); obj = value1; } while (!symbolp(obj)); @@ -1515,7 +1520,7 @@ do { if (restart_p) pushSTACK(*symbol_); /* PLACE */ pushSTACK(*symbol_); /* CELL-ERROR Slot NAME */ - pushSTACK(*symbol_); pushSTACK(TheSubr(subr_self)->name); + pushSTACK(*symbol_); pushSTACK(caller_name()); if (restart_p) check_value(unbound_variable,GETTEXT("~S: variable ~S has no value")); else error(unbound_variable,GETTEXT("~S: variable ~S has no value")); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6393 retrieving revision 1.6394 diff -u -d -r1.6393 -r1.6394 --- ChangeLog 17 Jul 2008 04:20:49 -0000 1.6393 +++ ChangeLog 17 Jul 2008 15:12:22 -0000 1.6394 @@ -1,5 +1,12 @@ 2008-07-17 Sam Steingold <sd...@gn...> + * error.d (caller_name): new function + (check_symbol_replacement, check_variable_value_replacement): + use it when the caller maybe either Subr or Fsubr + Reported by Vladimir Tzankov <vtz...@gm...> + +2008-07-17 Sam Steingold <sd...@gn...> + * pathname.d (directory_search_scandir) [WIN32_NATIVE]: use direntry_to_string in one more place ------------------------------ Message: 4 Date: Thu, 17 Jul 2008 15:31:03 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc faq.xml,1.86,1.87 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10204 Modified Files: faq.xml Log Message: typo Index: faq.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/faq.xml,v retrieving revision 1.86 retrieving revision 1.87 diff -u -d -r1.86 -r1.87 --- faq.xml 10 Jul 2008 21:59:58 -0000 1.86 +++ faq.xml 17 Jul 2008 15:31:01 -0000 1.87 @@ -627,7 +627,7 @@ <olink targetdoc="man" targetptr="opt-enc"/>.</para> <para>This may also be caused by filesystem access. - If you have files names incompatible with your &path-enc;, + If you have files with names incompatible with your &path-enc;, filesystem access (e.g., &directory;) will signal this error. You will need to set &path-enc; or pass &opt-E; to &clisp;. Using a <quote>1:1</quote> encoding, such as &iso-8859-1;, @@ -642,7 +642,7 @@ </programlisting> If instead you type <programlisting language="lisp"> (&with-open-file; (s "foo" :direction :input &extfmt; &iso-8859-1;) (&setq; l (&read-line; s)) - &nil; ) + &nil;) </programlisting> &clisp; will just print &nil; and signal the error when you type <literal>l</literal>.</para></answer></qandaentry> ------------------------------ Message: 5 Date: Thu, 17 Jul 2008 15:31:29 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src error.d,1.158,1.159 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10595 Modified Files: error.d Log Message: try to fit into 80 columns Index: error.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/error.d,v retrieving revision 1.158 retrieving revision 1.159 diff -u -d -r1.158 -r1.159 --- error.d 17 Jul 2008 15:12:23 -0000 1.158 +++ error.d 17 Jul 2008 15:31:26 -0000 1.159 @@ -879,8 +879,8 @@ error_proper_list_dotted(caller,obj); > caller: the caller (a symbol) > obj: end of the list, non-list */ -nonreturning_function(global, error_proper_list_dotted, (object caller, object obj)) -{ +nonreturning_function(global, error_proper_list_dotted, + (object caller, object obj)) { pushSTACK(obj); /* TYPE-ERROR slot DATUM */ pushSTACK(O(type_proper_list)); /* TYPE-ERROR slot EXPECTED-TYPE */ pushSTACK(obj); pushSTACK(caller); @@ -891,8 +891,8 @@ error_proper_list_circular(caller,obj); > caller: the caller (a symbol) > obj: circular list */ -nonreturning_function(global, error_proper_list_circular, (object caller, object obj)) -{ +nonreturning_function(global, error_proper_list_circular, + (object caller, object obj)) { dynamic_bind(S(print_circle),T); /* bind *PRINT-CIRCLE* to T */ pushSTACK(obj); /* TYPE-ERROR slot DATUM */ pushSTACK(O(type_proper_list)); /* TYPE-ERROR slot EXPECTED-TYPE */ @@ -928,8 +928,8 @@ > caller: a symbol < result: a non-constant symbol, a replacement can trigger GC */ -global maygc object check_symbol_non_constant_replacement (object obj, object caller) -{ +global maygc object check_symbol_non_constant_replacement +(object obj, object caller) { for (;;) { obj = check_symbol(obj); if (constant_var_p(TheSymbol(obj))) { @@ -948,8 +948,7 @@ /* UP: signal an error if a non-symbol was declared special returns the symbol can trigger GC */ -global maygc object check_symbol_special (object obj, object caller) -{ +global maygc object check_symbol_special (object obj, object caller) { while (!symbolp(obj)) { pushSTACK(caller); pushSTACK(NIL); /* no PLACE */ @@ -1028,8 +1027,7 @@ error_no_svector(caller,obj); > caller: caller (a symbol) > obj: non-Svector */ -nonreturning_function(global, error_no_svector, (object caller, object obj)) -{ +nonreturning_function(global, error_no_svector, (object caller, object obj)) { pushSTACK(obj); /* TYPE-ERROR slot DATUM */ pushSTACK(S(simple_vector)); /* TYPE-ERROR slot EXPECTED-TYPE */ pushSTACK(S(simple_vector)); pushSTACK(obj); pushSTACK(caller); @@ -1434,7 +1432,8 @@ > obj: not a function name < result: a function name, either the same as obj or a replacement can trigger GC */ -global maygc object check_funname_replacement (condition_t errtype, object caller, object obj) { +global maygc object check_funname_replacement +(condition_t errtype, object caller, object obj) { pushSTACK(caller); /* save */ do { caller = STACK_0; ------------------------------ Message: 6 Date: Thu, 17 Jul 2008 15:46:36 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6394,1.6395 error.d,1.159,1.160 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17692/src Modified Files: ChangeLog error.d Log Message: (check_c_integer_replacement): use the appropriate [su]int(8|16|32|64)_p test instead of always using uint8_p Index: error.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/error.d,v retrieving revision 1.159 retrieving revision 1.160 diff -u -d -r1.159 -r1.160 --- error.d 17 Jul 2008 15:31:26 -0000 1.159 +++ error.d 17 Jul 2008 15:46:34 -0000 1.160 @@ -1553,12 +1553,22 @@ can trigger GC */ global maygc object check_c_integer_replacement (object obj, int tcode, bool signedp) { - do { + while (1) { pushSTACK(NIL); /* no PLACE */ check_value(type_error,prepare_c_integer_signal(obj,tcode,signedp)); obj = value1; - } while (!uint8_p(obj)); - return obj; + switch (signedp ? tcode : tcode + 4) { + case 0: if (sint8_p(obj)) return obj; else break; + case 1: if (sint16_p(obj)) return obj; else break; + case 2: if (sint32_p(obj)) return obj; else break; + case 3: if (sint64_p(obj)) return obj; else break; + case 4: if (uint8_p(obj)) return obj; else break; + case 5: if (uint16_p(obj)) return obj; else break; + case 6: if (uint32_p(obj)) return obj; else break; + case 7: if (uint64_p(obj)) return obj; else break; + default: NOTREACHED; + } + }; } /* error, if argument is not an integer in the range of the C type 'uint'. Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6394 retrieving revision 1.6395 diff -u -d -r1.6394 -r1.6395 --- ChangeLog 17 Jul 2008 15:12:22 -0000 1.6394 +++ ChangeLog 17 Jul 2008 15:46:34 -0000 1.6395 @@ -1,5 +1,10 @@ 2008-07-17 Sam Steingold <sd...@gn...> + * error.d (check_c_integer_replacement): use the appropriate + [su]int(8|16|32|64)_p test instead of always using uint8_p + +2008-07-17 Sam Steingold <sd...@gn...> + * error.d (caller_name): new function (check_symbol_replacement, check_variable_value_replacement): use it when the caller maybe either Subr or Fsubr ------------------------------ Message: 7 Date: Thu, 17 Jul 2008 15:59:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6395,1.6396 pathname.d,1.459,1.460 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv23317/src Modified Files: ChangeLog pathname.d Log Message: more robust HAVE_SHELL conditional handling Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.459 retrieving revision 1.460 diff -u -d -r1.459 -r1.460 --- pathname.d 17 Jul 2008 04:20:48 -0000 1.459 +++ pathname.d 17 Jul 2008 15:58:55 -0000 1.460 @@ -8040,7 +8040,7 @@ #endif #endif #ifdef HAVE_SHELL - #ifdef UNIX + #if defined(UNIX) /* the command-shell O(command_shell) remains unchanged, otherwise we get too many portability problems. */ { /* search the environment for variable SHELL: */ @@ -8052,8 +8052,7 @@ } /* else O(user_shell) remains on the default value "/bin/csh". */ } - #endif - #ifdef WIN32_NATIVE + #elif defined(WIN32_NATIVE) { /* search in the environment for variable COMSPEC: */ begin_system_call(); var const char* shell = getenv("COMSPEC"); @@ -8073,6 +8072,8 @@ O(command_shell) = ascii_to_string(shell); /* enter */ } } + #else + #error HAVE_SHELL is defined - extend init_pathnames #endif #endif } @@ -8377,7 +8378,7 @@ VALUES_IF(exitcode == 0); } -#else /* UNIX || ... */ +#elif defined(UNIX) LISPFUN(shell,seclass_default,0,1,norest,nokey,0,NIL) { var object command = popSTACK(); @@ -8394,9 +8395,11 @@ } } +#else +#error HAVE_SHELL is defined but EXT:SHELL definition is missing #endif -#endif +#endif /* HAVE_SHELL */ /* stringlist_to_asciizlist (stringlist, encoding) convert a stringlist to list of asciz strings Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6395 retrieving revision 1.6396 diff -u -d -r1.6395 -r1.6396 --- ChangeLog 17 Jul 2008 15:46:34 -0000 1.6395 +++ ChangeLog 17 Jul 2008 15:58:55 -0000 1.6396 @@ -1,5 +1,9 @@ 2008-07-17 Sam Steingold <sd...@gn...> + * pathname.d: more robust HAVE_SHELL conditional handling + +2008-07-17 Sam Steingold <sd...@gn...> + * error.d (check_c_integer_replacement): use the appropriate [su]int(8|16|32|64)_p test instead of always using uint8_p ------------------------------ Message: 8 Date: Thu, 17 Jul 2008 16:03:37 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src pathname.d,1.460,1.461 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv25629 Modified Files: pathname.d Log Message: asciiz --> asciz Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.460 retrieving revision 1.461 diff -u -d -r1.460 -r1.461 --- pathname.d 17 Jul 2008 15:58:55 -0000 1.460 +++ pathname.d 17 Jul 2008 16:03:35 -0000 1.461 @@ -7381,9 +7381,9 @@ { var char resolved[MAX_PATH]; var char * full_resolved = resolved; - with_sstring_0(whole_namestring(STACK_(3)),O(pathname_encoding),linkfile_asciiz, { + with_sstring_0(whole_namestring(STACK_(3)),O(pathname_encoding),linkfile_asciz, { rresolved = - resolve_shell_shortcut_more(linkfile_asciiz,resolved); + resolve_shell_shortcut_more(linkfile_asciz,resolved); if (rresolved != shell_shortcut_notresolved) { var char resolved_f[MAX_PATH]; if (FullName(resolved,resolved_f)) @@ -8401,20 +8401,20 @@ #endif /* HAVE_SHELL */ -/* stringlist_to_asciizlist (stringlist, encoding) +/* stringlist_to_ascizlist (stringlist, encoding) convert a stringlist to list of asciz strings and places it on the stack. - returns total length of all asciiz strings including zeros + returns total length of all asciz strings including zeros and listlength (if the pointer is not NULL) adds one element to STACK can trigger GC */ #if !defined(UNICODE) -#define stringlist_to_asciizlist(s,e,l) stringlist_to_asciizlist_(s,l) -local maygc int stringlist_to_asciizlist_ (object stringlist,uintL *listlength) +#define stringlist_to_ascizlist(s,e,l) stringlist_to_ascizlist_(s,l) +local maygc int stringlist_to_ascizlist_ (object stringlist,uintL *listlength) #else -local maygc int stringlist_to_asciizlist (object stringlist, - gcv_object_t *encoding_, - uintL *listlength) +local maygc int stringlist_to_ascizlist (object stringlist, + gcv_object_t *encoding_, + uintL *listlength) #endif { var int length = 0; @@ -8466,8 +8466,8 @@ O(misc_encoding))); filename_len = Sbvector_length(STACK_0); var int parameters_len = - stringlist_to_asciizlist(parameters_arg,&O(misc_encoding),NULL); - /* list of asciiz strings is in the STACK */ + stringlist_to_ascizlist(parameters_arg,&O(misc_encoding),NULL); + /* list of asciz strings is in the STACK */ var DYNAMIC_ARRAY(parameters,char,parameters_len*2); var int parameter_pos = 0; while (!nullp(STACK_0)) { @@ -8712,13 +8712,13 @@ ParaClose(hnull); end_system_call(); } - /* convert command and args to one asciiz string list */ + /* convert command and args to one asciz string list */ pushSTACK(allocate_cons()); Car(STACK_0) = STACK_(9+1); /* command_arg */ Cdr(STACK_0) = STACK_(5+1); /* arguments_arg */ var uintL arglist_count = 0; var uintL argbuf_len = 1 + - stringlist_to_asciizlist(STACK_0,&O(misc_encoding),&arglist_count); + stringlist_to_ascizlist(STACK_0,&O(misc_encoding),&arglist_count); /* STACK: cmdlist, ascizcmdlist */ STACK_1 = STACK_0; skipSTACK(1); ------------------------------ Message: 9 Date: Thu, 17 Jul 2008 16:19:34 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc impbyte.xml, 1.115, 1.116 impent.xml, 1.319, 1.320 impext.xml, 1.532, 1.533 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv645/doc Modified Files: impbyte.xml impent.xml impext.xml Log Message: (with-collect): new entity Index: impbyte.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbyte.xml,v retrieving revision 1.115 retrieving revision 1.116 diff -u -d -r1.115 -r1.116 --- impbyte.xml 7 Jul 2008 17:00:51 -0000 1.115 +++ impbyte.xml 17 Jul 2008 16:19:32 -0000 1.116 @@ -220,7 +220,8 @@ <listitem><simpara>Auxiliary functions (&win32; version only). </simpara></listitem></varlistentry> <varlistentry><term><filename role="clisp-cvs">src/foreign.d</filename></term> - <listitem><simpara>&ffi-pac; support.</simpara></listitem></varlistentry> + <listitem><simpara>&ffi-pac; implementation. +</simpara></listitem></varlistentry> <varlistentry><term><filename role="clisp-cvs">src/lisparit.d</filename></term> <listitem><simpara>Functions dealing with numbers (arithmetic), see <xref linkend="src-arith"/>.</simpara></listitem></varlistentry> @@ -492,8 +493,8 @@ </simpara></listitem></varlistentry> <varlistentry id="macros3-lisp"> <term><filename role="clisp-cvs">src/macros3.lisp</filename> (optional)</term> - <listitem><simpara>the macros &letf;, &letf-star; and ðe; -</simpara></listitem></varlistentry> + <listitem><simpara>macros &letf;, &letf-star;, ðe;, &with-collect;, + function &compiled-file-p;.</simpara></listitem></varlistentry> <varlistentry id="config-lisp"> <term><filename role="clisp-cvs">src/config.lisp</filename></term> <listitem><para>(user written) site-dependent configuration, @@ -705,7 +706,7 @@ see <xref linkend="gstream"/></simpara></listitem></varlistentry> <varlistentry> <term><filename role="clisp-cvs">src/foreign1.lisp</filename></term> - <listitem><simpara>&ffi-pac; interface + <listitem><simpara>&ffi-pac; implementation. </simpara></listitem></varlistentry> <varlistentry><term><filename role="clisp-cvs">src/screen.lisp</filename></term> <listitem><simpara>the screen access package, see <xref linkend="screen"/> Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.532 retrieving revision 1.533 diff -u -d -r1.532 -r1.533 --- impext.xml 8 Jul 2008 20:44:30 -0000 1.532 +++ impext.xml 17 Jul 2008 16:19:32 -0000 1.533 @@ -1633,8 +1633,7 @@ memoizes the &pri-val; of &form-r; from its first evaluation. </para></section> -<section id="with-collect"> - <title>Macro <function>EXT:WITH-COLLECT</function></title> +<section id="with-collect"><title>Macro &with-collect;</title> <para>Similar to the &loop;'s <ulink role="clhs" url="sec_6-1-3"><literal>COLLECT</literal></ulink> construct, except that it is looks more "Lispy" and can appear @@ -1645,9 +1644,7 @@ (dotimes (i 10) (if (oddp i) (c0 i) (c1 i)))) <computeroutput>(1 3 5 7 9)</computeroutput> ; <computeroutput>(0 2 4 6 8)</computeroutput> -</programlisting> returns two &list-t;s <returnvalue>(1 3 5 7 9)</returnvalue> -and <returnvalue>(0 2 4 6 8)</returnvalue> as &mul-val;. -</para></section> +</programlisting> returns two &list-t;s as &mul-val;.</para></section> <section id="compile-time-value"> <title>Macro <function>EXT:COMPILE-TIME-VALUE</function></title> Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.319 retrieving revision 1.320 diff -u -d -r1.319 -r1.320 --- impent.xml 11 Jul 2008 21:56:49 -0000 1.319 +++ impent.xml 17 Jul 2008 16:19:32 -0000 1.320 @@ -274,6 +274,7 @@ <!ENTITY lalist '<link linkend="lalist">lambda list</link>'> <!ENTITY letf '<link linkend="letf"><function>EXT:LETF</function></link>'> <!ENTITY letf-star '<link linkend="letf"><function>EXT:LETF*</function></link>'> +<!ENTITY with-collect '<link linkend="with-collect"><function>EXT:WITH-COLLECT</function></link>'> <!ENTITY lfd '<link linkend="lfd"><function>EXT:LONG-FLOAT-DIGITS</function></link>'> <!ENTITY lfd-l '<code>(<link linkend="lfd"><function>EXT:LONG-FLOAT-DIGITS</function></link>)</code>'> <!ENTITY line-term '<link linkend="newline">line terminator</link>'> ------------------------------ ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 27, Issue 30 ***************************************** |