Plaster

CL-USER> (macroexpand-all '(defun test () (+ 1 2))) (PROGN (CCL::%DEFUN (NFUNCTION TEST LAMBDA NIL (DECLARE (CCL::GLOBAL-FUNCTION-NAME TEST)) (BLOCK TEST (+ 1 2))) 'NIL) 'TEST)