(defun putops1(sym) ;;put operators property at front of plist
(let ((val (get sym 'operators)))
(when val (remprop sym 'operators)(setf (get sym 'operators) val))))
;; here is what should be executed before dumping the lisp.
(do-symbols (s (find-package :maxima)) (putops1 s))