defconst-fast

(defmacro defconst-fast
  (name form &optional (doc '"" doc-p))
  `(make-event (let ((val ,FORM))
      (list* 'defconst
        ',NAME
        (list 'quote val)
        ,(AND DOC-P (LIST 'LIST DOC))))))