Lost bet

[Nick Gall <Gall@MIT-MULTICS.ARPA>]

(defun foo ()
   (let ((const 1)) const))

(defconstant const 2)         ;; Compiler should issue a warning about
                              ;; the use of lexical variable const in
                              ;; foo.

(defun bar ()
  (let ((const 2)) const)     ;; Compiler should signal an
                                        ;; error about the binding of a
                                        ;; constant.

I guess I lose my bet.

          -- Nick