Lexical jumps

2026-09-05 00:58:11 -07:00
parent 8024bcfee3
commit 956297335d
13 changed files with 164 additions and 49 deletions
@@ -1,7 +1,6 @@
 ;; -*- mode: lisp-data -*-

-(fset 'test (cons 'macro (lambda (x) (declare (name test)) (list 'princ x))))
-
-(prin1 (macroexpand-all '(lambda () (test x))
-                        '((test . (lambda (x) (test x))))))
+(prin1 (let ((l (block 'c (lambda () (return-from 'c 3)))))
+         (block 'c
+                (funcall l))))
 (write-byte ?\n)