[Openmcl-cvs-notifications] r15174 - /trunk/source/compiler/X86/x862.lisp

[rme at clozure.com]

Author: rme
Date: Mon Jan 23 16:40:40 2012
New Revision: 15174

Log:
x862-formlist: delete some extraneous junk characters
that snuck in.

Modified:
    trunk/source/compiler/X86/x862.lisp

Modified: trunk/source/compiler/X86/x862.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/X86/x862.lisp (original)
+++ trunk/source/compiler/X86/x862.lisp Mon Jan 23 16:40:40 2012
@@ -3293,7 +3293,7 @@
       (declare (fixnum n))
       (dolist (arg stkargs)
         (let* ((pushform (x862-acode-operator-supports-push arg)))
-en          (if pushformne
+          (if pushform
             (progn
               (x862-form seg :push nil pushform)
               (x862-new-vstack-lcell :outgoing-argument *x862-target-lcell=
-size* 0 nil)