(emit (make-instance 'arm64-instruction
                         :opcode 'lap:ldr
                         :operands (list temp  (ash (logxor (1- (ash 1 sys.int::+object-type-size+))
                                                            sys.int::+object-tag-instance+
                                                            sys.int::+object-tag-funcallable-instance+)
                                                    sys.int::+object-type-shift+))
                         :inputs ()
                         :outputs (list temp)))