Index: /branches/win64/lib/foreign-types.lisp
===================================================================
--- /branches/win64/lib/foreign-types.lisp	(revision 9648)
+++ /branches/win64/lib/foreign-types.lisp	(revision 9649)
@@ -1718,5 +1718,11 @@
       (canonicalize-foreign-type-ordinal #+windows-target nil #-windows-target '(:array (:struct :pollfd) 1))
       (canonicalize-foreign-type-ordinal #+windows-target #>FILETIME #-windows-target nil)
-      (canonicalize-foreign-type-ordinal #+windows-target #>SYSTEM_INFO #-windows-target nil))))
+      (canonicalize-foreign-type-ordinal #+windows-target #>SYSTEM_INFO #-windows-target nil)
+      (canonicalize-foreign-type-ordinal #+windows-target #>HANDLE #-windows-target nil)
+      (canonicalize-foreign-type-ordinal #+windows-target #>PROCESS_INFORMATION #-windows-target nil)
+      (canonicalize-foreign-type-ordinal #+windows-target #>STARTUPINFO #-windows-target nil)
+      (canonicalize-foreign-type-ordinal #+windows-target '(:array #>HANDLE 2) #-windows-target nil)
+      
+      )))