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

[gb at clozure.com]

Author: gb
Date: Tue Apr 29 13:35:39 2008
New Revision: 9331

Log:
NX-UNTYPED-FORM: don't simplify if TYPED-FORM operation will typecheck
(new THE stuff.)

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 Tue Apr 29 13:35:39 2008
@@ -287,7 +287,8 @@
 ;;; (assuming, of course, that anyone should ...)
 (defun nx-untyped-form (form)
   (while (and (consp form)
-              (eq (%car form) (%nx1-operator typed-form)))
+              (eq (%car form) (%nx1-operator typed-form))
+              (null (nth 3 form)))
     (setq form (%caddr form)))
   form)
 =