Changeset 14703


Ignore:
Timestamp:
Mar 30, 2011, 11:58:06 PM (8 years ago)
Author:
rme
Message:

In nx-declared-inline-p and nx-declared-notinline-p, stop searching
and return nil if there's a local function definition.

Fixes ticket:840.

Location:
trunk/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r14576 r14703  
    596596                 (eq (cadr decl) 'inline))
    597597        (return-from nx-declared-inline-p (eq (cddr decl) 'inline))))
     598    (when (assq sym (lexenv.functions env))
     599      (return nil))
    598600    (setq env (lexenv.parent-env env))))
    599601
  • trunk/source/compiler/nx0.lisp

    r14459 r14703  
    19341934                 (eq (cadr decl) 'inline))
    19351935         (return-from nx-declared-notinline-p (eq (cddr decl) 'notinline))))
     1936    (when (assq sym (lexenv.functions env))
     1937      (return nil))
    19361938    (setq env (lexenv.parent-env env))))
    19371939
Note: See TracChangeset for help on using the changeset viewer.