home *** CD-ROM | disk | FTP | other *** search
- (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))
-
- ;(dolist (v '( cmpeval cmpopt cmptype cmpbind cmpinline cmploc cmpvar cmptop cmplet cmpcall cmpmulti cmplam cmplabel cmpeval )) (si::nload (format nil "~(~a~).lsp" v)))
-