Menu
▾
▴
clisp-cvs Digest, Vol 54, Issue 14
|
From: <cli...@li...> - 2010-12-14 19:41:23
|
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.7561,1.7562 (Sam Steingold) 2. clisp/doc impent.xml,1.383,1.384 impext.xml,1.655,1.656 (Sam Steingold) 3. clisp/tests format.tst, 1.25, 1.26 iofkts.tst, 1.53, 1.54 loop.tst, 1.28, 1.29 (Sam Steingold) 4. clisp/src ChangeLog, 1.7562, 1.7563 NEWS, 1.549, 1.550 loop.lisp, 1.44, 1.45 (Sam Steingold) 5. clisp/tests ChangeLog,1.669,1.670 loop.tst,1.29,1.30 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 18 Oct 2010 13:59:12 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7561,1.7562 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv31425 Modified Files: ChangeLog Log Message: formatting Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7561 retrieving revision 1.7562 diff -u -d -r1.7561 -r1.7562 --- ChangeLog 18 Oct 2010 02:52:15 -0000 1.7561 +++ ChangeLog 18 Oct 2010 13:59:09 -0000 1.7562 @@ -1,25 +1,24 @@ 2010-10-18 Arseny Slobodyuk <am...@us...> - * pathname.d (FIND_DATA_FWD) [WIN32_NATIVE]: fixed condition. + * pathname.d (FIND_DATA_FWD) [WIN32_NATIVE]: fixed condition 2010-10-18 Julian Squires <ju...@ci...> Arseny Slobodyuk <am...@us...> - Fix for bug#3087668 - when probe-pathname used for - root directories on WIN32. - * pathname.d (PROBE-PATHNAME) [!UNIX]: do not remove trailing slash. + fix bug#3087668: probe-pathname on root directories on WIN32 + * pathname.d (PROBE-PATHNAME) [!UNIX]: do not remove trailing slash (classify_namestring) [WIN32_NATIVE]: use GetFileAttributesEx instead - of FindFirstFile to retrieve size and modify date/time, because - GetFileAttributesEx unlike FFF can handle root directories. + of FindFirstFile to retrieve size and modification date/time, + because GetFileAttributesEx unlike FFF can handle root directories 2010-10-17 Vladimir Tzankov <vtz...@gm...> fix bug#3088751: SIGSEGV on large (unsigned-byte 8) arrays - * spvw_typealloc.d (allocate_bit_vector): use uintM. uintL overflows on - 64 bit builds for large vectors + * spvw_typealloc.d (allocate_bit_vector): use uintM; + uintL overflows on 64 bit builds for large vectors * spvw_objsize.d (size_sbvector): use uintM instead of uintL - * spvw_garcol.d (fill_varobject_heap_holes) [MULTITHREAD]: holes may be - larger than 2^32 bytes (uintL). use uintM. + * spvw_garcol.d (fill_varobject_heap_holes) [MULTITHREAD]: + holes may be larger than 2^32 bytes (uintL); use uintM 2010-10-15 Sam Steingold <sd...@gn...> ------------------------------ Message: 2 Date: Mon, 18 Oct 2010 21:31:24 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc impent.xml,1.383,1.384 impext.xml,1.655,1.656 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/doc In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv30530/doc Modified Files: impent.xml impext.xml Log Message: with-lock --> with-mutex-lock (reported by donc) Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.655 retrieving revision 1.656 diff -u -d -r1.655 -r1.656 --- impext.xml 14 Sep 2010 18:28:41 -0000 1.655 +++ impext.xml 18 Oct 2010 21:31:22 -0000 1.656 @@ -4949,7 +4949,7 @@ &mutex-r;)</code></term> <listitem><simpara>Return a indicator whether &mutex-r; is recursive. </simpara></listitem></varlistentry> -<varlistentry id="with-lock"><term><code>(&with-lock; (&mutex-r;) +<varlistentry id="with-mutex-lock"><term><code>(&with-mutex-lock; (&mutex-r;) &body-amp; &body-r;)</code></term> <listitem><simpara>Execute &body-r; with &mutex-r; locked. Upon exit &mutex-r; is released. Return whatever &body-r; returns. Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.383 retrieving revision 1.384 diff -u -d -r1.383 -r1.384 --- impent.xml 14 Sep 2010 18:28:41 -0000 1.383 +++ impent.xml 18 Oct 2010 21:31:22 -0000 1.384 @@ -535,7 +535,7 @@ <!ENTITY mutex-unlock '<link linkend="mutex-unlock"><function>MT:MUTEX-UNLOCK</function></link>'> <!ENTITY mutex-owner '<link linkend="mutex-owner"><function>MT:MUTEX-OWNER</function></link>'> <!ENTITY mutex-recursive-p '<link linkend="mutex-recursive-p"><function>MT:MUTEX-RECURSIVE-P</function></link>'> -<!ENTITY with-lock '<link linkend="with-lock"><function>MT:WITH-LOCK</function></link>'> +<!ENTITY with-mutex-lock '<link linkend="with-mutex-lock"><function>MT:WITH-MUTEX-LOCK</function></link>'> <!ENTITY exemption '<link linkend="exemption"><type>MT:EXEMPTION</type></link>'> <!ENTITY exemptionp '<link linkend="exemptionp"><function>MT:EXEMPTIONP</function></link>'> <!ENTITY make-exemption '<link linkend="make-exemption"><function>MT:MAKE-EXEMPTION</function></link>'> ------------------------------ Message: 3 Date: Mon, 18 Oct 2010 21:41:12 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests format.tst, 1.25, 1.26 iofkts.tst, 1.53, 1.54 loop.tst, 1.28, 1.29 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/tests In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv885/tests Modified Files: format.tst iofkts.tst loop.tst Log Message: write-file-functions --> before-save-hook Index: format.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/format.tst,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- format.tst 13 May 2009 17:30:37 -0000 1.25 +++ format.tst 18 Oct 2010 21:41:10 -0000 1.26 @@ -1274,19 +1274,19 @@ (progn - (symbol-cleanup 'format-blocksatz) + (symbol-cleanup 'format-blocksatz) (symbol-cleanup 'type-clash-error) - (symbol-cleanup 'foo) + (symbol-cleanup 'foo) (symbol-cleanup 'x) - (symbol-cleanup 'y) - (symbol-cleanup 'n) - (symbol-cleanup 'liste) - (symbol-cleanup 'donestr) - (symbol-cleanup 'tellstr) + (symbol-cleanup 'y) + (symbol-cleanup 'n) + (symbol-cleanup 'liste) + (symbol-cleanup 'donestr) + (symbol-cleanup 'tellstr) (symbol-cleanup 'gray-string-output-stream)) T ;; local variables: -;; eval: (make-local-variable 'write-file-functions) -;; eval: (remove-hook 'write-file-functions 'delete-trailing-whitespace t) +;; eval: (make-local-variable 'before-save-hook) +;; eval: (remove-hook 'before-save-hook 'delete-trailing-whitespace t) ;; end: Index: loop.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/loop.tst,v retrieving revision 1.28 retrieving revision 1.29 diff -u -d -r1.28 -r1.29 --- loop.tst 30 Sep 2007 05:32:43 -0000 1.28 +++ loop.tst 18 Oct 2010 21:41:10 -0000 1.29 @@ -911,6 +911,6 @@ ;; local variables: -;; eval: (make-local-variable 'write-file-functions) -;; eval: (remove-hook 'write-file-functions 'delete-trailing-whitespace t) +;; eval: (make-local-variable 'before-save-hook) +;; eval: (remove-hook 'before-save-hook 'delete-trailing-whitespace t) ;; end: Index: iofkts.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/iofkts.tst,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- iofkts.tst 26 Nov 2008 20:38:58 -0000 1.53 +++ iofkts.tst 18 Oct 2010 21:41:10 -0000 1.54 @@ -919,6 +919,6 @@ T ;; local variables: -;; eval: (make-local-variable 'write-file-functions) -;; eval: (remove-hook 'write-file-functions 'delete-trailing-whitespace t) +;; eval: (make-local-variable 'before-save-hook) +;; eval: (remove-hook 'before-save-hook 'delete-trailing-whitespace t) ;; end: ------------------------------ Message: 4 Date: Mon, 18 Oct 2010 22:19:26 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog, 1.7562, 1.7563 NEWS, 1.549, 1.550 loop.lisp, 1.44, 1.45 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv12626/src Modified Files: ChangeLog NEWS loop.lisp Log Message: fix bug#3089988: (loop for x do (print x)) should barf * src/loop.lisp (expand-loop): fail when the FOR clause lacks subclauses Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.549 retrieving revision 1.550 diff -u -d -r1.549 -r1.550 --- NEWS 29 Sep 2010 13:24:14 -0000 1.549 +++ NEWS 18 Oct 2010 22:19:24 -0000 1.550 @@ -17,7 +17,7 @@ for details. * New user variable CUSTOM:*MODULE-PROVIDER-FUNCTIONS* allows user to - influence REQUIRE behavior. + influence behavior of REQUIRE. See <http://clisp.cons.org/impnotes/require.html#module-providers> for details. @@ -37,6 +37,9 @@ + Fix SCREEN behavior when the window is resized. + Pass the top-level configure arguments --build= & --host= to the module configures (bug#3076160). + + Fix PROBE-PATHNAME behavior on win32 and on open file streams (bug#3087668). + + Fix handling of huge byte arrays on 64-bit platforms (bug#3088751). + + Macro LOOP now detects incomplete FOR clauses (bug#3089988). 2.49 (2010-07-07) Index: loop.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/loop.lisp,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- loop.lisp 29 Sep 2009 21:59:08 -0000 1.44 +++ loop.lisp 18 Oct 2010 22:19:24 -0000 1.45 @@ -940,7 +940,14 @@ (TEXT "~S: questionable iteration direction after ~A") 'loop (symbol-name kw)) 'down) - 'up))) + (if (or step-start-p step-end-p step-by-p) + 'up + (error-of-type 'source-program-error + :form *whole* :detail + (list kw pattern preposition) + (TEXT "~S: invalid keyword ~A after ~A") + 'loop (symbol-name preposition) + (symbol-name kw)))))) ;; Determine start, unless given: (unless step-start-p (when (eq step-direction 'down) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7562 retrieving revision 1.7563 diff -u -d -r1.7562 -r1.7563 --- ChangeLog 18 Oct 2010 13:59:09 -0000 1.7562 +++ ChangeLog 18 Oct 2010 22:19:24 -0000 1.7563 @@ -1,3 +1,8 @@ +2010-10-18 Sam Steingold <sd...@gn...> + + fix bug#3089988: (loop for x do (print x)) should barf + * loop.lisp (expand-loop): fail when the FOR clause lacks subclauses + 2010-10-18 Arseny Slobodyuk <am...@us...> * pathname.d (FIND_DATA_FWD) [WIN32_NATIVE]: fixed condition ------------------------------ Message: 5 Date: Mon, 18 Oct 2010 22:19:26 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests ChangeLog,1.669,1.670 loop.tst,1.29,1.30 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/tests In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv12626/tests Modified Files: ChangeLog loop.tst Log Message: fix bug#3089988: (loop for x do (print x)) should barf * src/loop.lisp (expand-loop): fail when the FOR clause lacks subclauses Index: loop.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/loop.tst,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- loop.tst 18 Oct 2010 21:41:10 -0000 1.29 +++ loop.tst 18 Oct 2010 22:19:24 -0000 1.30 @@ -873,13 +873,17 @@ NIL ;; <http://www.lisp.org/HyperSpec/Body/sec_6-1-3.html> -(handler-case - (eval (macroexpand '(loop :for i :from 1 :to 20 :sum i :maximize i))) +(handler-case (macroexpand '(loop :for i :from 1 :to 20 :sum i :maximize i)) (program-error (c) (princ c) (values '(correct program-error)))) (correct program-error) (handler-case - (eval (macroexpand '(loop :for i :from 1 :to 20 :sum i :always (evenp i)))) + (macroexpand '(loop :for i :from 1 :to 20 :sum i :always (evenp i))) + (program-error (c) (princ c) (values '(correct program-error)))) +(correct program-error) + +;; https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3089988&group_id=1355 +(handler-case (macroexpand '(loop :for i :do (print i))) (program-error (c) (princ c) (values '(correct program-error)))) (correct program-error) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.669 retrieving revision 1.670 diff -u -d -r1.669 -r1.670 --- ChangeLog 15 Oct 2010 18:33:33 -0000 1.669 +++ ChangeLog 18 Oct 2010 22:19:24 -0000 1.670 @@ -1,3 +1,7 @@ +2010-10-18 Sam Steingold <sd...@gn...> + + * loop.tst: add a test for bug#3089988: (loop for x do (print x)) + 2010-10-15 Sam Steingold <sd...@gn...> * path.tst: more PROBE-PATHNAME tests ------------------------------ ------------------------------------------------------------------------------ Download new Adobe(R) Flash(R) Builder(TM) 4 The new Adobe(R) Flex(R) 4 and Flash(R) Builder(TM) 4 (formerly Flex(R) Builder(TM)) enable the development of rich applications that run across multiple browsers and platforms. Download your free trials today! http://p.sf.net/sfu/adobe-dev2dev ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 54, Issue 14 ***************************************** |
