(declaim (optimize speed))

(loop :for op :in '(+ * =)
      :for fn := (compile nil `(lambda (x y)
                                 (declare (fixnum x y))
                                 (,op x y)))
      :do (describe fn)
          (disassemble fn))