From: <cli...@li...> - 2005-06-29 03:16:05
|
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 init.lisp,1.235,1.236 ChangeLog,1.4726,1.4727 (Sam Steingold) 2. clisp/tests macro8.tst,1.65,1.66 ChangeLog,1.386,1.387 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src init.lisp,1.235,1.236 ChangeLog,1.4726,1.4727 Date: Tue, 28 Jun 2005 21:48:07 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19706/src Modified Files: init.lisp ChangeLog Log Message: (%return-p): quoted constants cannot contain RETURN-FROM forms (this fixes a bug whereby quoted circular list hang the evaluator) Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.235 retrieving revision 1.236 diff -u -d -r1.235 -r1.236 --- init.lisp 30 May 2005 13:31:48 -0000 1.235 +++ init.lisp 28 Jun 2005 21:48:01 -0000 1.236 @@ -1290,6 +1290,7 @@ (let ((form (car body))) (if ; determine, if form contains a (RETURN-FROM name ...) : (and (consp form) + (not (eq (first form) 'quote)) (or (and (eq (first form) 'return-from) ; (RETURN-FROM name ...) (eq (second form) name)) (and (consp (first form)) ; lambda-list Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4726 retrieving revision 1.4727 diff -u -d -r1.4726 -r1.4727 --- ChangeLog 26 Jun 2005 20:14:07 -0000 1.4726 +++ ChangeLog 28 Jun 2005 21:48:02 -0000 1.4727 @@ -1,3 +1,10 @@ +2005-06-28 Sam Steingold <sd...@gn...> + + * init.lisp (%return-p): quoted constants cannot contain + RETURN-FROM forms (this fixes a bug whereby quoted circular list + hang the evaluator) + Reported by Devon Sean McCullough <Lisp-Hacker@Jovi.Net> + 2005-06-26 Sam Steingold <sd...@gn...> * compiler.lisp (c-OR): handle empty codelist --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests macro8.tst,1.65,1.66 ChangeLog,1.386,1.387 Date: Tue, 28 Jun 2005 21:48:03 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19706/tests Modified Files: macro8.tst ChangeLog Log Message: (%return-p): quoted constants cannot contain RETURN-FROM forms (this fixes a bug whereby quoted circular list hang the evaluator) Index: macro8.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/macro8.tst,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- macro8.tst 26 Jun 2005 12:35:06 -0000 1.65 +++ macro8.tst 28 Jun 2005 21:48:01 -0000 1.66 @@ -960,6 +960,15 @@ (funcall (compile nil (lambda () (cond (t)) nil))) NIL +(let (x) + (defun circularity-in-code () '(one two three . #1=(many . #1#))) + (setq x (circularity-in-code)) + (subseq x 0 7)) +(ONE TWO THREE MANY MANY MANY MANY) + ; Clean up. -(unintern 'x) +(progn + (fmakunbound 'circularity-in-code) + (unintern 'circularity-in-code) + (unintern 'x)) T Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.386 retrieving revision 1.387 diff -u -d -r1.386 -r1.387 --- ChangeLog 26 Jun 2005 12:35:06 -0000 1.386 +++ ChangeLog 28 Jun 2005 21:48:01 -0000 1.387 @@ -1,3 +1,7 @@ +2005-06-28 Sam Steingold <sd...@gn...> + + * macro8.tst: test circular lists in code + 2005-06-26 Sam Steingold <sd...@gn...> * macros8.tst: test (cond (t)) compilation --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |