Changeset 9497


Ignore:
Timestamp:
May 15, 2008, 11:22:37 PM (11 years ago)
Author:
gb
Message:

MAKE-AFUNC: stop being 1985.

File:
1 edited

Legend:

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

    r9415 r9497  
    2828
    2929; Phony AFUNC "defstruct":
    30 (defun make-afunc (&aux (v (allocate-typed-vector :istruct $afunc-size nil)))
    31   (setf (%svref v 0) 'afunc)
     30(defun make-afunc (&aux (v (%make-afunc)))
    3231  (setf (afunc-fn-refcount v) 0)
    3332  (setf (afunc-fn-downward-refcount v) 0)
     
    11041103    (let* ((intervening-functions nil))
    11051104      (do* ((env current-env (lexenv.parent-env env)))
    1106            ((or (eq env target) (null env) (eq (%svref env 0) 'definition-environment)))
     1105           ((or (eq env target) (null env) (istruct-typep env 'definition-environment)))
    11071106        (let* ((fn (lexenv.lambda env)))
    11081107          (when fn (push fn intervening-functions))))
     
    11741173      (info afunc)
    11751174      (do* ((env *nx-lexical-environment* (lexenv.parent-env env))
    1176             (continue env (and env (neq (%svref env 0) 'definition-environment)))
     1175            (continue env (and env (not (istruct-typep env 'definition-environment))))
    11771176            (binder current-function (or (if continue (lexenv.lambda env)) binder)))
    11781177           ((or (not continue) (and (neq binder current-function) current-only))
Note: See TracChangeset for help on using the changeset viewer.