Changeset 14315


Ignore:
Timestamp:
Sep 30, 2010, 8:10:54 PM (9 years ago)
Author:
rme
Message:

In DEFSTRUCT-REF-TRANSFORM, wrap accessor in TYPECHECK instead of (THE ...)
when checking declarations.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/defstruct.lisp

    r14305 r14315  
    286286      (if (eq type 't)
    287287        accessor
    288         `(the ,type ,accessor)))
     288        (if (nx-declarations-typecheck env)
     289          `(typecheck ,accessor ,type)
     290          `(the ,type ,accessor))))
    289291    `(structure-typep ,@args ',structref-info)))
    290292
Note: See TracChangeset for help on using the changeset viewer.