Changeset 10317


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

Missed an '(%svref istruct 0) in %SYMBOL-MACROEXPAND-1.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop.lisp

    r8864 r10317  
    250250    (do* ((env env (lexenv.parent-env env)))
    251251         ((null env))
    252       (if (eq (%svref env 0) 'definition-environment)
     252      (if (istruct-typep env 'definition-environment)
    253253        (let* ((info (assq sym (defenv.symbol-macros env))))
    254254          (if info
Note: See TracChangeset for help on using the changeset viewer.