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@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