Changeset 12514


Ignore:
Timestamp:
Aug 1, 2009, 3:46:11 PM (10 years ago)
Author:
gz
Message:

In nx-effect-other-decls, effect the right decls

File:
1 edited

Legend:

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

    r12500 r12514  
    739739                    (rplacd (cdr decl) merged-type))))
    740740              (push decl env-vdecls)))))
    741       (when fdecls (setf (lexenv.fdecls env) (merge-decls fdecls (lexenv.vdecls env))))
     741      (when fdecls (setf (lexenv.fdecls env) (merge-decls fdecls (lexenv.fdecls env))))
    742742      (when mdecls (setf (lexenv.mdecls env) (merge-decls mdecls (lexenv.mdecls env))))
    743743      (setq *nx-inlined-self* (and (nx-self-calls-inlineable env)
Note: See TracChangeset for help on using the changeset viewer.