7 lines
155 B
Plaintext
7 lines
155 B
Plaintext
;; -*- mode: lisp-data -*-
|
|
|
|
(prin1 (let ((l (block 'c (lambda () (return-from 'c 3)))))
|
|
(block 'c
|
|
(funcall l))))
|
|
(write-byte ?\n)
|