kcl bug?

[vax135!lcuxlj!ilan@ucbvax.Berkeley.EDU]

I can't work the following out... I imagine it's because I'm
trying to compile a function that calls a redefined CL builtin,
but the error message certainly doesn't say that...

-----
>(defun foo (x) (car x))
FOO

>(compile 'foo)
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
FOO

>(foo '(1 2 3))
1

>(defun car (x) (cdr x))
Warning: CAR is being redefined.
CAR

>(car '(1 2 3))
(2 3)

>(defun foo (x) (car x))
FOO

>#'foo
(LAMBDA-BLOCK FOO (X) (CAR X))

>(foo '(1 2 3))
(2 3)

>(compile 'foo)
Error: No lambda expression is assigned to the symbol FOO.
Error signalled by COND.

Broken at ERROR.  Type :H for Help.
>>
-----

--Ilan Caron