:dump-format"(progn (sys:resize-areas :global-gc t :pack-heap t :sift-old-areas t :tenure t) (excl:dumplisp :name ~A :suppress-allegro-cl-banner t))")results))))
:quit-format"(excl:exit ~A :quiet t)"
:finally(returnresults)))
:dump-format"(progn (sys:resize-areas :global-gc t :pack-heap t :sift-old-areas t :tenure t) (excl:dumplisp :name ~A :suppress-allegro-cl-banner t))"))))))))
(defunregister-lisp-implementation*(x)
"Register the lisp implementation described a list X of a name followed by a plist"