Changeset 10318


Ignore:
Timestamp:
Aug 4, 2008, 10:38:02 AM (11 years ago)
Author:
gb
Message:

Missed more cases involving definition-environment istructs.

File:
1 edited

Legend:

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

    r9917 r10318  
    2929; Phony AFUNC "defstruct":
    3030(defun make-afunc (&aux (v (%make-afunc)))
    31   (setf (%svref v 0) 'afunc)
    3231  (setf (afunc-fn-refcount v) 0)
    3332  (setf (afunc-fn-downward-refcount v) 0)
     
    10961095    (let* ((intervening-functions nil))
    10971096      (do* ((env current-env (lexenv.parent-env env)))
    1098            ((or (eq env target) (null env) (eq (%svref env 0) 'definition-environment)))
     1097           ((or (eq env target) (null env) (istruct-typep env 'definition-environment)))
    10991098        (let* ((fn (lexenv.lambda env)))
    11001099          (when fn (push fn intervening-functions))))
     
    11661165      (info afunc)
    11671166      (do* ((env *nx-lexical-environment* (lexenv.parent-env env))
    1168             (continue env (and env (neq (%svref env 0) 'definition-environment)))
     1167            (continue env (and env (not (istruct-typep env 'definition-environment))))
    11691168            (binder current-function (or (if continue (lexenv.lambda env)) binder)))
    11701169           ((or (not continue) (and (neq binder current-function) current-only))
Note: See TracChangeset for help on using the changeset viewer.