Plaster

common-lisp
CL-TEST> (FLET ((F NIL (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (COMPILATION-SPEED 0) (DEBUG 0))) (STRING #\A))) (disassemble #'F)) ;; (recover-fn-from-rip) ; [0] ;; (pushq (% rbp)) ; [7] ;; (movq (% rsp) (% rbp)) ; [8] ;; (movq (@ '"A" (% fn)) (% arg_z)) ; [11] ;; (string #\a) got constant-folded ;; (movq (% rbp) (% rsp)) ; [18] ;; (popq (% rbp)) ; [21] ;; (retq) ; [22]