[armedbear] #471: LOOP destructures non-conformingly

[armedbear]

#471: LOOP destructures non-conformingly
-------------------------------+-----------------------
      Reporter:  Mark Evenson  |      Owner:  (none)
          Type:  defect        |     Status:  new
      Priority:  minor         |  Milestone:  1.7.2
     Component:  other         |    Version:  1.7.2-dev
    Resolution:                |   Keywords:  ansi loop
Parent Tickets:                |
-------------------------------+-----------------------
Description changed by Mark Evenson:

Old description:

> {{{
> (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>

New description:

 {{{
 (loop with (a b) = '(1) do (return (list a b)))
 }}}

 This 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#comment:2>
armedbear <https://abcl.org>
armedbear