[armedbear] #471: LOOP destructures non-conformingly

[armedbear]

#471: LOOP destructures non-conformingly
-------------------------------+--------------------
      Reporter:  Mark Evenson  |       Type:  defect
        Status:  new           |   Priority:  major
     Milestone:                |  Component:  other
       Version:  1.7.1-dev     |   Keywords:
Parent Tickets:                |
-------------------------------+--------------------
 {{{
 (loop with (a b) = '(1) do (return (list a b)))
 (loop  for (a b) = '(1) do (return (list a b)))
 }}}

 These forms should both return
 {{{
 (1 nil)
 }}}

 as per http://www.lispworks.com/documentation/HyperSpec/Body/06_aag.htm

 Problem reported by Steve Losh.

 c.f. <https://gitlab.com/embeddable-common-lisp/ecl/-/issues/605>

-- 
Ticket URL: <https://abcl.org/trac/ticket/471>
armedbear <https://abcl.org>
armedbear