Changeset 13358


Ignore:
Timestamp:
Jan 4, 2010, 10:12:18 AM (10 years ago)
Author:
gb
Message:

In DEFINE-COMPILE-TIME-STRUCTURE: don't record compile-time type/class
info if the structure definition has a non-null TYPE.

File:
1 edited

Legend:

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

    r13279 r13358  
    905905  (let ((defenv (definition-environment env)))
    906906    (when defenv
    907       (when (non-nil-symbolp (sd-name sd))
     907      (when (and (non-nil-symbolp (sd-name sd))
     908                 (not (sd-type sd)))
    908909        (note-type-info (sd-name sd) 'class env)
    909910        (push (make-instance 'compile-time-class :name (sd-name sd))
Note: See TracChangeset for help on using the changeset viewer.