[Openmcl-cvs-notifications] r14773 - /trunk/source/compiler/nx1.lisp

[gb at clozure.com]

Author: gb
Date: Mon May  2 15:17:50 2011
New Revision: 14773

Log:
Back out of r14759.

Modified:
    trunk/source/compiler/nx1.lisp

Modified: trunk/source/compiler/nx1.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx1.lisp (original)
+++ trunk/source/compiler/nx1.lisp Mon May  2 15:17:50 2011
@@ -698,7 +698,17 @@
     (if (subtypep *nx-form-type* 'fixnum)
       (make-acode (%nx1-operator %%ineg)(nx1-form num))
       (make-acode (%nx1-operator %ineg) (nx1-form num)))
-    (nx1-form `(- 0 ,num))))
+    (let* ((acode (make-acode (%nx1-operator minus1) (nx1-form num env))))
+      (if (nx-form-typep num 'double-float env)
+        (make-acode (%nx1-operator typed-form)
+                    'double-float
+                    acode)
+        (if (nx-form-typep num 'single-float env)
+          (make-acode (%nx1-operator typed-form)
+                      'single-float
+                      acode)
+          acode)))))
+
           =

 =

         =