Debugger entered--Lisp error: (invalid-function (\` (defmacro ((\, (intern (format "sgml-eltype-%s" n)))) (et) (list (quote get) et (quote (quote ((\, n))))))))
  ((\` (defmacro ... ... ...)))
  (cons ((\` ...)) --cl-var--)
  (setq --cl-var-- (cons (...) --cl-var--))
  (push ((\` ...)) --cl-var--)
  (while (consp --cl-var--) (setq n (car --cl-var--)) (push (...) --cl-var--) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- names) (n nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq n ...) (push ... --cl-var--) (setq --cl-var-- ...)) (nreverse --cl-var--))
  (catch (quote --cl-block-nil--) (let* (... ... ...) (while ... ... ... ...) (nreverse --cl-var--)))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ... ... ...)))
  (block nil (let* (... ... ...) (while ... ... ... ...) (nreverse --cl-var--)))
  (loop for n in names collect ((\` ...)))
  (cons (quote progn) (loop for n in names collect (...)))
  (lambda (&rest names) (cons (quote progn) (loop for n in names collect ...)))(attlist includes excludes shortmap)
  (sgml-prop-fields attlist includes excludes shortmap)
  eval-buffer(#<buffer  *load*> nil "/usr/share/emacs/site-lisp/psgml/psgml-parse.el" nil t)  ; Reading at buffer position 27623
  load-with-code-conversion("/usr/share/emacs/site-lisp/psgml/psgml-parse.el" "/usr/share/emacs/site-lisp/psgml/psgml-parse.el" nil nil)
  load("/usr/share/emacs/site-lisp/psgml/psgml-parse.el")
  eval((load "/usr/share/emacs/site-lisp/psgml/psgml-parse.el"))
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)