Ignore:
Timestamp:
May 16, 2008, 1:23:55 AM (11 years ago)
Author:
gb
Message:

Use ISTRUCT-TYPEP, not %SVREF.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-1/l1-readloop.lisp

    r9172 r9516  
    248248    (do* ((env env (lexenv.parent-env env)))
    249249         ((null env))
    250       (if (eq (%svref env 0) 'definition-environment)
     250      (if (istruct-typep env 'definition-environment)
    251251        (let* ((info (assq sym (defenv.symbol-macros env))))
    252252          (if info
Note: See TracChangeset for help on using the changeset viewer.