On 2012-08-05, Richard Fateman <fateman at eecs.berkeley.edu> wrote:
> (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))
That doesn't have a significant effect from what I can tell. I tried it
with SBCL.
Without property hack:
391.472 seconds of real time
380.531781 seconds of total run time
With property hack:
392.571 seconds of real time
381.255827 seconds of total run time
In the absence of evidence for a significant speed-up, I'm opposed to
putting that code into action.
FWIW
Robert Dodier