On Mon, Aug 9, 2010 at 3:57 PM, Pascal J. Bourguignon <pjb@informatimago.com> wrote:
You're right, the problem is with FIND (notice that FIND is a
function, so that would be in the open-coding of FIND, not a
macro-expansion):

---(a.lisp)-------------------------------------------------------------
(defun f (tag list)
 (find tag list))
------------------------------------------------------------------------

> (compile-file "/tmp/a.lisp")
;;; Compiling (DEFUN F ...).
;;; Warning:
;;;   in file a.lisp, position 0
;;;   at (DEFUN F ...)
;;;   ! In LET/LET* bindings, the type of the form NIL is SYMBOL, not FIXNUM.

Fixed in CVS.

Juanjo


--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com