(fbind ((foo #'print)
        (bar #'1+))
  (foo (bar 42)))
  
(FLET ((FOO (&REST #:G1204562)
         (APPLY #'PRINT #:G1204562))
       (BAR (&REST #:G1204562)
         (APPLY #'1+ #:G1204562)))
  (FOO (BAR 42)))