(let ((pp-escape-newlines t)
alist)
(save-excursion
(set-buffer (find-file-noselect mcat-file))
(goto-char (point-min))
(if (re-search-forward (concat "^\\s-*(\\(defvar\\|defconst\\)\\s-+"
(let ((pp-escape-newlines t)
alist)
(save-excursion
(set-buffer (find-file-noselect mcat-file))
(goto-char (point-min))
(if (re-search-forward (concat "^\\s-*(\\(defvar\\|defconst\\)\\s-+"