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

[gb at clozure.com]

Author: gb
Date: Fri Apr 29 17:00:06 2011
New Revision: 14759

Log:
Treat unary - as subtraction from 0, maybe turn that to negation in the bac=
kend.

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 Fri Apr 29 17:00:06 2011
@@ -698,7 +698,8 @@
     (if (subtypep *nx-form-type* 'fixnum)
       (make-acode (%nx1-operator %%ineg)(nx1-form num))
       (make-acode (%nx1-operator %ineg) (nx1-form num)))
-    (make-acode (%nx1-operator minus1) (nx1-form num))))
+    (nx1-form `(- 0 ,num))))
+          =

 =

         =

 (defnx1 nx1--2 ((--2)) (&environment env num0 num1)        =