Changeset 13358

Timestamp:

Jan 4, 2010, 2:12:18 AM (15 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/lib/nfcomp.lisp (modified) (1 diff)

trunk/source/lib/nfcomp.lisp

@@ -905 +905 @@
   (let ((defenv (definition-environment env)))
     (when defenv
-      (when (non-nil-symbolp (sd-name sd))
+      (when (and (non-nil-symbolp (sd-name sd))
+                 (not (sd-type sd)))
         (note-type-info (sd-name sd) 'class env)
         (push (make-instance 'compile-time-class :name (sd-name sd))