(when (type/= type old-type)
;; FIXME: changing to TYPE-PROCLAMATION-MISMATCH
;; broke late-proclaim.lisp.
- (style-warn "The new TYPE proclamation~% ~S~@
- for ~S does not match the old TYPE~@
- proclamation ~S"
- type name old-type))))
+ (style-warn
+ "~@<new TYPE proclamation for ~S~@:_ ~S~@:_~
+ does not match the old TYPE proclamation:~@:_ ~S~@:>"
+ name (type-specifier type) (type-specifier old-type)))))
(setf (info :variable :type name) type)
(setf (info :variable :where-from name) :declared)))
(push raw-form *queued-proclaims*)))
;; FIXME: changing to FTYPE-PROCLAMATION-MISMATCH
;; broke late-proclaim.lisp.
(style-warn
- "new FTYPE proclamation~@
- ~S~@
- for ~S does not match old FTYPE proclamation~@
- ~S"
- ctype name old-type))))
+ "~@<new FTYPE proclamation for ~S~@:_ ~S~@:_~
+ does not match the old FTYPE proclamation:~@:_ ~S~@:>"
+ name (type-specifier ctype) (type-specifier old-type)))))
;; Now references to this function shouldn't be warned
;; about as undefined, since even if we haven't seen a