[Ecls-list] Can't compile CLX under MSVC

[Goffioul Michael]

> Hi,
> 
> I updated my CVS today and tried to recompile. It failed at 
> compiling CLX
> during compilation of clx.lisp with these messages:
> 
> ;;; Compiling (DEFUN FONT-ID ...).
> ;;; Compiling (DEFUN FONT-FONT-INFO ...).
> ;;; Compiling (DEFUN FONT-CHAR-INFOS ...).
> ;;; Compiling (DEFUN MAKE-FONT ...).
> ;;; Compiling (DEFUN FONT-DIRECTION ...).
> ;;; Compiling (DEFUN FONT-MIN-CHAR ...).
> ;;; Compiling (DEFUN FONT-MAX-CHAR ...).
> ;;; Compiling (DEFUN FONT-MIN-BYTE1 ...).
> ;;; Compiling (DEFUN FONT-MAX-BYTE1 ...).
> ;;; Compiling (DEFUN FONT-MIN-BYTE2 ...).
> ;;; Compiling (DEFUN FONT-MAX-BYTE2 ...).
> ;;; Compiling (DEFUN FONT-ALL-CHARS-EXIST-P ...).
> ;;; Compiling (DEFUN FONT-DEFAULT-CHAR ...).
> ;;; Compiling (DEFUN FONT-MIN-BOUNDS ...).
> ;;; Compiling (DEFUN FONT-MAX-BOUNDS ...).
> ;;; Compiling (DEFUN FONT-ASCENT ...).
> ;;; Compiling (DEFUN FONT-DESCENT ...).
> ;;; Compiling (DEFUN FONT-PROPERTIES ...).
> ;;; Compiling (DEFUN FONT-PROPERTY ...).
> ;;; Compiling (DEFUN WINDOW-EQUAL ...).
> ;;; Compiling (DEFUN PIXMAP-EQUAL ...).
> ;;; Note: Sharing code among functions PIXMAP-EQUAL and WINDOW-EQUAL
> NIL is not of type C::INFO.
> Top level.
> XLIB>

To reproduce it, try to compile this code:

(macrolet ((make-eq (type)
             (let ((predicate (intern (concatenate 'string (string type) "-EQUAL"))))
               `(progn
                  (declaim (inline ,predicate))
                  (defun ,predicate (a b) (eq a b))))))
  (make-eq window)
  (make-eq pixmap) 
  (make-eq cursor)
  )

Michael.