zl:1 - FTP

zl :return-list
456
I
Examples:
Or
(do «x x (cdr x»
(n 8 (* n 2»)
«null x) n)
(cond «atom (car x»
(setq n (1+ n»)
«memq (caar x) '(sys boom bleah»
(return-from nil n»»
(Block nil
(print "rivers hills")
(if (= 3 3.) (return-from nil "five"»
(print "water trees"» => "rivers hills" "five"
Following is another example, returning multiple values. The function
below is like assoc, but it returns an additional value, the index in the
table of the entry it found:
(de fun assocn (x table)
(do «1 table (cdr 1»
(n e (1+ n»)
«null 1) nil)
(if (eql (caar 1) x)
(return-from nil (values (car 1) n»»)
For a table of related items: See the section "Blocks and Exits Functions
and Variables" in Symbolics Common Lisp: Language Concepts.
zl:return-list form Special Form
An obsolete function supported for compatibility with earlier releases. It is
like return except that the block returns all of the elements of list as multiple
values. This means that the following two forms are equivalent:
Examples:
(zl:return-list list)
(return (values-list list»