Thu Jul 2 23:51:50 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Promption real to double-float
hunk ./src/overload-resolution.lisp 422
+(defun coerce-double-float (number)
+ (float number 0d0))
+
+;; FIXME incomplete
hunk ./src/overload-resolution.lisp 435
- (make-match 'promotion 'coerce-enum)))))
+ (make-match 'promotion 'coerce-enum)))
+ (11 (when (object.typep 'real)
+ (make-match 'promotion 'coerce-double-float)))))