single-float conversion
src/overload-resolution.lisp
Mon Jan 25 19:46:41 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* single-float conversion
--- old-smoke/src/overload-resolution.lisp 2014-10-30 08:08:16.000000000 +0100
+++ new-smoke/src/overload-resolution.lisp 2014-10-30 08:08:16.000000000 +0100
@@ -363,6 +363,9 @@
(defun coerce-double-float (number)
(float number 0d0))
+(defun coerce-single-float (number)
+ (float number 0f0))
+
;; FIXME incomplete
(defun+using-type promotion object (object type)
(declare (smoke-type type))
@@ -374,6 +377,8 @@
(make-match 'promotion 'coerce-enum)))
(7 (when (object.typep 'enum)
(make-match 'promotion 'coerce-enum)))
+ (10 (when (object.typep 'real)
+ (make-match 'promotion 'coerce-single-float)))
(11 (when (object.typep 'real)
(make-match 'promotion 'coerce-double-float)))))