Changeset 14021


Ignore:
Timestamp:
Jul 23, 2010, 5:14:03 AM (9 years ago)
Author:
rme
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:
1 edited

Legend:

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

    r13788 r14021  
    286286  (intern (%str-cat (string name1) (string name2))))
    287287
     288;; By special dispensation, don't complain about unknown types
     289;; mentioned in defstruct :type slot options.
    288290(defun wrap-with-type-declaration (value slot &aux (slot-type (ssd-type slot)))
    289291  (if (eq t slot-type)
    290292    value
    291     `(the ,slot-type ,value)))
     293    (if (specifier-type-if-known slot-type)
     294      `(the ,slot-type ,value)
     295      value)))
    292296
    293297(defun make-class-cells-list (class-names)
Note: See TracChangeset for help on using the changeset viewer.