(proclaim '(optimize (safety 0) (space 3)))
(proclaim '(optimize (safety 2) (space 3)))
(load "../lsp/sys-proclaim.lisp")
(load "sys-proclaim.lisp")
(setq compiler::*eval-when-defaults* '(compile eval load))
;(load "cmptop.lsp")
;(dolist (v '( cmpeval cmpopt cmptype cmpbind cmpinline cmploc cmpvar cmptop cmplet cmpcall cmpmulti cmplam cmplabel	      cmpeval ))   (si::nload (format nil "~(~a~).lsp" v)))