(defun canonized-decl-spec (decl-spec)
(let ((id (first decl-spec)))
(unless (symbolp id)
- (error "The declaration identifier is not a symbol: ~S" what))
+ (error "The declaration identifier is not a symbol: ~S" id))
(let ((id-is-type (info :type :kind id))
(id-is-declared-decl (info :declaration :recognized id)))
(cond ((and id-is-type id-is-declared-decl)
(when (eq (info :function :where-from name) :declared)
(let ((old-type (info :function :type name)))
(when (type/= type old-type)
- (style-warn "new FTYPE proclamation~@
- ~S~@
- for ~S does not match old FTYPE proclamation~@
- ~S"
- (list type name old-type)))))
+ (style-warn
+ "new FTYPE proclamation~@
+ ~S~@
+ for ~S does not match old FTYPE proclamation~@
+ ~S"
+ (list type name old-type)))))
(proclaim-as-function-name name)
(note-name-defined name :function)
(freeze-type
(dolist (type args)
(let ((class (specifier-type type)))
- (when (typep class 'class)
+ (when (typep class 'sb!xc:class)
(setf (class-state class) :sealed)
(let ((subclasses (class-subclasses class)))
(when subclasses