Ignorable functions not recognized.

Hi,

The following gives a syntax warning:

(defun test ()
   (flet ((inner (x) (+ x x)))
     (declare (ignorable (function inner)))
     (print 'foo)))

The compiler complains as follows:

;;;*** Warning in TEST: Ignoring syntax error for (FUNCTION INNER) in  
declaration (IGNORABLE (FUNCTION INNER)).

However, (declare (ignorable (function ...))) is legal according to  
ANSI Common Lisp.

This not serious, but slightly annoying when writing portable code.


Cheers,
Pascal

-- 
Pascal Costanza, mailto:pc@p-cos.net, http://p-cos.net
Vrije Universiteit Brussel, Programming Technology Lab
Pleinlaan 2, B-1050 Brussel, Belgium