From: <cli...@li...> - 2005-10-01 04:00:18
|
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 makemake.in,1.606,1.607 ChangeLog,1.4939,1.4940 (Sam Steingold) 2. clisp/tests ffi.tst,1.39,1.40 ChangeLog,1.406,1.407 (Sam Steingold) 3. clisp/doc impbody.xml,1.405,1.406 clisp.xml.in,1.49,1.50 (Sam Steingold) 4. clisp/src TODO,1.116,1.117 (Sam Steingold) 5. clisp/doc impbody.xml,1.404,1.405 (Sam Steingold) 6. clisp/src spvw.d,1.367,1.368 init.lisp,1.241,1.242 constsym.d,1.309,1.310 NEWS,1.272,1.273 ChangeLog,1.4942,1.4943 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src makemake.in,1.606,1.607 ChangeLog,1.4939,1.4940 Date: Fri, 30 Sep 2005 15:42:09 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17453/src Modified Files: makemake.in ChangeLog Log Message: (BASE_MODULES): fixed last patch: add "readline" only when libreadline is actually available Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.606 retrieving revision 1.607 diff -u -d -r1.606 -r1.607 --- makemake.in 29 Sep 2005 19:13:37 -0000 1.606 +++ makemake.in 30 Sep 2005 15:42:05 -0000 1.607 @@ -1536,16 +1536,17 @@ # --without-readline was supplied XCFLAGS=$XCFLAGS' -DNO_READLINE' else - if [ "${with_dynamic_ffi}" != no ]; then - BASE_MODULES=${BASE_MODULES}" readline" - fi FILES='libnoreadline.a '$FILES - if [ "${with_readline}" != ifpossible ]; then - # --with-readline was supplied ==> barf when readline is missing - if grep "#undef HAVE_READLINE" unixconf.h >/dev/null 2>&1; then + if grep "#undef HAVE_READLINE" unixconf.h >/dev/null 2>&1; then + if [ "${with_readline}" != ifpossible ]; then + # --with-readline was supplied ==> barf when readline is missing echol "makemake: configure failed to detect readline" >&2 exit 1 fi + else # readline is present + if [ "${with_dynamic_ffi}" != no ]; then + BASE_MODULES=${BASE_MODULES}" readline" + fi fi fi fi Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4939 retrieving revision 1.4940 diff -u -d -r1.4939 -r1.4940 --- ChangeLog 29 Sep 2005 19:13:37 -0000 1.4939 +++ ChangeLog 30 Sep 2005 15:42:05 -0000 1.4940 @@ -1,3 +1,8 @@ +2005-09-30 Sam Steingold <sd...@gn...> + + * makemake.in (BASE_MODULES): fixed last patch: + add "readline" only when libreadline is actually available + 2005-09-29 Sam Steingold <sd...@gn...> * Makefile.devel (MODULES): added readline --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests ffi.tst,1.39,1.40 ChangeLog,1.406,1.407 Date: Fri, 30 Sep 2005 15:43:24 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17710/tests Modified Files: ffi.tst ChangeLog Log Message: (libc): removed variable, (:library :default) is always OK Index: ffi.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ffi.tst,v retrieving revision 1.39 retrieving revision 1.40 diff -u -d -r1.39 -r1.40 --- ffi.tst 23 Jun 2005 07:36:15 -0000 1.39 +++ ffi.tst 30 Sep 2005 15:43:22 -0000 1.40 @@ -1036,16 +1036,13 @@ #+win32 T #-BeOS ; FFI::FOREIGN-LIBRARY-FUNCTION not defined on BeOS -(let ((libc #+(and unix (not cygwin)) :DEFAULT - #+cygwin "/bin/cygwin1.dll" ; RTLD_DEFAULT not implemented - #+win32 :DEFAULT)) - (list - (def-call-out c-malloc (:arguments (l long)) - (:name "malloc") (:language :stdc) (:return-type c-pointer) - (:library libc)) ; use allocate-shallow or allocate-deep instead! - (def-call-out c-free (:arguments (p c-pointer)) - (:name "free") (:language :stdc) (:return-type nil) - (:library libc)))) ; use foreign-free instead! +(list + (def-call-out c-malloc (:arguments (l long)) + (:name "malloc") (:language :stdc) (:return-type c-pointer) + (:library :default)) ; use allocate-shallow or allocate-deep instead! + (def-call-out c-free (:arguments (p c-pointer)) + (:name "free") (:language :stdc) (:return-type nil) + (:library :default))) ; use foreign-free instead! #-BeOS (c-malloc c-free) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.406 retrieving revision 1.407 diff -u -d -r1.406 -r1.407 --- ChangeLog 23 Sep 2005 15:48:30 -0000 1.406 +++ ChangeLog 30 Sep 2005 15:43:22 -0000 1.407 @@ -1,3 +1,7 @@ +2005-09-30 Sam Steingold <sd...@gn...> + + * ffi.tst (libc): removed variable, (:library :default) is always OK + 2005-09-23 Sam Steingold <sd...@gn...> * hashtable.tst: added read/write consistency tests --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impbody.xml,1.405,1.406 clisp.xml.in,1.49,1.50 Date: Fri, 30 Sep 2005 19:18:12 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10571/doc Modified Files: impbody.xml clisp.xml.in Log Message: clisp -v -v sets *LOAD-ECHO* to T Index: clisp.xml.in =================================================================== RCS file: /cvsroot/clisp/clisp/doc/clisp.xml.in,v retrieving revision 1.49 retrieving revision 1.50 diff -u -d -r1.49 -r1.50 --- clisp.xml.in 29 Aug 2005 15:14:58 -0000 1.49 +++ clisp.xml.in 30 Sep 2005 19:18:09 -0000 1.50 @@ -285,18 +285,19 @@ <term><option>-v</option></term> <term><option>--verbose</option></term> <listitem><simpara>Change verbosity level: by default, &clisp; displays a - banner at startup and a good-bye message when quitting, and initializes - &load-verbose-var; and &compile-verbose-var; to &t;, and - &load-print-var; and &compile-print-var; to &nil;, as per &ansi-cl;. - The first <option>-q</option> removes the banner and the good-bye message, - the second sets variables &load-verbose-var; and &compile-verbose-var; to - &nil;. <option>-v</option> sets variables &err-pr-bt;, &load-print-var; and - &compile-print-var; to &t;. These settings affect the output produced by - <option><link linkend="opt-init">-i</link></option> and - &opt-c; options. - Note that these settings persist into the &repl;. - Repeated <option>-q</option> and <option>-v</option> cancel each other, e.g., - <option>-q -q -v -v -v</option> is equivalent to <option>-v</option>. + banner at startup and a good-bye message when quitting, and initializes + &load-verbose-var; and &compile-verbose-var; to &t;, and + &load-print-var; and &compile-print-var; to &nil;, as per &ansi-cl;. + The first <option>-q</option> removes the banner and the good-bye + message, the second sets variables &load-verbose-var; and + &compile-verbose-var; to &nil;. + The first <option>-v</option> sets variables &err-pr-bt;, + &load-print-var; and &compile-print-var; to &t;, the second sets + &load-echo; to &t;. + These settings affect the output produced by &opt-i; and &opt-c; options. + Note that these settings persist into the &repl;. + Repeated <option>-q</option> and <option>-v</option> cancel each other, + e.g., <option>-q -q -v -v -v</option> is equivalent to <option>-v</option>. </simpara></listitem></varlistentry> <varlistentry id="opt-on-error"> Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.405 retrieving revision 1.406 diff -u -d -r1.405 -r1.406 --- impbody.xml 30 Sep 2005 18:41:16 -0000 1.405 +++ impbody.xml 30 Sep 2005 19:18:09 -0000 1.406 @@ -4565,9 +4565,10 @@ <varlistentry><term>&echo-k;</term> <listitem><simpara>causes the input from the file to be echoed to &standard-output-var; (normally to the screen). Should there be an - error in the file, you can see at one glance where it is. The - default is <firstterm>&load-echo;</firstterm>, which is initially - &nil;.</simpara></listitem></varlistentry> + error in the file, you can see at one glance where it is. + The default is <firstterm>&load-echo;</firstterm>, which is + initially &nil;, but can be changed by the &opt-v; option. + </simpara></listitem></varlistentry> <varlistentry><term>&compiling-k;</term> <listitem><simpara>causes each form read to be compiled on the fly. The compiled code is executed at once and - in contrast to --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.116,1.117 Date: Fri, 30 Sep 2005 19:31:06 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14547/src Modified Files: TODO Log Message: some updates Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.116 retrieving revision 1.117 diff -u -d -r1.116 -r1.117 --- TODO 1 Sep 2005 15:23:42 -0000 1.116 +++ TODO 30 Sep 2005 19:31:03 -0000 1.117 @@ -195,6 +195,10 @@ gettext.o(.text+0x7f):i18n/gettext.c:2296: undefined reference to `_I_to_L' gettext.o(.text+0xcb):i18n/gettext.c:2301: undefined reference to `_STACK' gettext.o(.text+0xd2):i18n/gettext.c:2301: undefined reference to `_symbol_tab_data' +These errors mean that the lisp run time must be compiled into lisp.so, +not lisp.a, and dynmod/lib-i18n.dll should be linked against it. +So, this all goes in the same direction as embeddability +and elimination of lisp.run in favor of a driver launching the right dll. Also, --with-dynamic-modules should _NOT_ make BASE_MODULES dynamic. @@ -260,6 +264,7 @@ readlink("/proc/self", "1108", 4094) = 5 lstat("/proc/1108/fd/[0303]:39982", 0x8138260) = -1 ENOENT (No such file or directory) + Problem is the call to assure_dir_exists(TRUE,FALSE); where in fact not all links are resolved in the directory! @@ -348,7 +353,7 @@ <http://article.gmane.org/gmane.lisp.clisp.devel:13209> <http://article.gmane.org/gmane.lisp.clisp.devel:13212> 4. Ability to "tenure" a specific object (with all its references!) - or the whole current heap. + or the whole current heap (also untenure the object). local function (LABEL/FLET) calls waste heap (COPY-CLOSURE). @@ -404,6 +409,8 @@ Try to increase the string size limit, to get rid of "*** - string too long: desired length 6553600 exceeds the supported maximum length" errors +instead, the string size limit just went down! +http://sourceforge.net/tracker/index.php?func=detail&aid=1308440&group_id=1355&atid=101355 Add highlight/underline/etc. capability to the output side of *terminal-io*. --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impbody.xml,1.404,1.405 Date: Fri, 30 Sep 2005 18:41:18 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1109/doc Modified Files: impbody.xml Log Message: changed the alignment in some tables Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.404 retrieving revision 1.405 diff -u -d -r1.404 -r1.405 --- impbody.xml 29 Sep 2005 22:29:36 -0000 1.404 +++ impbody.xml 30 Sep 2005 18:41:16 -0000 1.405 @@ -2938,7 +2938,7 @@ <table id="min-filename-syntax-table" frame="all"> <title>The minimum filename syntax that may be used portably</title> - <tgroup cols="2" colsep="1" rowsep="1" align="center"> + <tgroup cols="2" colsep="1" rowsep="1" align="left"> <thead><row><entry>pathname</entry><entry>meaning</entry></row></thead><tbody> <row><entry><filename>"xxx"</filename></entry> <entry>for a file with name <replaceable>xxx</replaceable></entry></row> @@ -4302,7 +4302,7 @@ be meaningfully read in: <table id="unreadable-objects-table" frame="all"> <title>Unreadable objects</title> -<tgroup cols="2" colsep="1" rowsep="1" align="center"> +<tgroup cols="2" colsep="1" rowsep="1" align="left"> <thead><row><entry>format</entry><entry>meaning</entry></row></thead><tbody> <row><entry><literal>#<&type-r; ...></literal></entry> <entry>all &structure-object-t;s lacking a keyword constructor</entry></row> @@ -4462,8 +4462,9 @@ <para>For each input file (default file type: &lisp-file;) the following files are generated: -<informaltable id="compile-file-new-files-table" frame="all"> +<informaltable id="compile-file-new-fi les-table" frame="all"> <tgroup cols="4" colsep="1" rowsep="1" align="center"> + <colspec colnum="4" align="left"/> <thead><row><entry>File</entry><entry>When</entry> <entry>Default file type</entry><entry>Contents</entry></row></thead><tbody> <row><entry>output file</entry> @@ -4480,7 +4481,8 @@ <row><entry>&c-lang; output file</entry> <entry>only if &outfile-k; is not &nil;</entry> <entry><filename>#P".c"</filename></entry> - <entry>&ffi-pac;; this file is deleted if it is empty</entry></row> + <entry>&ffi-pac;; this file is created only if the source contains + &ffi-pac; forms</entry></row> </tbody></tgroup></informaltable></para> <warning id="c-file-overwrite"><para>If you have two files in the same --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw.d,1.367,1.368 init.lisp,1.241,1.242 constsym.d,1.309,1.310 NEWS,1.272,1.273 ChangeLog,1.4942,1.4943 Date: Fri, 30 Sep 2005 19:18:11 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10571/src Modified Files: spvw.d init.lisp constsym.d NEWS ChangeLog Log Message: clisp -v -v sets *LOAD-ECHO* to T Index: spvw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw.d,v retrieving revision 1.367 retrieving revision 1.368 diff -u -d -r1.367 -r1.368 --- spvw.d 18 Aug 2005 16:59:37 -0000 1.367 +++ spvw.d 30 Sep 2005 19:18:09 -0000 1.368 @@ -1341,6 +1341,7 @@ define_variable(S(load_compiling),NIL); /* *LOAD-COMPILING* := NIL */ define_variable(S(load_verbose),T); /* *LOAD-VERBOSE* := T */ define_variable(S(load_print),NIL); /* *LOAD-PRINT* := NIL */ + define_variable(S(load_echo),NIL); /* *LOAD-ECHO* := NIL */ define_variable(S(compile_print),NIL); /* *COMPILE-PRINT* := NIL */ define_variable(S(compile_verbose),T); /* *COMPILE-VERBOSE* := T */ define_variable(S(report_error_print_backtrace),NIL); /* *REPORT-ERROR-PRINT-BACKTRACE* := NIL */ @@ -3023,6 +3024,8 @@ *report-error-print-backtrace* t) */ Symbol_value(S(report_error_print_backtrace)) = Symbol_value(S(load_print)) = Symbol_value(S(compile_print)) = T; + if (p->argv_verbose > 3) /* (setq *load-echo* t) */ + Symbol_value(S(load_echo)) = T; if (p->argv_developer) { /* developer mode */ /* unlock all packages */ var object packlist = O(all_packages); Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.272 retrieving revision 1.273 diff -u -d -r1.272 -r1.273 --- NEWS 29 Sep 2005 19:13:37 -0000 1.272 +++ NEWS 30 Sep 2005 19:18:09 -0000 1.273 @@ -14,10 +14,13 @@ It is a BASE module and is available when both FFI and readline are present. * New SETF-able functions POSIX:GETUID, POSIX:GETGID, POSIX:GETEUID, - POSIX:GETEGID. + POSIX:GETEGID. See <http://clisp.cons.org/syscalls.html> for details. * New NEW-CLX demo: foch.lisp draws fractal snowflakes. +* The command line option -v now affects *LOAD-ECHO* also. + See <http://clisp.cons.org/clisp.html#opt-v> for details. + * Use MAP instead of ELT for sequence access in NEW-CLX. * Fixed (FUNCTION-LAMBDA-EXPRESSION #'(SETF FOO)) on compiled code. Index: constsym.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/constsym.d,v retrieving revision 1.309 retrieving revision 1.310 diff -u -d -r1.309 -r1.310 --- constsym.d 28 Aug 2005 16:21:04 -0000 1.309 +++ constsym.d 30 Sep 2005 19:18:09 -0000 1.310 @@ -1985,6 +1985,7 @@ LISPSYM(load_compiling,"*LOAD-COMPILING*",custom) /* variable for SPVW */ LISPSYM(load_verbose,"*LOAD-VERBOSE*",lisp) /* variable for SPVW */ LISPSYM(load_print,"*LOAD-PRINT*",lisp) /* variable for SPVW */ +LISPSYM(load_echo,"*LOAD-ECHO*",custom) /* variable for SPVW */ LISPSYM(compile_print,"*COMPILE-PRINT*",lisp) /* variable for SPVW */ LISPSYM(compile_verbose,"*COMPILE-VERBOSE*",lisp) /* variable for SPVW */ LISPSYM(report_error_print_backtrace,"*REPORT-ERROR-PRINT-BACKTRACE*",custom) /* variable for SPVW */ Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.241 retrieving revision 1.242 diff -u -d -r1.241 -r1.242 --- init.lisp 28 Aug 2005 16:21:04 -0000 1.241 +++ init.lisp 30 Sep 2005 19:18:09 -0000 1.242 @@ -1470,7 +1470,7 @@ (proclaim '(special *load-print*)) (setq *load-print* nil) ; defined in spvw.d (proclaim '(special *load-echo*)) -(setq *load-echo* nil) +(setq *load-echo* nil) ; defined in spvw.d (proclaim '(special *load-compiling*)) (setq *load-compiling* nil) ; defined in spvw.d (proclaim '(special *load-pathname*)) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4942 retrieving revision 1.4943 diff -u -d -r1.4942 -r1.4943 --- ChangeLog 30 Sep 2005 18:49:06 -0000 1.4942 +++ ChangeLog 30 Sep 2005 19:18:09 -0000 1.4943 @@ -1,5 +1,12 @@ 2005-09-30 Sam Steingold <sd...@gn...> + clisp -v -v sets *LOAD-ECHO* to T + * constsym.d (load_echo): added + * spvw.d (init_symbol_values): init *load-echo* to NIL + (main_actions): when argv_verbose > 3, set *load-echo* to T + +2005-09-30 Sam Steingold <sd...@gn...> + * foreign.d (open_library): quite a few platforms do not define RTLD_DEFAULT, but accept NULL as a library handle to mean the same (e.g., WIN32, FreeBSD, MacOSX), so we always accept :DEFAULT --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |