(defmacro watch (code)
  "Run the code, print number of calls for functions used in code."
  `(progn
    (sb-profile:unprofile)
    (sb-profile:reset)
    (sb-profile:profile ,@(my-funs))
    (eval (prog1 t ,code))
    (sb-profile:report)
    (sb-profile:unprofile)
    t)
)