Mon Jan 25 19:46:41 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* single-float conversion
hunk ./src/overload-resolution.lisp 366
+(defun coerce-single-float (number)
+ (float number 0f0))
+
hunk ./src/overload-resolution.lisp 380
+ (10 (when (object.typep 'real)
+ (make-match 'promotion 'coerce-single-float)))