Index: /trunk/source/lib/foreign-types.lisp
===================================================================
--- /trunk/source/lib/foreign-types.lisp	(revision 8267)
+++ /trunk/source/lib/foreign-types.lisp	(revision 8268)
@@ -1701,5 +1701,5 @@
       (canonicalize-foreign-type-ordinal '(:* (:struct :hostent)))
       (canonicalize-foreign-type-ordinal '(:array :int 2))
-      )))
+      (canonicalize-foreign-type-ordinal '(:array (:struct :pollfd) 1)))))
 
 (defun install-standard-foreign-types (ftd)