Commit 235756c6 authored by Attila Lendvai's avatar Attila Lendvai
Browse files

Set *list-end-test* to 'endp instead of 'atom, so (iter (for foo :in...

Set *list-end-test* to 'endp instead of 'atom, so (iter (for foo :in something-non-list)) fails instead of silently exists

parent ffc414eb
......@@ -171,7 +171,7 @@
;;; ATOM: Will terminate correctly with no error.
;;; ENDP: Will give an appropriate error message.
(defparameter *list-end-test* 'atom)
(defparameter *list-end-test* 'endp)
;;; *result-var* is bound to a gensym before the clauses of an iterate
;;; form are processed. In the generated code, the gensym is bound
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment