Changeset 9331


Ignore:
Timestamp:
Apr 29, 2008, 5:35:39 PM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r9257 r9331  
    288288(defun nx-untyped-form (form)
    289289  (while (and (consp form)
    290               (eq (%car form) (%nx1-operator typed-form)))
     290              (eq (%car form) (%nx1-operator typed-form))
     291              (null (nth 3 form)))
    291292    (setq form (%caddr form)))
    292293  form)
Note: See TracChangeset for help on using the changeset viewer.