[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-4-gd44beaa

Raymond Toy rtoy at common-lisp.net
Fri Nov 7 05:05:01 UTC 2014


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  d44beaa294d42f20e84b02aa44a8c20ef7769298 (commit)
      from  2b1925b64fac2d5bd5b46826a2f2678b52c1683c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit d44beaa294d42f20e84b02aa44a8c20ef7769298
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Nov 6 21:04:53 2014 -0800

    Generate a loop error if the variable is not a symbol for the string
    codepoint and glyph iterators.

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index 29b9c23..8e50390 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -2168,6 +2168,8 @@ collected result will be returned as the value of the LOOP."
   (cond ((or (cdr prep-phrases) (not (member (caar prep-phrases) '(:in :of))))
 	 (loop-error _N"Too many prepositions!"))
 	((null prep-phrases) (loop-error _N"Missing OF or IN in ~S iteration path.")))
+  (unless (symbolp variable)
+    (loop-error _N"Destructuring is not valid for string codepoint iteration."))
   (let ((string-var (loop-gentemp 'loop-codepoint-string-))
 	(next-fn (loop-gentemp 'loop-codepoint-next-))
 	(post-steps nil))
@@ -2201,6 +2203,8 @@ collected result will be returned as the value of the LOOP."
   (cond ((or (cdr prep-phrases) (not (member (caar prep-phrases) '(:in :of))))
 	 (loop-error _N"Too many prepositions!"))
 	((null prep-phrases) (loop-error _N"Missing OF or IN in ~S iteration path.")))
+  (unless (symbolp variable)
+    (loop-error _N"Destructuring is not valid for string glyph iteration."))
   (let ((string-var (loop-gentemp 'loop-glyph-string-))
 	(next-fn (loop-gentemp 'loop-glyph-next-))
 	(post-steps nil))

-----------------------------------------------------------------------

Summary of changes:
 src/code/loop.lisp | 4 ++++
 1 file changed, 4 insertions(+)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list