Changeset 12525


Ignore:
Timestamp:
Aug 3, 2009, 9:58:33 PM (10 years ago)
Author:
gz
Message:

in find-ftype-decl, watch for lexical defs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r12515 r12525  
    19731973(defun find-ftype-decl (sym &optional (env *nx-lexical-environment*))
    19741974  (setq sym (maybe-setf-function-name sym))
    1975   (loop
    1976     (when (listp env)
    1977       (return (and (symbolp sym)
    1978                    (proclaimed-ftype sym))))
     1975  (loop
     1976    (when (listp env) (return  (proclaimed-ftype sym)))
    19791977    (dolist (fdecl (lexenv.fdecls env))
    19801978      (when (and (eq (car fdecl) sym)
    19811979                 (eq (car (%cdr fdecl)) 'ftype))
    19821980        (return-from find-ftype-decl (%cddr fdecl))))
     1981    (when (and (istruct-typep env 'lexical-environment)
     1982               (assq sym (lexenv.functions env)))
     1983      (return-from find-ftype-decl nil))
    19831984    (setq env (lexenv.parent-env env))))
    19841985
Note: See TracChangeset for help on using the changeset viewer.