projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.42: will be tagged as sbcl_1_0_42
[sbcl.git]
/
src
/
compiler
/
proclaim.lisp
diff --git
a/src/compiler/proclaim.lisp
b/src/compiler/proclaim.lisp
index
3864723
..
ed78315
100644
(file)
--- a/
src/compiler/proclaim.lisp
+++ b/
src/compiler/proclaim.lisp
@@
-212,10
+212,10
@@
(when (type/= type old-type)
;; FIXME: changing to TYPE-PROCLAMATION-MISMATCH
;; broke late-proclaim.lisp.
(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*)))
(setf (info :variable :type name) type)
(setf (info :variable :where-from name) :declared)))
(push raw-form *queued-proclaims*)))