Mon Jan 25 19:47:00 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Check enum type on overload resolution
diff -rN -u old-smoke/src/overload-resolution.lisp new-smoke/src/overload-resolution.lisp
--- old-smoke/src/overload-resolution.lisp 2014-10-30 07:05:28.000000000 +0100
+++ new-smoke/src/overload-resolution.lisp 2014-10-30 07:05:28.000000000 +0100
@@ -337,7 +337,8 @@
(9 (object.typep '(c-integer :unsigned-long)))
(10 (object.typep 'single-float))
(11 (object.typep 'double-float))
- (12 (object.typep 'enum)) ;; FIXME enum-type
+ (12 (and (object.typep 'enum) ;; FIXME enum-type using type
+ (smoke-type= type (enum-type object))))
(13 (and (object.typep 'smoke-standard-object)
(smoke-type= (get-class type) (object.type-of))))))