(defclass big-object () ())

(defun some-function ()
  (let ((v (make-instance 'big-object)))
    (generic-flet ((genfun (a)
                     (:method ((a (eql v))))))
      ...)))