;; -*- mode: lisp-data -*-

(prin1 (let ((l (block 'c (lambda () (return-from 'c 3)))))
         (block 'c
                (funcall l))))
(write-byte ?\n)