From: <cli...@li...> - 2009-09-28 12:04:22
|
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 ChangeLog,1.638,1.639 eval20.tst,1.19,1.20 (Sam Steingold) 2. clisp/tests ChangeLog,1.639,1.640 macro8.tst,1.97,1.98 (Sam Steingold) 3. clisp/tests macro8.tst,1.98,1.99 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Sun, 27 Sep 2009 16:24:44 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests ChangeLog,1.638,1.639 eval20.tst,1.19,1.20 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/tests In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv16491/tests Modified Files: ChangeLog eval20.tst Log Message: fix bug #[ 2868147 ]: declaim signals an error on an invalid declaration (parse-optimize-quality): can be called by DECLAIM, so call c-WARN or WARN depending on *COMPILING* Index: eval20.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/eval20.tst,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- eval20.tst 25 Nov 2008 17:29:12 -0000 1.19 +++ eval20.tst 27 Sep 2009 16:24:42 -0000 1.20 @@ -291,6 +291,11 @@ '((1) (2) (3) (4 2) (5) (6 3 2)))) ((1) (2) (3) (4 2) (5) (6 3 2) (A APPLE APRICOT) (B BANANA) (C CHERRY)) +;; https://sourceforge.net/tracker/?func=detail&aid=2868147&group_id=1355&atid=101355 +(with-output-to-string (*error-output*) (declaim (optimize zot))) +"WARNING: ZOT is not a valid OPTIMIZE quality. +" + ;; Clean up. (progn (symbol-cleanup 'setf-foo) (symbol-cleanup 'bar) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.638 retrieving revision 1.639 diff -u -d -r1.638 -r1.639 --- ChangeLog 26 Aug 2009 19:14:51 -0000 1.638 +++ ChangeLog 27 Sep 2009 16:24:42 -0000 1.639 @@ -1,3 +1,8 @@ +2009-09-27 Sam Steingold <sd...@gn...> + + * eval20.tst: test bug #[ 2868147 ]: declaim signals an error on + an invalid declaration + 2009-08-26 Sam Steingold <sd...@gn...> * pack11.tst: also test combinations of packages using ------------------------------ Message: 2 Date: Sun, 27 Sep 2009 18:21:06 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests ChangeLog,1.639,1.640 macro8.tst,1.97,1.98 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/tests In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv28600/tests Modified Files: ChangeLog macro8.tst Log Message: test bug #[ 2868166 ]: Do not eliminate function calls which are advertised to have exceptional situation in unsafe code. Index: macro8.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/macro8.tst,v retrieving revision 1.97 retrieving revision 1.98 diff -u -d -r1.97 -r1.98 --- macro8.tst 25 Nov 2008 17:29:12 -0000 1.97 +++ macro8.tst 27 Sep 2009 18:21:03 -0000 1.98 @@ -1202,6 +1202,32 @@ (multiple-value-list (compile 'x (lambda (y) (declare (ignore y)) (flet ((f (z) (1+ z))) (f y))))) (X 1 NIL) +;; funcall elimination +;; AREF: no advertised "exceptional situations", so eliminated in unsafe code +(handler-case + ;; safe code, AREF not eliminated + (funcall (locally (declare (optimize (safety 3))) + (compile nil (lambda (a) (aref a 0) 1))) + 2) + (type-error (c) (princ-error c) :good) + (error (c) (princ-error c) :bad)) +:GOOD + +(handler-case + ;; unsafe code, AREF eliminated + (funcall (locally (declare (optimize (safety 2))) + (compile nil (lambda (a) (aref a 0) 1))) + 2)) +1 + +;; PARSE-INTEGER (advertised to signal errors in unsafe code) never eliminated +(handler-case + (funcall (locally (declare (optimize (safety 0))) + (compile nil (lambda (s) (parse-integer s) 1))) + "a") + (error (c) (princ-error c) :good)) +:GOOD + (progn ; Clean up. (symbol-cleanup '*c*) (symbol-cleanup '*donc*) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.639 retrieving revision 1.640 diff -u -d -r1.639 -r1.640 --- ChangeLog 27 Sep 2009 16:24:42 -0000 1.639 +++ ChangeLog 27 Sep 2009 18:21:03 -0000 1.640 @@ -1,5 +1,10 @@ 2009-09-27 Sam Steingold <sd...@gn...> + * macro8.tst: test bug #[ 2868166 ]: Do not eliminate function calls + which are advertised to have exceptional situation in unsafe code. + +2009-09-27 Sam Steingold <sd...@gn...> + * eval20.tst: test bug #[ 2868147 ]: declaim signals an error on an invalid declaration ------------------------------ Message: 3 Date: Sun, 27 Sep 2009 18:21:46 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests macro8.tst,1.98,1.99 To: cli...@li... Message-ID: <E1M...@dd...> Update of /cvsroot/clisp/clisp/tests In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv28729 Modified Files: macro8.tst Log Message: oops Index: macro8.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/macro8.tst,v retrieving revision 1.98 retrieving revision 1.99 diff -u -d -r1.98 -r1.99 --- macro8.tst 27 Sep 2009 18:21:03 -0000 1.98 +++ macro8.tst 27 Sep 2009 18:21:44 -0000 1.99 @@ -1213,11 +1213,10 @@ (error (c) (princ-error c) :bad)) :GOOD -(handler-case - ;; unsafe code, AREF eliminated - (funcall (locally (declare (optimize (safety 2))) - (compile nil (lambda (a) (aref a 0) 1))) - 2)) +;; unsafe code, AREF eliminated +(funcall (locally (declare (optimize (safety 2))) + (compile nil (lambda (a) (aref a 0) 1))) + 2) 1 ;; PARSE-INTEGER (advertised to signal errors in unsafe code) never eliminated ------------------------------ ------------------------------------------------------------------------------ Come build with us! The BlackBerry® Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9-12, 2009. Register now! http://p.sf.net/sfu/devconf ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 41, Issue 44 ***************************************** |