;;AUTOLOAD: *evalhook*
;;AUTOLOAD: evalhook

(defactive *evalhook* 
  (lambda (obj) (*:mhook List evalhook:eval-offset))
  (lambda (obj my-evalhook)
    (dolist (type (types-list))
      (*:mhook type evalhook:eval-offset my-evalhook))
  )
  ()
)

(setq evalhook:eval-offset (*:mhook-number "eval"))
(defun evalhook (expr)
  (*:mhook-apply evalhook:eval-offset expr)
)
