[Openmcl-cvs-notifications] r13359 - /release/1.4/source/lib/nfcomp.lisp

[gb at clozure.com]

Author: gb
Date: Mon Jan  4 10:27:47 2010
New Revision: 13359

Log:
Propagate r13358 to 1.4.

Modified:
    release/1.4/source/lib/nfcomp.lisp

Modified: release/1.4/source/lib/nfcomp.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- release/1.4/source/lib/nfcomp.lisp (original)
+++ release/1.4/source/lib/nfcomp.lisp Mon Jan  4 10:27:47 2010
@@ -904,7 +904,8 @@
 (defun define-compile-time-structure (sd refnames predicate env)
   (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))
               (defenv.classes defenv)))