Changeset 14021

Timestamp:

Jul 22, 2010, 10:14:03 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Per test CCL.57879-6, in DEFSTRUCT constructors, try not to complain
about unknown types that may be mentioned in defstruct :type slot
options.

See also r13696.

File:

• trunk/source/lib/defstruct-lds.lisp (modified) (1 diff)

trunk/source/lib/defstruct-lds.lisp

@@ -286 +286 @@
   (intern (%str-cat (string name1) (string name2))))
 
+;; By special dispensation, don't complain about unknown types
+;; mentioned in defstruct :type slot options.
 (defun wrap-with-type-declaration (value slot &aux (slot-type (ssd-type slot)))
   (if (eq t slot-type)
     value
-    `(the ,slot-type ,value)))
+    (if (specifier-type-if-known slot-type)
+      `(the ,slot-type ,value)
+      value)))
 
 (defun make-class-cells-list (class-names)