Lines Matching refs:macrolet
100 (macrolet ((foo (&environment env)
105 (macrolet ((bar () :beep))
109 (macrolet ((%m (()) :good)) (%m ())) :GOOD
110 (macrolet ((%m (()) :good)) (%m 10)) ERROR
325 (macrolet ((%m (&whole (m a b) c d) `'(,m ,a ,b ,c ,d))) (%m 1 2))
328 (macrolet ((%m (&key ((:a (b c)))) `'(,c ,b))) (%m :a (1 2)))
331 (macrolet ((%m (&key ((:a (b c)) '(3 4))) `'(,c ,b)))
335 (macrolet ((%m (&key ((:a (b c)) '(3 4) a-p)) `'(,a-p ,c ,b)))
339 (macrolet ((%m (&key a b c) `'(,a ,b ,c)))
389 (macrolet ((alpha (x y) `(delta ,x ,y)))
392 (macrolet ((alpha (x y) `(delta ,x ,y)))
395 (macrolet ((alpha (x y) `(delta ,x ,y)))
398 (macrolet ((alpha (x y) `(delta ,x ,y)))
401 (macrolet ((beta (x y) `(epsilon ,x ,y)))
405 (symbol-macrolet ((a-sm (first x)))
409 (symbol-macrolet ((a-sm (first x)))
412 (symbol-macrolet ((b-sm (alpha x y)))
415 (symbol-macrolet ((b-sm (alpha x y)))
418 (symbol-macrolet ((b-sm (alpha x y))
422 (symbol-macrolet ((b-sm (alpha x y))
431 (macrolet ((alpha (x y) `(delta ,x ,y)))
436 (symbol-macrolet ((a-sm (first x)))
442 ;; The macro-expansion functions defined by macrolet are defined in the
443 ;; lexical environment in which the macrolet form appears
444 (symbol-macrolet ((foo 12))
445 (macrolet ((bar (x) `(+ ,x ,(1+ foo))))
449 (symbol-macrolet ((foo 12))
450 (macrolet ((bar (x) (+ x foo)))
458 (symbol-macrolet ((,a 5))
459 (symbol-macrolet ((,b ,a)) ,b)))))
595 (macrolet ((segundo (x) `(cadr ,x)))