[cmucl-imp] Lexical environment and compiler macro functions.

G'day, CMUCL does not shadow the compiler macro function present in the global environment when introducing a function with the same name in the current lexical environment. This is demonstrated with the following example: (defun square (x) (expt x 2)) (define-compiler-macro square (&whole form arg) (declare (ignore arg)) form) (defun test () (flet ((square (arg) (declare (ignore arg)) (write "SQUARE!"))) (macrolet ((my-square (arg &environment env) (if (compiler-macro-function 'square env) `(function square) nil))) (my-square 1)))) (test) => #<Function (FLET SQUARE TEST) {48704B89}> Thanks Mark