Sat Feb 20 19:01:21 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Fix overload resolution exact match for long and ulong.
diff -rN -u old-smoke/src/overload-resolution.lisp new-smoke/src/overload-resolution.lisp
--- old-smoke/src/overload-resolution.lisp	2014-10-30 08:06:00.000000000 +0100
+++ new-smoke/src/overload-resolution.lisp	2014-10-30 08:06:00.000000000 +0100
@@ -340,8 +340,10 @@
     (5 (object.typep '(c-integer :unsigned-short)))
     (6 (object.typep '(c-integer :int)))
     (7 (object.typep '(c-integer :unsigned-int)))
-    (8 (object.typep '(c-integer :long)))
-    (9 (object.typep '(c-integer :unsigned-long)))
+    (8 (object.typep '(and (c-integer :long)
+                       (not (c-integer :int)))))
+    (9 (object.typep '(and (c-integer :unsigned-long)
+                       (not (c-integer :unsigned-int)))))
     (10 (object.typep 'single-float))
     (11 (object.typep 'double-float))
     (12 (when (object.typep 'enum)