[Openmcl-cvs-notifications] r11393 - /trunk/source/compiler/PPC/ppc2.lisp

[gb at clozure.com]

Author: gb
Date: Tue Nov 18 15:29:18 2008
New Revision: 11393

Log:
Whoops: remove debugging call to BREAK in PPC2-BIND-LAMBDA.

Modified:
    trunk/source/compiler/PPC/ppc2.lisp

Modified: trunk/source/compiler/PPC/ppc2.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/PPC/ppc2.lisp (original)
+++ trunk/source/compiler/PPC/ppc2.lisp Tue Nov 18 15:29:18 2008
@@ -712,9 +712,7 @@
       (ppc2-set-var-ea seg arg (var-ea arg))
       (let* ((lcell (pop lcells)))
         (if (setq reg (nx2-assign-register-var arg))
-          (progn
-            (break "Inherited var in NVR: ~s/~s" arg (var-name arg))
-            (ppc2-init-regvar seg arg reg (ppc2-vloc-ea vloc)))
+          (ppc2-init-regvar seg arg reg (ppc2-vloc-ea vloc))
           (ppc2-bind-var seg arg vloc lcell))
         (setq vloc (%i+ vloc *ppc2-target-node-size*)))))
   (dolist (arg req)