projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.12.7: Merge package locks, AKA "what can go wrong with a 3783 line patch?"
[sbcl.git]
/
src
/
compiler
/
ir1tran-lambda.lisp
diff --git
a/src/compiler/ir1tran-lambda.lisp
b/src/compiler/ir1tran-lambda.lisp
index
d1bd58f
..
c107a93
100644
(file)
--- a/
src/compiler/ir1tran-lambda.lisp
+++ b/
src/compiler/ir1tran-lambda.lisp
@@
-1095,9
+1095,7
@@
(aver (fasl-output-p *compile-object*))
(if (member name *fun-names-in-this-file* :test #'equal)
(aver (fasl-output-p *compile-object*))
(if (member name *fun-names-in-this-file* :test #'equal)
- (compiler-warn "~@<Duplicate definition for ~S found in ~
- one static unit (usually a file).~@:>"
- name)
+ (warn 'duplicate-definition :name name)
(push name *fun-names-in-this-file*)))
(become-defined-fun-name name)
(push name *fun-names-in-this-file*)))
(become-defined-fun-name name)