Plaster

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