From: <cli...@li...> - 2008-09-02 19:08:40
|
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 ChangeLog,1.6489,1.6490 makemake.in,1.769,1.770 (Sam Steingold) 2. clisp/src flo_konv.d,1.16,1.17 (Sam Steingold) 3. clisp/src ChangeLog,1.6490,1.6491 error.d,1.160,1.161 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Tue, 02 Sep 2008 18:04:18 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6489,1.6490 makemake.in,1.769,1.770 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16556/src Modified Files: ChangeLog makemake.in Log Message: (check-script): use $(RUN) instead of lisp.run Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.769 retrieving revision 1.770 diff -u -d -r1.769 -r1.770 --- makemake.in 20 Aug 2008 14:00:57 -0000 1.769 +++ makemake.in 2 Sep 2008 18:04:15 -0000 1.770 @@ -3102,7 +3102,7 @@ TRCRLF="tr '\n' '_' | tr -d '\r'" echotab "test \"\`echo '(+ foo bar)' | \$(RUN) -q -M lispinit.mem -x '(setq foo 11 bar 99)' -repl | ${TRCRLF}\`\" = '99_[1]> _110_' || exit 1" echotab "echo '(progn (setf (stream-element-type *standard-input*) (quote (unsigned-byte 8))) (exit 42))' | \$(RUN) -q -M lispinit.mem -; test \$\$? = 42 || exit 1" - echotab "test \`echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence (convert-string-to-bytes \"42\" charset:ascii) *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' | ./lisp.run -B . -N locale -E UTF-8 -Epathname 1:1 -Emisc 1:1 -norc -q -M lispinit.mem - | cat\` = 42 || exit 1" + echotab "test \`echo '(setf (stream-element-type *standard-output*) (quote (unsigned-byte 8))) (write-sequence (convert-string-to-bytes \"42\" charset:ascii) *standard-output*) (setf (stream-element-type *standard-output*) (quote character)) (terpri)' | \$(RUN) -q -M lispinit.mem - | cat\` = 42 || exit 1" echotab "\$(RM) script.lisp; echo '(+ 11 99)' > script.lisp" echotab "test \`\$(RUN) -q -M lispinit.mem < script.lisp\` = 110 || exit 1" echotab "\$(RM) script.lisp; echo '(princ (+ 11 99))' > script.lisp" Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6489 retrieving revision 1.6490 diff -u -d -r1.6489 -r1.6490 --- ChangeLog 25 Aug 2008 10:47:27 -0000 1.6489 +++ ChangeLog 2 Sep 2008 18:04:13 -0000 1.6490 @@ -1,3 +1,7 @@ +2008-09-02 Sam Steingold <sd...@gn...> + + * makemake.in (check-script): use $(RUN) instead of lisp.run + 2008-08-25 Bruno Haible <br...@cl...> * configure (SIGSEGV): Set to libsigsegv-2.6. ------------------------------ Message: 2 Date: Tue, 02 Sep 2008 18:12:45 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src flo_konv.d,1.16,1.17 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv19557/src Modified Files: flo_konv.d Log Message: fix a typo in last patch Index: flo_konv.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/flo_konv.d,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- flo_konv.d 17 Dec 2007 00:59:20 -0000 1.16 +++ flo_konv.d 2 Sep 2008 18:12:43 -0000 1.17 @@ -16,7 +16,7 @@ /* So also 31-sign_bit_o = 31-SF_exp_len-SF_exp_shift = 31-FF_exp_len-SF_mant_len-SF_mant_shift = FF_mant_len-SF_mant_len-SF_mant_shift */ - returnAllocate _ffloat(((uint32)(as_oint(x) >> SF_mant_shift) + return allocate_ffloat(((uint32)(as_oint(x) >> SF_mant_shift) << (FF_mant_len-SF_mant_len))); #else /* unpack x: */ ------------------------------ Message: 3 Date: Tue, 02 Sep 2008 18:24:14 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6490,1.6491 error.d,1.160,1.161 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv23909/src Modified Files: ChangeLog error.d Log Message: (%DEFCLCS): use symbol_tab instead of symbol_tab_data to support TYPECODES on 32 bit platforms Reported by Vladimir Tzankov <vtz...@gm...> Index: error.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/error.d,v retrieving revision 1.160 retrieving revision 1.161 diff -u -d -r1.160 -r1.161 --- error.d 17 Jul 2008 15:46:34 -0000 1.160 +++ error.d 2 Sep 2008 18:24:12 -0000 1.161 @@ -503,7 +503,7 @@ { O(error_types) = check_vector(popSTACK()); var int i; - var Symbol conditions = &(symbol_tab_data.S_simple_condition); + var Symbol conditions = &(symbol_tab.S_simple_condition); var gcv_object_t* et_data = TheSvector(O(error_types))->data; for (i=0; i < number_of_conditions_defined_in_c; i++) ASSERT(eq(Symbol_name(Cdr(et_data[i])),conditions[i].pname)); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6490 retrieving revision 1.6491 diff -u -d -r1.6490 -r1.6491 --- ChangeLog 2 Sep 2008 18:04:13 -0000 1.6490 +++ ChangeLog 2 Sep 2008 18:24:10 -0000 1.6491 @@ -1,5 +1,11 @@ 2008-09-02 Sam Steingold <sd...@gn...> + * error.d (%DEFCLCS): use symbol_tab instead of symbol_tab_data + to support TYPECODES on 32 bit platforms + Reported by Vladimir Tzankov <vtz...@gm...> + +2008-09-02 Sam Steingold <sd...@gn...> + * makemake.in (check-script): use $(RUN) instead of lisp.run 2008-08-25 Bruno Haible <br...@cl...> ------------------------------ ------------------------------------------------------------------------- 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 29, Issue 2 **************************************** |