Index: /branches/objc-gf/ccl/lib/foreign-types.lisp
===================================================================
--- /branches/objc-gf/ccl/lib/foreign-types.lisp	(revision 6041)
+++ /branches/objc-gf/ccl/lib/foreign-types.lisp	(revision 6042)
@@ -1627,5 +1627,5 @@
       (canonicalize-foreign-type-ordinal :signed)
       (canonicalize-foreign-type-ordinal :unsigned)
-      (canonicalize-foreign-type-ordinal :long)
+      (canonicalize-foreign-type-ordinal #+64-bit-target :long #-64-bit-target nil)
       (canonicalize-foreign-type-ordinal :address)
       (canonicalize-foreign-type-ordinal #-darwin-target