2
(dolist (v '((compile-file . bcomp::compile-file1)
3
(proclaim . bcomp::proclaim1)
4
(disassemble . bcomp::disassemble1)))
5
(setf (symbol-function (car v)) (symbol-function (cdr v))))
7
(setq compiler::*cc* (si::concatenate 'string compiler::*cc* " -g "))