(declaim (optimize speed (safety 0))
         (ftype (function (fixnum fixnum) fixnum) yoba))

(defun yoba (x y)
  (+ x y))
  
(disassemble #'yoba)