[Openmcl-cvs-notifications] r10680 - /trunk/source/lib/foreign-types.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 00:08:57 2008
New Revision: 10680

Log:
Headers in #+win64 *host-ftd*.


Modified:
    trunk/source/lib/foreign-types.lisp

Modified: trunk/source/lib/foreign-types.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/foreign-types.lisp (original)
+++ trunk/source/lib/foreign-types.lisp Wed Sep 10 00:08:57 2008
@@ -96,7 +96,8 @@
                         (:linuxx8664 "ccl:x86-headers64;")
                         (:darwinx8664 "ccl:darwin-x86-headers64;")
                         (:freebsdx8664 "ccl:freebsd-headers64;")
-                        (:solarisx8664 "ccl:solarisx64-headers;"))
+                        (:solarisx8664 "ccl:solarisx64-headers;")
+                        (:win64 "ccl:win64-headers"))
                     :interface-package-name
                     #.(ftd-interface-package-name *target-ftd*)
                     :attributes