block/return-from, lisp in small pieces, page 97 - 99