RetroBBS - comp.lang.lisp - Does CL have sth for interaction/loop control

Does CL have sth for interaction/loop control

<sue79k$1p18$1@gioia.aioe.org>

https://www.rocksolidbbs.com/devel/article-flat.php?id=16840&group=comp.lang.lisp#16840

Path: i2pn2.org!i2pn.org!aioe.org!jtbitlwdl5SYW48mzvVQjA.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: Does CL have sth for interaction/loop control
Date: Mon, 14 Feb 2022 18:33:25 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <sue79k$1p18$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="58408"; posting-host="jtbitlwdl5SYW48mzvVQjA.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: XanaNews/1.18.1.6
X-Notice: Filtered by postfilter v. 0.9.2

by: Robert L. - Mon, 14 Feb 2022 18:33 UTC

Raffael Cavallaro wrote:

> Finally (pun intended) we should point out that similar effects can be
> had with loop-finish and finally:
>
> ? (loop
> for elt in (list 'john 'paul 'george 'ringo 'murray-the-k 'pete-best )
> collect (if (neq elt 'murray-the-k) elt (loop-finish)) into beatle-list
> finally (return beatle-list))
> (JOHN PAUL GEORGE RINGO)

(reverse
(cdr (member 'murray-the-k
(reverse '(john paul george ringo murray-the-k pete-best)))))

===>
(john paul george ringo)

How many weeks are there in a light year?

devel / comp.lang.lisp / Does CL have sth for interaction/loop control

devel / comp.lang.lisp / Does CL have sth for interaction/loop control

Subject	Author
Does CL have sth for interaction/loop control	Robert L.