Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
570 (list 'return-from nil res)) 570 (list 'return-from nil res))
571 571
572 ;;;###autoload 572 ;;;###autoload
573 (defmacro return-from (name &optional res) 573 (defmacro return-from (name &optional res)
574 "(return-from NAME [RESULT]): return from the block named NAME. 574 "(return-from NAME [RESULT]): return from the block named NAME.
575 This jump out to the innermost enclosing `(block NAME ...)' form, 575 This jumps out to the innermost enclosing `(block NAME ...)' form,
576 returning RESULT from that form (or nil if RESULT is omitted). 576 returning RESULT from that form (or nil if RESULT is omitted).
577 This is compatible with Common Lisp, but note that `defun' and 577 This is compatible with Common Lisp, but note that `defun' and
578 `defmacro' do not create implicit blocks as they do in Common Lisp." 578 `defmacro' do not create implicit blocks as they do in Common Lisp."
579 (let ((name2 (intern (format "--cl-block-%s--" name)))) 579 (let ((name2 (intern (format "--cl-block-%s--" name))))
580 (list 'cl-block-throw (list 'quote name2) res))) 580 (list 'cl-block-throw (list 'quote name2) res)))