[Openmcl-devel] Compiler warnings

[Taoufik Dachraoui]

I tried the following and I got a compiler warning, is this normal? if  
not what is the problem

PS: my .ccl-init.lisp is empty

taoufik-dachraouis-imac:cl-cairo2 taoufik$ ccl
Welcome to Clozure Common Lisp Version 1.3-r11936  (DarwinX8632)!
? (setf x '(a b c))
(A B C)
? (pop x)
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable X (3  
references)
A
? (pprint (macroexpand-1 '(pop x)))

(PROG1 (CAR X) (SETQ X (CDR (THE LIST X))))
? (PROG1 (CAR X) (SETQ X (CDR (THE LIST X))))
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable X (3  
references)
B
? x
(C)
?

Taoufik